VB-Skript - Modifizierung
18.09.2008 13:50:19
Philip
habe vor einiger Zeit mal in einer Arbeitsmappe ein Blatt erstellt, bei dem in Zeile 1 Datumsangaben stehen, und zwar eine für jeweils zwei Spalten (Jeweils zwei Zellen in Zeile 1 sind dafür verbunden worden.). In diesem Forum half man mir dann, mit einem Visual-Basic-Script automatisch diejenigen Spalten auszublenden, die nicht dem aktuellen Datum entsprechen. Das Skript sieht wie folgt aus:
Private Sub Worksheet_Activate()
Dim i As Integer, x
Application.DisplayAlerts = False
Application.ScreenUpdating = False
x = 0
Range("H1", "BQ1").MergeCells = False
For i = 9 To 70 Step 2
If Cells(1, i) Date And Cells(1, i - 1) Date Then
Range(Cells(1, i - 1), Cells(1, i)).Columns.Hidden = True
Else
x = x + 1
Range(Cells(1, i - 1), Cells(1, i)).Columns.Hidden = False
Range(Cells(1, i - 1), Cells(1, i)).MergeCells = True
End If
Next
If x = 0 Then
Range("H1", "BQ1").Columns.Hidden = False
For x = 8 To 70 Step 2
Range(Cells(1, x), Cells(1, x + 1)).MergeCells = True
Next
End If
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Nun wäre es mir lieber, wenn ich einen Button erstellen und mit einem ähnlichen Skript verknüpfen könnte (wie das geht, weiß ich). Man sollte den Vorgang manuell durchführen können, dann aber auch wieder alle Spalten anzeigen (bei nochmaligem klicken). Es soll keinerlei selbständige Einblendung/Ausblendung mehr erfolgen.
Für Hilfe bin ich sehr dankbar.
Liebe Güße
Philip