Spalten ausblenden (verbundene Zellen)
13.08.2008 14:47:00
Horst_Hb
meine Frage: in 2. Zeile habe ich von Spalte 15 bis 76 immer 2 Zellen nebeneinander verbunden, worin die fortl. Tagesdatume stehen (O2:BX2-> OP2; QR2 ...). 12 Mappenregister als Monate. Wie kann ich denn verbundene Zellen (Spalten somit) ausblenden. Ausblendkriterien: a) Alle Spalten, wo in Zeile2 leer bzw. b) alle Spalten, die Wochenenden enthalten. Ich probiere schon einige Zeit. Das Script für die Leerzellen funktioniert bei unverbundenen Zellen. Und die Wochenenden bekomme ich auch nicht hin. Ist mir bitte Jemand behilflich? Wäre toll. Danke+Gruß, Horst_Hb
Sub SpaltenAusblenden()
'Dim wd As Integer
'we = Weekday(Date) > 5 'Weekday(,2)
Range("O2").Activate 'Startstelle immer 2 verbundene OP2; UV2 ... BWBX2 (letzte)
For Z = 15 To 76 'einschl. 76 durch verbunden
ActiveCell.Offset(0, 1).Select
If ActiveCell.Value = "" Then ActiveCell.EntireColumn.Hidden = True
' + Ausblenden der Wochenenden (Sa+So)
Next Z
End Sub
Beispiel:
https://www.herber.de/bbs/user/54579.xls