wenn in Spalte C der Zelleninhalt dies BB-XX-G GG-25 ist, dann möchte ich davor 2 neuen Zeilen einfügen. Die letzte Zelle mit Inhalt kann in Spalte A genommen werden.
Wie mache ich das ?
Vielen Dank im Voraus !
Liebe Grüße,
Selma
Sub Zeilen_einfügen()
'wenn in Spalte C (3) der Zellinhalt stimmt, dann wird dadrüber eine neue Zeile eingefügt
Dim loLetzte As Long
Dim loZeile As Long
'letzte benutzte Zelle wird in Spalte A ermittelt
loLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
For loZeile = loLetzte To 1 Step -1
'wenn der gesamte Zellinhalt stimmt
If Cells(loZeile, 3) = "BB-XX-G GG-25" Or Cells(loZeile, 3) = "RUCKKL" Then
Rows(loZeile).Insert Shift:=xlDow
'wenn in den Zelleninahlt der Text "330" vorkommt
If Cells(loZeile, 3) Like "*330*" Then
Rows(loZeile).Insert Shift:=xlDow
'wenn die ersten 10 bzw. 3 Zeichen von links übereinstimmen bzw. vorkommen
If Left(Cells(loZeile, 3), 10) = "DISCOCHECK" Or Left(Cells(loZeile, 3), 3) = "NAF" Then
Rows(loZeile).Insert Shift:=xlDow
End If
End If
Next loZeile
End Sub
Sub Zeilen_einfügen2()
'wenn in Spalte C (3) der Zellinhalt stimmt, dann wird dadrüber eine neue Zeile eingefügt
Dim loLetzte As Long
Dim loZeile As Long
'letzte benutzte Zelle wird in Spalte A ermittelt
loLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _
Count)
For loZeile = loLetzte To 1 Step -1
'wenn der gesamte Zellinhalt stimmt
If Cells(loZeile, 3) = "BB-XX-G GG-25" Then
Rows(loZeile).Insert Shift:=xlDown
Rows(loZeile).Insert Shift:=xlDown
ElseIf Cells(loZeile, 3) = "RUCKKL" Then
Rows(loZeile).Insert Shift:=xlDown
'wenn in den Zelleninahlt der Text "330" vorkommt
ElseIf Cells(loZeile, 3) Like "*330*" Then
Rows(loZeile).Insert Shift:=xlDown
'wenn die ersten 10 bzw. 3 Zeichen von links übereinstimmen bzw. vorkommen
ElseIf Left(Cells(loZeile, 3), 10) = "DISCOCHECK" Or Left(Cells(loZeile, 3), 3) = "NAF" Then
Rows(loZeile).Insert Shift:=xlDown
End If
Next loZeile
End Sub
So?
Gruß Gerd