habe die folgenden zwei Makros, die beide zusammen in einem Arbeitsblatt laufen sollen. Leider tun sie das nicht. Während das erste Makro seinen Dienst verrichtet, kommt beim zweiten Makro die Fehlermeldung "Fehler beim kompilieren:
Mehrdeutiger Name: Worksheet_Change. Makro 1 übernimmt Werte aus einer Zelle in die Fusszeile, Makro 2 blendet Spalten in Abhängigkeit von der Selektion aus. Wer kann helfen?
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
y = " " & Range("H1")
z = " " & Range("C1")
x = "&""Arial,Fett""&18" & y
w = "&""Arial,Fett""&18" & z
ActiveSheet.PageSetup.RightFooter = (x)
ActiveSheet.PageSetup.CenterFooter = (w)
End Sub
____________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
Const Auswahlzelle = "F1"
Const Monatsüberschriften = "AD5:AQ5"
Dim i As Integer, c As Integer
Dim s_letzte As Range
Dim s_erste As Range
Dim s As Range
If Target.Address(0, 0) = Auswahlzelle Then
Set s_erste = Range(Monatsüberschriften)(1)
Set s_letzte = Range(Monatsüberschriften)(1).Offset(0, Range(Monatsüberschriften).Count - 1)
Range(Monatsüberschriften).EntireColumn.Hidden = False
For Each s In Range(Monatsüberschriften)
If s.Value > Target.Value Then
Range(s, s_letzte).EntireColumn.Hidden = True
Exit For
End If
Next
End If
End Sub