ich habe in der Zelle A1 ein Anfangsdatum stehen und in der Zelle A2 das Enddatum.
Ab der Zelle C9 bis IU9 können die Daten aus A1 und A2 vorkommen. Nun blende ich über folgendes Makro die Spalten aus die kleiner als A1oder größer als A2 sind.
Dim Datum1 As String
Dim Datum2 As String
Dim i As Integer
Sub SpaltenAusblenden_Backflush_Auswertung_()
Datum1 = CDate(Worksheets("Tabelle1").Range("A1"))
Datum2 = CDate(Worksheets("Tabelle1").Range("A2"))
Columns.Hidden = False
For i = 255 To 3 Step -1
'For i = 16383 To 3 Step -1 'bei Excel 2007
If CDate(Cells(9, i)) > Datum2 Or (Cells(9, i)) = "" Or CDate(Cells(9, i))
Nach rechts muss immer die letzte Spalte eingeblendet bleiben (IV bei Excel 2003, XFD bei Excel 2007) und nach links die ersten zwei Spalten (A:B). Da ich jetzt mit Excel 2007 arbeite dauert es sehr lange, bis jede einzelne Zelle abgeprüft wurde. Deshalb habe ich mir gedacht, dass mit Übereinstimmung der Zelle A1 alle Spalten nach links incl. Spalte C ausgeblendet werden und bei Übereinstimmung mit Zelle A2 alle Spalten incl. Spalte IU (bei Excel 2003, bei Excel 2007 Spalte XFC) ausgeblendet werden.
In dem Bsp.: https://www.herber.de/bbs/user/51237.xls
müssen die Spalten C:AE und die Spalten BK:IU (bei Excel 2003) ausgeblendet werden.
Bei Excel 2007 wären es die Spalten C:AE und die Spalten BK:XFC.
Hat jemand einen Tipp wie ich das realisieren könnte.
Vielen Dank im Voraus
MFG Andre