Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1944to1948
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1944to1948
1944to1948
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

makro automatisch ausführen, in der geänderten Zelle

makro automatisch ausführen, in der geänderten Zelle
27.09.2023 10:20:17
Ronny
Hallo zusammen

ich habe eine Frage, man kann ja über

Private Sub Worksheet_Change(ByVal Target As Excel.Range) 

Private Sub Worksheet_Change(ByVal Target As Excel.Range)



Application.ScreenUpdating = False





Call Dienstplan_färben



Application.ScreenUpdating = True



End Sub



das Makro bei Änderung allein starten lassen.

Kann man irgendwie definieren, das dieses Makro nicht auf dem kompletten Blatt angewendet wird, sondern nur in der geänderten Zelle?

Ich würde gern die Dauer der Ausführung verringern, weil es aktuell lange dauert bis das Makro durchgelaufen ist.

MFG Ronny

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: makro automatisch ausführen, in der geänderten Zelle
27.09.2023 10:25:18
onur
Das gepostete Makro macht nix ausser ein anderes (Dienstplan_färben) aufzurufen. Wenn du also ein Problem damit hast, musst du es dort suchen.
AW: makro automatisch ausführen, in der geänderten Zelle
27.09.2023 10:45:55
Ronny
Ach ja da war ein fehler ich habe in der Makro was aufgerufen wird eine Range festgelegt in der das Makro ausgeführt wird. 

Sub Dienstplan_färben()



Dim Zelle As Range

Dim bereich As Range

Dim Bereich2 As Range



Set bereich = Range("A3:AF25")



Kann ich die Range auf die zellen ändern in denen die getätigte Änderung stattgefunden hat?

LG Ronny
AW: makro automatisch ausführen, in der geänderten Zelle
27.09.2023 10:47:37
onur
Es gibt jetzt eine neue Erfindung, die sich Satzzeichen nennt. Die macht Sätze verständlich!
Anzeige
AW: makro automatisch ausführen, in der geänderten Zelle
27.09.2023 10:57:11
Ronny
Hier mal die Beispieldatei

https://www.herber.de/bbs/user/163129.xlsm



Also ich würde gern, das wenn ich die Zelle F4 ändere, er das Makro ausführt und zwar nur in der Zelle F4.
Wenn ich die Zelle J7 ändere, er das Makro nur in Zelle J7 ändert usw.

Also das Makro nur in der Zelle ausgeführt wird in der auch die letzte Änderung war.


Das Makro überprüft nach Zellinhalt und färbt diese dann in der entsprechenden Farbe.

Habe es diesmal extra mit mehr Satzzeichen versucht,

LG

Ronny
Anzeige
AW: makro automatisch ausführen, in der geänderten Zelle
27.09.2023 11:19:15
onur
"Habe es diesmal extra mit mehr Satzzeichen versucht, " - Das war aber nett von dir? Hat doch gar nicht wehgetan - oder ?
1) Das Makro, das du zuerst gepostet hattest, kann doch gar nicht gelaufen sein, da es im Modul der Mappe statt im Modul des Blattes steht.
2) Wozu brauchst du ein Makro, um Zellen je nach Wert zu färben ? Das kann man einfach mit bedingter Formatierung erreichen.
AW: makro automatisch ausführen, in der geänderten Zelle
27.09.2023 12:33:44
Ronny
Hallo Onur,

Zu 1)

Ich hatte es in der Beispielmappe ins falsche Modul gespeichert.

zu 2)

ich würde es ungern über bedingte Formatierung machen, da ich andere bedingte Formatierungen schon laufen habe und es in VBA für mich einfacher ist neue farbbedingungen zu erstellen als diese dann in den Bedingten Formatierungen einzufügen.

Bisher klappte mein Mappe auch immer so.

Wenn ich es über Worksheet activate mache geht es auch weiterhin sehr schnell. Jedoch ändert er natürlich die Farbe nicht wenn ich im activen Blatt etwas ändere. Dies war mein Ziel.


Da ich gleich keinen Zugriff mehr auf die Datei habe, kann ich mich erst wieder am Montag damit beschäftigen.

Falls du oder jemand anders meinst, das dies generell nicht möglich ist, bedanke ich mich trotzdem schon einmal für deine Mühe.

LG

Ronny
Anzeige
AW: makro automatisch ausführen, in der geänderten Zelle
27.09.2023 10:26:24
Oberschlumpf
Hi

dieser Code... 


Private Sub Worksheet_Change(ByVal Target As Excel.Range)



If Target.Address = "$A$1" Then

    Application.ScreenUpdating = False

    Call Dienstplan_färben

    Application.ScreenUpdating = True

