Makro funktionniert nicht
13.01.2005 13:22:03
Nadine
ich habe eine Tabelle mit ausgefüllten Spalten von A -Z. Nun möchte ich per Makro manch Spalten ausblenden und wieder einblenden können.
Das Makro soll für alle Tabellen anwendbar sein.
Hier mein Makro:
Sub SpaltenAusblenden()
Sheets("Liste").Activate
Columns("A:B").EntireColumn.Hidden = True
Columns("F").EntireColumn.Hidden = True
End Sub
Sub SpaltenEinblenden()
Sheets("Liste").Activate
Columns("A:B").EntireColumn.Hidden = False
Columns("F").EntireColumn.Hidden = False
End Sub
Private Sub CommandButton1_Click()
Dim TB As CommandButton
Set TB = CommandButton1
If TB.Value = True Then
TB.Caption = "Spalten einblenden"
Call SpaltenAusblenden
Else
TB.Caption = "Spalten ausblenden"
Call SpaltenEinblenden
End If
End Sub
Private Sub CommandButton_Click()
Application.Run ("Liste")
End Sub
Was daran nicht?
Er meldet immer Laufzeitfehler 9: Index ausserhalb des Bereichs