ich suche per VBA nach einem String in einem Tabellenblatt und möchte darunter eine Zeile einfügen.
Mein Code:
Set c = wkb.Worksheets("Blatt1").Range("B1:B100").Find("Suchtext")
If Not c Is Nothing Then
c.Offset(1, 0).EntireRow.Insert
End If
wkb ist ein geöffnetes Workbook. Die Zeile wird an der richtigen Stelle eingefügt, aber dann kommt die Fehlermeldung "Die Methode "Run" für das Objekt "Application" ist fehlgeschlagen" und die insert-Zeile wird markiert.
Kennt jemand dieses Problem?
Gruß Uppe