ich möchte in der Spalte A einen Wert finden, welcher "Subunternehmer:" heißt.
Unterhalb dieser Zelle soll dann eine komplett neue Zeile eingefügt werden.
Mit folgendem Code habe ich rumexperimentiert:
Dim strString As String, rngCell As Range
strString = "Nachunternehmer:"
Set rngCell = Rows(25).Find(strString, lookat:=xlWhole, LookIn:=xlValues, MatchCase:=True)
If Not rngCell Is Nothing Then
MsgBox rngCell.Address
Else
MsgBox "war nicht dabei"
End If
Leider bekomme ich das zum einen nicht umgebaut auf Spalte A und des weiteren ist die Frage wie ich unter dieser Zelle eine neue Zeile einfüge.
Könnt ihr mir helfen?
Danke