AW: Nur die nächste Spalte einblenden
14.07.2014 17:54:18
Adis
Hallo
anbei ein kleines Makro das im VBA Editor in ein normales Modul kopiert werden muss
Das Kombi Makro kann z.B. über eine Schaltfläche im Blatt direkt aktiviert werden.
'Grundsätzliche Funktion (nur zum Verständnis) aber sehr unpraktisch
Sub Spalte_Einblenden()
Columns("B:B").EntireColumn.Hidden = False 'Spalte einblenden
End Sub
'diese Makro kann über eine Schaltfläche aktiviert werden!
'Es ist ein Kombi Makro für beides, -Ein und ausblenden-
Sub Kombi_InputBox_Spalte_Ein_Ausblenden()
On Error GoTo Feh
Txt1 = "welche Spalte wollen Sie Ein- ausblenden?"
Txt2 = "Ein-Aus als Text nach der Spalte angeben"
Beisp = "B Aus-Ein / B:C aus-ein"
'InputBox mit Text aufrufen
Spalte = InputBox(Txt1 & Chr(10) & Txt2 & Chr(10) & Beisp)
'On/Off Aktion und Spalten Auswertung
OnOff = Right(Spalte, Len(Spalte) - InStr(Spalte, " "))
Spalte = Left(Spalte, InStr(Spalte, " ") - 1)
'Spalten Ein- ausblenden
If OnOff = "Aus" Or OnOff = "aus" Then
Columns(Spalte).EntireColumn.Hidden = True 'Spalte ausblenden
ElseIf OnOff = "Ein" Or OnOff = "ein" Then
Columns(Spalte).EntireColumn.Hidden = False 'Spalte einblenden
Else: MsgBox "unklare Angabe, nicht ausführbar"
End If
Exit Sub
Feh: MsgBox "falsche Eingabe"
End Sub
Gruss Adis