|
ich habe hier eine Code mit dem ich unter dem Wort "Funkgerät" eine Zeile in meiner Tabelle einfügen kann. Allerdings habe ich jetzt mehrere Tabellen in denen ich unter dem Wort eine Zeile einfügen möchte. Dies ist der Code:
Sub ZeilePlus()
Dim Was$, c, fA
Was = "Funkgeräte"
With ActiveSheet.Cells
Set c = .Find(Was, LookIn:=xlValues)
If Not c Is Nothing Then fA = c.Address Do Rows(c.Row + 1).Insert
Set c = .FindNext(c) Loop
While Not c Is Nothing And c.Address <> fA
End If
End With
End Sub
läst sich dieser so umschreiben, dass das makro bei ausführung auf allen Tabellen unter dem wort Funkgerät eine ganzw zeile einfügt?
|