ich habe folgende Frage. Ich habe mehrere Makros, auch schon aus diesem Forum, nochmals danke dafür. Doch wie bringe ich diese jetzt alle zur Anwendung? Kann ich im VBA einfach hinter einander weg alle aufführen oder muss man diese miteinander verbinden, in einen Code?
Vielen Dank für Eure Hilfe!
Vielleicht, um es gleich konkret zu machen:
Ich habe diese Makros:
Makro 1: zum Ein- und Ausklappen von Spalten
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Address(0, 0) = "C6" Then
Range("F:T").EntireColumn.Hidden = False
Select Case .Value
Case "": Range("F:T").EntireColumn.Hidden = True
Case 1: Range("I:T").EntireColumn.Hidden = True
Case 2: Range("L:T").EntireColumn.Hidden = True
Case 3: Range("O:T").EntireColumn.Hidden = True
Case 4: Range("R:T").EntireColumn.Hidden = True
Case Else
End Select
End If
If .Address(0, 0) = "C7" Then
Range("U:AC").EntireColumn.Hidden = False
Select Case .Value
Case "": Range("U:AC").EntireColumn.Hidden = True
Case 1: Range("X:AC").EntireColumn.Hidden = True
Case 2: Range("AA:AC").EntireColumn.Hidden = True
Case Else
End Select
End If
If .Address(0, 0) = "C8" Then
Range("AD:AI").EntireColumn.Hidden = False
Select Case .Value
Case "": Range("AD:AI").EntireColumn.Hidden = True
Case 1: Range("AG:AI").EntireColumn.Hidden = True
Case Else
End Select
End If
End With
End Sub
Makro 2: später ist alles durch den Blattschutz geschützt, trotzdem soll aber das Ein- und Ausklappen von Gruppierungen noch funktionieren
Sub Workbook_Open()
ActiveSheet.Protect userinterfaceonly:=True, Password:="BICTK"
ActiveSheet.EnableOutlining = True 'für Gliederung
ActiveSheet.EnableAutoFilter = True 'für Autofilter
End Sub
Eigentlich bräuchte ich auch noch eine Lösung damit der Makro 1 nach dem Blattschutz auch noch funktioniert. Tut er nämlich aktuell nicht mehr.
Danke für eure Unterstützung!