Zellinhalt in die Kopfzeile
28.11.2004 13:01:05
Korl
ich möchte den Zellinhalt in die linke Benutzerdefinierte Kopfzeile immer automatisch einfügen lassen.
In der Recherche habe ich den nachfolgenden Code gefunden.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error Resume Next
If Target.Address = "$A$1" Then
With ActiveSheet
.PageSetup.LeftHeader = .Range("A1")
End With
End If
End Sub
Den Code habe ich in "Diese Arbeitsmappe" kopiert.
Ich habe mir Probehalber eine Arbeitsmappe mit einem Tabellenblatt angelegt und ausprobiert.
Es wird aber nicht der Zellinhalt von Range("A1") in der Kopfzeile angezeigt.
Was mache ich falsch?
Gruß Korl