Automatisches Ausblenden von Spalten
19.07.2007 02:53:28
Spalten
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
Nun komme ich aber nicht mehr weiter und hoffe jemand von euch kann mir weiterhelfen.
Freundliche Grüsse
Reto
