VBA Spalten Ein-/Ausblenden
19.07.2022 16:21:26
Markus
ich habe ein Tabellenblatt, bei dem eine Spalte bereits im Vorfeld als Standard ausgeblendet ist, im Beispiel Spalte G.
Nun habe ich in A1 ein Dropdownfeld und wenn dort eine der Vorgaben ausgewählt wird, dann soll Spalte G eingeblendet werden und dafür dann Spalte H ausgeblendet werden.
Falls es möglich ist, dann auch bitte den Code, wenn ich im Dropdownfeld wieder die Leerzeile auswähle, dass dann Spalte G wieder ausgeblendet wird und Spalte H wieder eingeblendet wird.
Habe mich schon durch Google geklickt und den ein oder anderen Code ausprobiert, allerdings war da nicht das richtige bei.
Weiß bisher, dass ich das im Tabellenblatt als VBAProjekt machen muss, allerdings gibt es da schon ein VBA Projekt:
Private Sub worksheet_change(ByVal Target As Range)
'Quelle: Frank Kabel
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Me.Range("E4:E500")) Is Nothing Then Exit Sub
On Error GoTo CleanUp:
With Target
If .Value "" Then
Application.EnableEvents = False
.Value = UCase(.Value)
End If
End With
CleanUp:
Application.EnableEvents = True
End Sub
Hier die Beispieldatei
https://www.herber.de/bbs/user/154251.xlsx