VBA Kopfzeile aus anderem Blatt
18.11.2021 14:11:01
Marco
ich versuche über Makro die Kopfzeile in verschiedenen Tabelllen mit und durch Zeileneingaben einer bestimmten Tabelle zu aktualisieren.
Also wenn in Tabelle1 in Zelle A1 eine Eingabe erfolgt, erscheint das in der Kopfzeile von Tabelle1. Das habe ich hinbekommen.
Wenn in Tabelle1 in Zelle A1 eine Eingabe erfolgt, soll das aber auch in der Kopfzeile von Tabelle2 erscheinen.
Dabei besteht die Kopfzeile aber aus mehr als nur dem Zeileninhalt und unterscheidet sich daher auch in den verschiedenen Mappen.
Was ich für Mappe 1 habe ist:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Kopf1 As String
Kopf1 = Target.Address
If Kopf1 "$A$1" Then Exit Sub
Kopf1 = "Tabelle1: " & CStr(Range("A1")) & Chr(13) & " - &P/&N"
ActiveSheet.PageSetup.RightHeader = Kopf1
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Kopf2 As String
Kopf2 = Target.Address
If Kopf2 "A1" Then Exit Sub
Kopf2 = "Tabelle2: " & CStr(Sheets("Tabell1").Range("A1")) & Chr(13) & " - &P/&N"
ActiveSheet.PageSetup.RightHeader = Kopf2
End Sub
Was ich wünsche wäre bei Eingabe A1 von Tabelle1, dass sich die Kopfzeile von Tabelle2 mit dem Inhalt aus Tabelle1 A1 aktualisiert.
Hat hier jemand eine Idee?