ich habe folgendes Problem. Meine Tabelle umfasst mehrere Abschnitte von Daten. z.B. sind in Spalte D die Zeilen 3 bis 8 befüllt, die Zeilen 13 bis 20 und 24 bis 30.
Nun möchte ich am Ende eines Abschnittes eine leer Zeile per Makro einfügen. Also wenn zum Beispiel Zeile D9 leer ist soll hier eine Zeile eingefügt werden. Ist diese Dann befüllt soll bei erneutem Aufruf nach Zeile D9 eine leer Zeile eingefügt werden.
Unten ein erster Versuch, wo ich ein anderes Makro umgeschrieben habe. Funktioniert aber leider _ nicht so wie ich mir das vorstelle.
Sub Zeile_einfügen_1()
' Zeile_einfügen_1 Makro
Application.ScreenUpdating = False
Dim i As Long, ZelleStart As Range
Dim lZeile As Long, lZeile_1 As Long, lZeile_L As Long
Dim wksData As Worksheet
i = 0
Set wksData = Worksheets("Tabelle1")
With wksData
Set ZelleStart = .Cells(3, 5) 'Zelle D5
'Zeile nach der Startzelle (= 1. Zeile, die im Diagramm dargestellt sein könnte)
lZeile_1 = ZelleStart.Row + 1
'letzte Zelle mit Inhalt in Spalte D
lZeile_L = .Cells(.Rows.Count, ZelleStart.Column).End(xlDown).Row
End With
For lZeile = lZeile_1 To lZeile_L
'prüfen, ob Zeile befüllt
If wksData.Rows(lZeile).Value "" Then
'Zeile leer, Zähler für Datenpunkt erhöhen
i = i + 1
'Zellwert in Spalte C vergleichen und Farbe des Datenpunktes setzen
Sheets("Tabelle1").Range("Projects").EntireRow.Insert Shift:=xlDown, _
CopyOrigin:=xlFormatFromLeftOrAbove
End If
Next
End Sub
Vielen Dank für die Hilfe