Makro funzt nicht!
08.10.2004 10:31:31
Helmut
Ich habe wieder einmal ein Problem. Mit Hilfe dieses super Forums und ein wenig selber basteln habe ich mir nachfolgende Makros gebaut, welche mit Hilfe des ersten Makros nacheinander ablaufen sollen. Das Problem ist, dass das Makro "Ausblenden" nicht funktioniert. Meine Arbeitsmappe hat 26 Blätter. Mit dem Makro "Ausblenden" will ich alle Spalten im Bereich D bis S der Blätter 2 bis 21 (Klasse1....Klasse20) deren Zelle 1 den Wert 0 trägt ausblenden. Dies funktioniert auch mit dem Makro, aber nur wenn ich mich in einem der Blätter "Klasse1"....."Klasse20" befinde. Das Makro müsste aber von jedem Blatt aus funktionieren. Ich habe leider nicht viel Ahnung von VBA, kann mir Jemand helfen?
Ich hatte diese Frage schon mal im Forum, mich aber wohl nicht richtig ausgedrückt.
Danke schon mal.
mfg, Helmut
Sub StartMakro()
aufhebenBlattschutz
Ausblenden
End Sub
Sub aufhebenBlattschutz()
Dim intSheet As Integer
Dim strPass As String
On Error GoTo ErrEnd
'strPass = InputBox("Das Passwort bitte")
Application.ScreenUpdating = False
'Blattschutz aufheben:
For intSheet = 1 To Worksheets.Count
Worksheets(intSheet).Unprotect 'strPass
Next intSheet
Application.ScreenUpdating = True
ErrEnd:
Err.Clear
End Sub
Sub Ausblenden()
Dim wks As Worksheet
Dim TabName As String
Dim I As Integer 'Zähler für Spalten D bis S
Dim X As Integer 'Zahler für Blätter 2 bis 21
Set wks = ActiveSheet
TabName = "Klasse" 'Name der Blätter ohne Index
For I = 4 To 19
If wks.Cells(1, I) = 0 Then
For X = 1 To 20
Sheets(TabName & X).Columns(I).EntireColumn.Hidden = True
Next '& ""
Else
For X = 1 To 20
Sheets(TabName & X).Columns(I).EntireColumn.Hidden = False
Next
End If
Next
End Sub