End If



End Sub

...würde dein Makro nur starten, wenn du - nur - in Zelle A1 etwas änderst.

Aber sehr wahrsch würde dein Makro dann auch lange dauern, weil ja egal ist, WO du etwas änderst, sondern wichtig ist, WAS GENAU macht dein Makro?

Daher würd ich vorschlagen, zeig uns per Upload eine Bsp-Datei, mit Bsp-Daten, mit deinem Makro, unnnnd...
...beschreib noch mal genauer, wann genau soll dein Makro gestartet werden, und was genau soll dein Makro eigtl tun?

Ciao
Thorsten
Anzeige

306 Forumthreads zu ähnlichen Themen

Makro soll automatisch starten
Karsten

Hallo...
ich möche, dass folgender Makro automatisch startet, wenn die Datei geöffnet wird.
varResult = Application.Match(CDbl(Date), Range("A:A"), 0)
If IsNumeric(varResult) Then Application.GoTo Cells(varResult, ActiveCell.Column)
Kann mir jemand weiterhelfen? Danke.
Gru...
23.02.2009 12:01:09
Thread-ID: 1053027
11 Beiträge
Anzeige
Visio Datei öffnen und makro ausführen
Thomas

Hallo liebe VBA Gemeinde
Diesmal habe ich ein Schnittstellenproblem. Und zwar möchte ich aus Excel über einen Button eine Visio Datei aufrufen/öffnen (ist im gleichen Verzeichnis) und ein dort gespeichertes Makro ausführen (call Auswahl).
Das Makro benötigt die Variable "AKZ" die von E...
29.09.2009 12:14:45
Thread-ID: 1106163
4 Beiträge
Makro beim Blattwechsel ausführen ..
WalterK

Hallo,
den Code in der beigefügten Mappe habe ich aus diesem Forum, es wird das Blatt INHALT angelegt und dort werden dann alle Blätter aufgelistet. Funktioniert auch tadellos.
https://www.herber.de/bbs/user/65643.xls
Ich hätte es jetzt gerne so, dass der Code immer beim Öffnen der...
07.11.2009 02:34:11
Thread-ID: 1115131
4 Beiträge
Anzeige
Makro beim beim Öffnen von .xls autmatisch starten
Andi

hallo zusammen,ich habe schon recherchiert, aber leider nichts gefunden.deshalb wende ich michdirekt an die spezis.
wie kann ich ein makro automatisch beim start einer excel-datei starten und wo muß ich das makro plazieren??dank im voraus
mfg
11.04.2002 09:59:08
Thread-ID: 112333
4 Beiträge
Makro beim Öffnen starten
Hajo
Hallo Mikeschreibe Dein Makro in DieseArbeitsmappe unter
Private Sub Workbook_Open()
Gruß Hajo
15.04.2002 20:57:39
Thread-ID: 113531
11 Beiträge
Makro starten nach Öffnen der Arbeitsmappe
meixner

Hallo zusammen,
ich möchte das unteres Makro nach Eröffnen der Excel - Arbeitsmappe automatisch ausgeführt wird.
Was muss ich da machen?
Vielen Dank für Tips.
Dani.
Sub Update_bestände() 'Fondsbestände werden aktualisiert Range("B23").Select Sheets("AlleBestände_alleFonds")....
01.02.2010 11:23:24
Thread-ID: 1134745
6 Beiträge
Makroeditor stürzt beim Öffnen ab
andi

Hallo zusammen,
ich habe jetzt seit ca. 2 wochen das Problem, dass auf einem Rechner Excel abstürzt, sobald man versucht den Makro-Editor zu öffnen, oder irgendein Makro auszuführen. Es stürzt selbst dann ab, wenn man den Editor in einem neuen, leeren Workbook öffnet. Hat also nichts mit de...
24.02.2010 13:07:32
Thread-ID: 1140626
3 Beiträge
Makro automatisch bei Zellenänderung ausführen
Michael

Hallo,
für eine Tabelle nutze ich folgendes Makro: Sub einfärben() For Each Cell In Range("H5:AH16") If Cell = "SE" Then Cell.Interior.ColorIndex = 3 Cell.Font.ColorIndex = 3 End If If Cell = "TW" Then Cell.Interior.ColorIndex = 4 Cell.Font.ColorIndex = 4 End If If Cell = "BS" Then Cell.In...
16.03.2010 10:59:21
Thread-ID: 1146150
15 Beiträge
Anzeige

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
10
2
3
3
2
3
10
5
2
14
2
3
2
5
4
3
3
3
7
1
8
2
1
8
1