ich hab eine tabelle mit ca 10 Spalten, wobei nicht jede Spalte immer einen Eintrag hat. Die erste Spalte mit dem Tag schon. Hab mir per VBA einen Bereich geschaffen, der die Tabelle bis zum Eintrag des letzten Tages kürzt. Nun möchte ich aber die übrigen Reihen abermals teilen, wobei ich unteranderem, obere Reihen löschen muss und untere Reihen löschen muss, damit nur die Reihen übrigbleiben mit denen ich bei einem Durchlauf arbeiten muss. (ich hab die Tabelle mit hochgeladen)
klingt kompliziert, ist es aber sicher nicht...
Die Tabelle von unten nach oben zu kürzen ist ok.
Range("B19:b210").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Range("A19").CurrentRegion.Name = "Zwischenbank"
ist um die Tabelle vorerst auf die gesamte zu kürzen.
jetzt von unten nach oben über Spalte AD
Range("AD100").End(xlUp).Offset(1, 0).Select
Dim L As Long
Dim ZL As Long
'ZL = 20
ZL = ActiveSheet.UsedRange.Rows.Count
For L = 20 To ZL
If Len(ActiveCell.Value) = 0 _
Then ActiveCell.EntireRow.Delete _
Else ActiveCell.Offset(1, 0).Select
Next L
jetzt hab bin ich am Problem, die Tabelle von oben nach unten zu kürzen.
ab Zeile 20 (incl.) gehört bis oberhalb des ersten Eintrags in der Spalte gekürzt (Spalte AC)
wie geht dass?
echt keine Ahnung und finde nichts dazu, oder bin zu "unschlau".
danke im voraus
charlybraun