Makros
19.06.2006 08:25:40
kle
ich kenne mich mit VBA nicht aus. Einmal habe ich von einem Experten in diesem Forum ein tolles Makro bekommen und die kurze Anleiteung, wie ich das Makro einbauen soll. Das Makro löscht bestimmte Zeilen in der Tabelle.
Jetzt brauche ich ein ähnliches Markro.
Ich habe nur die Spalte (E) und das Kriterium (0)geändert. Da ist es:
Sub Zeilen_loeschen()
Dim rng As Range
Set rng = ActiveSheet.Range("E1:E65536").Find(what:=0, lookat:=xlWhole)
If rng Is Nothing Then
Exit Sub
Else
rng.EntireRow.Delete
End If
Do
Set rng = ActiveSheet.Cells.FindNext
If rng Is Nothing Then
Exit Sub
Else
rng.EntireRow.Delete
End If
Loop
End Sub
Dann habe ich das aktuellen Tabellenblatt markiert, auf Alt+F11 gedrückt, Modul einfügen und das Makro rüberkopiert.
Das Problem ist, dass dieses Makro jetzt auf dem ersten Tabellenblatt ausgeführt wird, und nicht auf dem aktuellen.
Kann mir jemand da weiter helfen? Ich mache bestimmt was falsch, weis nur nicht was :)