Neue Zeile mit Makro einfügen
26.03.2021 09:09:21
Florian
Ich habe schon einige tolle Makros gefunden um eine neue Zeile einzufügen, aber leider keines welches genau meine Anforderungen erfüllt und leider reichen meine VBA-Kenntnisse nicht aus, um das Makro so anzupassen wie ich es benötige.
Und zwar möchte ich in Spalte B nach einem bestimmten Wort suchen und dann darüber eine neue Zeile einfügen.
Zusätzlich sollen der Inhalt aus der Zeile mit dem Suchwort nicht übernommen werden, die Formatierung und die Formeln in den Zellen aber schon.
Das Makro soll dann über einen Button ausführbar sein.
Hier wäre eines der Makros welche ich schon gefunden habe aber nicht ganz das macht was ich möchte:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngT As Range
Set rngT = Target.Cells(1)
If rngT.Value = "X" Then
If rngT.Row > 1 And rngT.Column = 9 Then
Rows(1).Copy
rngT.Offset(1, 0).EntireRow.Insert
Application.CutCopyMode = False
rngT.ClearContents
End If
End If
End Sub
Liebe Grüße und ein schönes Wochenende!
Florian