Spalten ausblenden
19.07.2007 16:43:16
Reto
Ich bin neu hier und leider auch nicht so erfahren in VBA.
Folgendes Problem beschäftigt mich:
Ich habe ein Kalender mit allen Daten des Jahres von links nach rechts in Zeile 1 und den dazugehörigen Tagen in der derunter liegenden Zeile 2. In Zeile 4 habe ich bei allen Tagen wo meine Mannschaft Training hat ein "T" eingefügt. Nun hätte ich gerne in einem anderen Arbeitsblatt dieselbe Darstellung (Datum, Tag und T für Training) aber nur mit den Tagen sichtbar, an welchen auch wirklich Training ist. Die anderen sollen automatisch ausgeblendet werden.
Für eine Woche hab ich das hingebastelt (Leider nur im selben Arbeitsblatt):
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("A4") = "" Then
Columns("A:A").EntireColumn.Hidden = True
End If
If Range("B4") = "" Then
Columns("B:B").EntireColumn.Hidden = True
End If
If Range("C4") = "" Then
Columns("C:C").EntireColumn.Hidden = True
End If
If Range("D4") = "" Then
Columns("D:D").EntireColumn.Hidden = True
End If
If Range("E4") = "" Then
Columns("E:E").EntireColumn.Hidden = True
End If
If Range("F4") = "" Then
Columns("F:F").EntireColumn.Hidden = True
End If
If Range("G4") = "" Then
Columns("G:G").EntireColumn.Hidden = True
End If
End Sub
Hier mein Dokument:
Die Datei https://www.herber.de/bbs/user/44230.xls wurde aus Datenschutzgründen gelöscht
Freundliche Grüsse
Reto