Hallo,
ich weiß nicht, wie ich das folgende Problem lösen kann!?
Ich suche in einer Tabelle mit dem unten angeführten Makro nach einem Wert und wenn dieser da ist, dann soll ein weiteres Makro ausgeführt werden (M45_......) [es werden 3 Zeilen und ein Text in die Tabelle eingefügt]
wenn allerdings der Wert z.B. 'Hund' nicht existiert, dann bricht das Makro ab
----------------------------------------------------------------------------------------
Range("A6").Select
Cells.Find(What:="hund", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
M45_Markierung ' 3 Zeilen und Text einfügen
'.............................................................................
Range("A6").Select
Cells.Find(What:="katze", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
M45_Markierung ' 3 Zeilen und Text einfügen
'.............................................................................
Range("A6").Select
Cells.Find(What:="maus", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
M45_Markierung ' 3 Zeilen und Texteinfügen
'.............................................................................
Wie kann ich es erreichen, dass die weiteren Werte 'katze' und 'maus' weiter abgearbeitet werden, das Makro also weiterläuft?
Danke für eure Hilfe!
pengdaw Im Profil kannst Du frei den Rang ändern Beiträge: 23Registriert: 21.04.2013, 08:33