Find-Methode - Laufzeitfehler 91
Marius
ich habe folgendes Problem in VBA.
In einem Blatt sollen in der ersten Spalte bestimmte Begriffe gesucht werden und anschließend umformatiert werden.
Das habe ich soweit geschafft.
Allerdings muss ich dieses Makro auf unterschiedliche Blätter anwenden und nicht in allen sind sämtliche Bezeichnungen (z.B. GBIKR_FONDNE1A siehe unten) vorhanden. Wenn nun eine fehlt, bekomme ich den Laufzeitfehler 91 angesagt.
Wie kann ich es so aufbauen, dass VBA den fehlenden Wert einfach überspringt und nach dem nächsten sucht?
So siehts bis jetzt aus:
Sub SAPFormat()
'Zelle suchen
Columns("A:A").Select
Selection.Find(What:= _
"GBIKR_FONDNE1A", After:=ActiveCell, MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Activate
ActiveWorkbook.Names.Add Name:="MERT", RefersToR1C1:=ActiveCell
Range("MERT").Select
ActiveCell.Offset(0, 26).Select
Range(ActiveCell, "MERT").Select
With Selection.Interior
.ColorIndex = 44
End With
Columns("A:A").Select
Selection.Find(What:= _
"GBIKR_FONDNE1C", After:=ActiveCell, MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Activate
ActiveWorkbook.Names.Add Name:="SONSTAUFW", RefersToR1C1:=ActiveCell
Range("SONSTAUFW").Select
ActiveCell.Offset(0, 26).Select
Range(ActiveCell, "SONSTAUFW").Select
With Selection.Interior
.ColorIndex = 44
End With
usw.
End Sub
Viele Grüße Marius