zeilen bedingt löschen
27.11.2016 20:43:16
Thomas
mit dem unterstehenden Macro kann ich alle Zeilen die vor dem benannten Datum sind löschen.
leider habe ich das Problem das immer zwei Zellen in spalte a verbunden sind ( Datumsspalte) a1 mit a2 a3 mit a4 unsw.
Nun ja dieses Macro löscht natürlich auch alle leeren zellen und hebt den verbund auf,
hat jemand eine idee wie ich es verändern könnte?
Meine zweite frage ist kann man dies macro so ändern das dies macro alle markierten
Tabellenblätter durchgeht?
der hintergrund ist meine exceldatei wird langsam zu gross und nun möchte ich sie gern verkleinern in dem ich alle zeilen die ich nicht mehr benötige lösche. 8 es sind 150 Tabellenblätter.
Private Sub CommandButton1_Click()
Dim zeile As Long
Dim zeilemax As Long
Dim datwert As Date
Sheets("tabelle1").Activate
datwert = "22.12.2014"
zeilemax = ActiveSheet.UsedRange.Rows.Count
For zeile = zeilemax To 1 Step -1
If Cells(zeile, 1).Value mfg thomas