In Zellen suchen und kopieren
15.08.2002 08:06:25
Willie
Ich muß in einem Tabellenblatt alle Zellen suchen in der Spalte C in denen die Buchtabenkombination lg oder LG enthalten sind.
Das funktionier solange bis die Kombination nicht mehr enthalten ist es kommt die Fehler Meldung:
Laufzeitfehler '91' Objektvariable oder With-Block variable ist nicht festgelegt!
Ich mache VBA noch nicht solange, dass ich das richtig verstehe, was damit gemeint ist.Kann man das Makro auch noch optimieren, damit auf
dem Tabellenblatt2 keine Leeren Zellen entstehen?
Mein Makro ist so aus:
Sub LG_suchen()
x = 2
Do
Sheets("Tabelle1").Activate
Sheets("Tabelle1").Select
Cells(x, 3).Select
If Selection.Find(What:="lg", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False) = "" Then
End If
Selection.FindNext(After:=Cells(x, 3)).Activate
Selection.Copy
Sheets("Tabelle2").Activate
Cells(x, 1).Select
ActiveSheet.Paste
'Selection.FindNext(After:=ActiveCell).Activate
x = x + 1
Sheets("Tabelle1").Activate
Loop Until Cells(x, 3) = ""
Cells(1, 3).Select
MsgBox x
End Sub