Office: Makro Ausführen bei Enter

Hallo Zusammen

Ich suche eine Lösung für mein Problem.
Ich würde gerne ein Makro Ausführen wenn ich eine Zelle ändere und mit Enter Bestätige. Die Änderung soll dann in der Fusszeile angezeigt werden.
Kann mir jemand helfen.
Mein Makro sieht zurzeit so aus.

Sub PfadInFusszeile()
Application.OnTime Now + TimeSerial(0, 5, 0), "PfadInFusszeile"
Dim ws As Worksheet
For Each ws In Worksheets
With ws.PageSetup
.CenterFooter = Sheets("Deckblatt").Range("B15").Value
.RightFooter = Sheets("Deckblatt").Range("G15").Value
.LeftFooter = Sheets("Deckblatt").Range("C5").Value
End With
Next ws
End Sub

Damit Aktualisiert das Makro alle 5 Minuten selber. Ich hätte aber gerne das die Änderung sofort nach der Eingabe aktualisiert wird.

Besten Dank Ciro

:)

 

benutze
Private Sub Worksheet_Change(ByVal Target As Range)

unter der Tabelle.

 

Hallo Hajo

Danke für Deine Antwort. Wo muss ich die Zeile einfügen?
Habe es Probiert, geht aber nicht.

Gruss Ciro

 

ich bin dann raus, da meine Beiträge nicht komplett gelesen werden.
Das wird schon seinen Grund haben.

 

Hallo Ciro,

rechte Maustaste bei Sheets Deckblatt (im Register) -> Code anzeigen
und diesen Code einfügen.

deinen Code aus dem Modul kannst du dann löschen.

Code:

 

Hallo Chris

Danke vielmals. Das hat Super Funktioniert. Du warst eine grosse Hilfe.*Smilie

Gruss Ciro

 

Hallo, ich habe diesen wunderschönen Code kopiert und nach meinen Bedürfnissen angepasst, Leider kann ich das Makro nicht sauber beenden, bzw. weiß ich nicht wie; ich selbst bin Neuling in Sachen vba.

Code:

Sub PfadInFusszeile()
Application.OnTime Now + TimeSerial(0, 0, 20), "PfadInFusszeile"
Dim ws As Worksheet
For Each ws In Worksheets
With ws.PageSetup
ImportSiusData 0
End With
Next ws
End Sub

Der Code ruft also einen weiteren Code auf, der ausgeführt wird, x-Wiederholungen.

Ich benötige zwei einfache Schaltflächen, mit denen ich die Wiederholungen starte und beende. Vielen Dank für Input.