Makro automatisch starten

Hallo zusammen,
Ich möchte in meiner Beispiel-Datei: https://www.herber.de/bbs/user/75684.xlsm
das Makro starten, wenn sich die Werte in der Spalte A ("A1:A10") ändern.
Dieses Makro funktioniert einwandfrei wenn ich das Makro über die F5-Taste manuell aufrufe!

Sub Inhalte_einfügen()
Range("A1:A10").Select
Selection.Copy
Sheets("Tabelle2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
End Sub

Wie gesagt, es soll automatisch ablaufen, wenn sich der Wert der festen Zelle ändert: durch direkte Zelleingabe
In diversen Beiträgen soll das angeblich über den Befehl ablaufen:
Sub Worksheet_Change(ByVal Target As Range)
Berechnete Werte sollen dann angeblich mit der Funktion laufen:
Sub Worksheet_Calculate(ByVal Target As Range)
Keines dieser beiden Funktionen konnte ich in meiner Beispiel-Tabelle zu laufen bringen.
Da ich selber Laie auf dem Gebiet bin, bitte ich diese Funktionen in die Beispiel-Tabelle
einzutragen. Ich weiß selber, dass schon viele Beiträge zu diesem Thema gelöst wurden.
Leider konnte ich keine der Beiträge für mich nutzen, weil ich auch nicht genau weiß,
ob der Code in die Tabelle1 oder Tabelle2 geschrieben wird.
Vielen Dank im voraus
Franky

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

'Ereignismakro unter Tabelle1 Private Sub Worksheet_Change(ByVal Target As Range) ' Inhalte_einfügen Makro If Not Intersect(Target, Range("A1:A10")) Is Nothing Then Range("A1:A10").Copy Worksheets("Tabelle2").Cells(1, 1).PasteSpecial Paste:=xlPasteValues, _ Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Worksheets("Tabelle2").Activate 'Nur erforderlich, wenn du unbedingt die Ansicht auf die _ Tabelle haben willst. End If End Sub

Private Sub Worksheet_Calculate() 'Ereignismakro unter Tabelle1 ' Inhalte_einfügen Makro If Not Intersect(Target, Range("A1:A10")) Is Nothing Then Range("A1:A10").Copy Worksheets("Tabelle4").Cells(1, 1).PasteSpecial Paste:=xlPasteValues, _ Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Worksheets("Tabelle4").Activate 'Nur erforderlich, wenn du unbedingt die Ansicht auf die _ Tabelle haben willst. End If End Sub

…Prozedur wird erst nach Abschluss aller Berechnungen des Blattes ausgelöst, Franky!
_Change kennt zwar Target, wird aber nur ausgelöst, wenn sich Zellinhalte ändern, also manuell oder automatisch ein Wert oder eine Fml eingetragen wird. Ein neuer Wert als FmlErgebnis nur auf Grund einer Neuberechnung tut das nicht, nur die Zelle, deren Änderung die Neuberechnung auslöst. Auf die verweist dann auch Target. Wenn du _Calculate benutzen kannst/willst, das auch Sinn macht, ist die fehlerverursachende Zeile und das zugehörige End If zu entfernen.
Hat man dir den geposteten Code so vorgeschlagen…? Nachlesen in der vbHilfe unter Ereignisprozeduren könnte wohl nicht schaden…!
Gruß Luc :-?

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro automatisch starten

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread