Fehler im Makro - Paules-PC-Forum.de

23.05.2011, 08:34

Hallo,

ich brauche ein Makro was in Spalte B eine gewünschte Anzahl Zeilen durchläuft (abfrage am anfang) und dort alle zellen mit inhalt #wert löscht.

ich habe bisher:

Private Sub zellen()
Dim anzahl As Byte
Dim count As Byte

anzahl = InputBox("Bitte die gewünschte Zeilenanzahl angeben", "Zeilenanzahl")

For count = 1 To anzahl Step 1
If ActiveSheet.Cells(anzahl, 2).Value = "#Wert" Then
ActiveSheet.Cells(anzahl, 2).ClearContent
End If
Next count

End Sub

wo liegt mein problem?

Tanto · 24.06.2011, 18:13

Hallo Community

Probier das mal

Liebe Grüße Tanto

Code:

 
If Mid(CStr(Cells(anzahl, 2)), 1, 6) = "Fehler" Then

23.05.2011, 08:34	#1 (Direktlink)
exer Gast Beiträge: n/a	Fehler im Makro Hallo, ich brauche ein Makro was in Spalte B eine gewünschte Anzahl Zeilen durchläuft (abfrage am anfang) und dort alle zellen mit inhalt #wert löscht. ich habe bisher: Private Sub zellen() Dim anzahl As Byte Dim count As Byte anzahl = InputBox("Bitte die gewünschte Zeilenanzahl angeben", "Zeilenanzahl") For count = 1 To anzahl Step 1 If ActiveSheet.Cells(anzahl, 2).Value = "#Wert" Then ActiveSheet.Cells(anzahl, 2).ClearContent End If Next count End Sub wo liegt mein problem?

24.06.2011, 18:13	#2 (Direktlink)
Tanto Weiß worum´s geht Registriert seit: 23.11.2008 Beiträge: 104	Hallo Community Probier das mal Liebe Grüße Tanto Code: If Mid(CStr(Cells(anzahl, 2)), 1, 6) = "Fehler" Then

Themen-Optionen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen
Ansicht
Linear-Darstellung Zur Hybrid-Darstellung wechseln Zur Baum-Darstellung wechseln

Ähnliche Themen
Thema	Autor	Forum	Antworten	Letzter Beitrag
Makro für Schattierung	dorsai	Office-Anwendungen	0	19.05.2009 00:35
Excel Makro	manas	Office-Anwendungen	2	27.11.2008 07:35
Schreib makro!!	babajezzy	Computerspiele	9	05.09.2008 10:42
Word und Makro	extrabreit	Office-Anwendungen	5	15.08.2007 21:48
Makro Fehlermeldung	Minkus	Office-Anwendungen	2	12.08.2006 13:23