Ich bräuchte noch ein bisschen Hilfe bei meinen Makros. Hab davon leider absolut keine Ahnung und find auch nichts gescheites, das mir irgendwie die Formeln erklärt...
Den Code hab ich schon:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
Dim iSpalte As Byte
With Sh
Application.ScreenUpdating = False
For iSpalte = 4 To .Range("IV3").End(xlToLeft).Column
Select Case WorksheetFunction.Weekday(.Cells(3, iSpalte))
Case 1
.Columns(iSpalte).Hidden = True
Case Else
.Columns(iSpalte).Hidden = False
End Select
Next iSpalte
Application.ScreenUpdating = True
End With
End If
End Sub
Der funktioniert auch super, nur bezieht er sich immer nur auf Tabelle 1. Ich weiß auch nicht, wie man das ändern kann.in den Tabellen sollen noch dazu in jeder Tabelle andere Spalten ausgeblendet werden... Es muss also wirklich ein Bezug zu einer bestimmten Tabelle her.
Für Tabelle 2 wäre es zum Beispiel:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
Dim iSpalte As Byte
With Sh
Application.ScreenUpdating = False
For iSpalte = 4 To .Range("IV3").End(xlToLeft).Column
Select Case WorksheetFunction.Weekday(.Cells(3, iSpalte))
Case 1
.Columns(iSpalte).Hidden = True
Case Else
.Columns(iSpalte).Hidden = False
End Select
Next iSpalte
Application.ScreenUpdating = True
End With
End If
End Sub
Aber wie sag ich ihm, dass sich das Makro jetzt auf Tabelle 2 bezieht und das andere auf Tabelle 1? :/Danke für die hilfe :)
Liebe Grüße