der nachfolgende VBA-Code bietet die Möglichkeit in Tabelle1
eine Zahl zu suchen und wenn gefunden eine Zeile einzufügen.
Ich möchte , dass die Zahl auch in der Tabelle2 gesucht und die Zeile eingefügt wird.
Die Zahl kommt mehrmals in Tabelle1 und Tabelle2 vor.
ub zeileneinfügen()
Dim Zelle As Range
Dim s As String
With Worksheets("Tabelle1").Range("A1:A100")
s = InputBox("Geben Sie den Suchbegriff ein!")
If s = "" Then Exit Sub
Set Zelle = .Find(s, LookIn:=xlValues)
If Not Zelle Is Nothing Then
s = Zelle.Address
Do
Set Zelle = .FindNext(Zelle)
Zelle.Offset(1, 0).EntireRow.Insert
Loop While Zelle.Address <> s
End If
End With
End Sub
Kann mir jemand helfe?
Vielen Dank im Voraus.
Grüße