im nachfolgenden VBA-Code wird eine Zeile engefügt in der Tabelle1
im Bereich A13:A23.
Wie kann man gleichzeitig in der Tabelle2 im Bereich A11:A21 und A28:38
eine Zeile einfügen.
Sub ZeileEinfügen()
Dim fund, b As Range, Variante As String
Application.ScreenUpdating = False
Variante = InputBox("Geben Sie einen Variante ein:", "Versuchsglieder")
If Variante = "" Then Exit Sub
Set b = Worksheets("Tabelle1").Range("A13:A23").Find(Variante)
If Not b Is Nothing Then
fund = b.Address
Do
Zeile = b.Row
Range(Cells(Zeile, 1), Cells(Zeile, 1)).Select
Loop Until fund = b.Address
End If
Selection.EntireRow.Insert
Application.ScreenUpdating = True
End Sub
Kann mir jemand helfen?
Vielen Dank.
Grüße