Leerzeile ab dem 2. Wort
04.11.2015 13:33:16
SK
ich brauche eine kleine Modifizierung meines Makros. Dieser untersucht die Spalte G und sucht nach dem Wort "Center" wenn er das Wort findet dann setzt er eine leere Zeile oberhalb ein, sodass es dann für eine gute Übersicht getrennt ist. Jetzt ist es so, dass beim Import der Daten die erste Zeile in der Spalte G bereits das Wort "Center" beinhaltet und demzufolge eine Zeile oberhalb einfügt, was dazu führt, dass die Formatierung verschoben wird und ich keinen Rahmen in den Zeilen 50/51 84/85 usw. habe. Jetzt soll das Makro anfangen erst ab dem zweiten "Center" eine neue Zelle oberhalb einfügen. Kann mir das bitte jemand weiterhelfen?
Vielen Dank schon einmal für die Mühe
Grüße
SK
Dim Zelle As Range
With Worksheets("Reporting").Range("G:G")
Set Zelle = .Find("Center", LookIn:=xlValues)
If Not Zelle Is Nothing Then
s = Zelle.Row
Do
Zelle.Offset(0, 0).EntireRow.Insert
Set Zelle = .FindNext(Zelle)
Loop While Zelle.Address Cells(s + 1, 7).Address
End If
End With