Select Range-Methode
27.08.2005 12:05:56
gerhard
Ich möchte einzelne Spalten ein- und ausblenden.
Ich nutze folgenden Script:
Private Sub OptionButton1_Click()
' Einblenden
Sheets("Ergebnis").Select
Columns("C:C").Select
Selection.EntireColumn.Hidden = False
Sheets("Auswahl").Select
End Sub
Private Sub OptionButton2_Click()
' Ausblenden
Sheets("Ergebnis").Select
Columns("C:C").Select
Selection.EntireColumn.Hidden = True
Sheets("Auswahl").Select
End Sub
Dabei erhalte ich immer folgende Fehlermeldung:
"Die Select-Methode des Range-Objektes konnte nicht ausgeführt werden"
Was muß ich tun, damit es funktioniert.
Danke im Voraus für Eure Hilfe.
Grüße vom Bodensee
Gerhard