Tabellen mit .find durchsuchen: Lzf Nr 91
27.02.2019 10:35:31
Alfred
Ich habe ein kleines Makro für die Suche leerer Zellen in einem Tabellenblatt. Mittel Range und find.
Mit worksheet(1) funktioniert es tadellos.
Wenn ich es mit dem gleichen Code für Worksheet(2) versuche, bekomme ich die Fehlermeldung 91.
Ich steh da wie der Ochs vorm Tor.
Wahrscheinlich wirdes ein paar tausend Leute geben, die klüger sind als ich.
Hier der Code:
Sub leerzeilensuchen funktioniert,
Sub Leere spinnt.
Sub leerzeilensuchen()
Worksheets(1).Activate
Dim gefunden As Range
Tag = Str$(Date)
Set gefunden = Worksheets(1).Range("B:B").Find("")
gefunden = Tag
End Sub
Sub Leere()
Worksheets(2).Activate
Dim hoit As Range
Tag1 = Str$(Date)
Set hoit = Worksheets(2).Range("A:A").Find("")
hoit = Tag1
End Sub
Bitte um Hilfe. Was sollda falsch sein, wenn sich nur die Variablenbezeichner geändert haben ?
Verzweifelt
Alfred Pfeiler
Anzeige