Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1528to1532
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
1528to1532
1528to1532
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro ausführen wenn Zelle sich ändert

Makro ausführen wenn Zelle sich ändert
09.12.2016 10:01:49
Blue
Servus,
ich bräuchte mal wieder eure Hilfe.
Habe ein Makro welches mir die Formatierung von einer Zelle auf andere überträgt.
Nun würde ich es allerdings immer dann starten lassen wenn sich in dieser Zelle etwas ändert.
Das wäre das Makro:
Sub Projekt_formatiern()
Range("C3:C4").Select
Selection.Copy
Range("J3:J4, Q3:Q4, C12:C13, J12:J13, Q12:Q13, C21:C22, J21:J22, Q21:Q22, C30:C31, J30:J31, _
Q30:Q31, C39:C40, J39:J40, Q39:Q40, C48:C49, J48:J49, Q48:Q49").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Hat da jemand eine Lösung für mich?
mfg Blue Bird

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

Betreff
Datum
Anwender
Anzeige
AW: Makro ausführen wenn Zelle sich ändert
09.12.2016 10:45:05
Nermin
Hallo Blue Bird,
hatte mich vor einiger Zeit damit ausseinander gesetzt, weiß jedoch nicht genau was du machen willst aber das geht ungefähr so:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Und dann musst du den Range ("C3:C4") als Target definieren.
Google mal bisschen weil eine Paradelösung weiß ich auf Anhieb nicht.
MFG NERMIN
AW: Makro ausführen wenn Zelle sich ändert
09.12.2016 10:45:34
Matthias
Hallo
Wenn welche Zelle sich ändert? Vermutl. C3 oder C4
Hier mal ohne Select.
Range("C3:C4").Copy
Range("J3:J4, Q3:Q4, C12:C13, J12:J13, Q12:Q13, C21:C22, J21:J22, Q21:Q22, C30:C31, J30:J31,Q30: _
Q31 , C39: C40 , J39: J40 , Q39: Q40 , C48: C49 , J48: J49 , Q48: Q49 ").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False


Code in die entsprechende Tabelle:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C3:C4")) Is Nothing Then
Range("C3:C4").Copy
Range("J3:J4, Q3:Q4, C12:C13, J12:J13, Q12:Q13, C21:C22, J21:J22, Q21:Q22, C30:C31, J30:J31, _
Q30: Q31 , C39: C40 , J39: J40 , Q39: Q40 , C48: C49 , J48: J49 , Q48: Q49 ").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End If
End Sub
Gruß Matthias
Anzeige
AW: Makro ausführen wenn Zelle sich ändert
09.12.2016 10:54:53
Blue
Servus Matthias,
danke erstmal vielmals für deine Hilfen.
Habe grad festgestellt das ich mich nicht korrekt ausgedrückt habe.
Denn das Makro soll gestartet werden wenn sich was an bzw in der Zelle ändert.
Also wenn irgendeine Formatierung vorgenommen wird und nicht nur der Inhalt.
Hoffe du hast auch dafür eine Lösung.
mfg Blue Bird
eine Formatierung löst kein Ereignis aus ...
09.12.2016 10:59:48
Matthias
Hallo,
eine Formatierung löst kein Ereignis,
das wird also nichts.
Gruß Matthias
AW: eine Formatierung löst kein Ereignis aus ...
09.12.2016 11:15:20
Blue
Servus Matthias,
alles klar dann weiß ich bescheid und lasse das Makro einfach über einen Button ausführen.
Danke für die Hilfe!
mfg Blue Bird
Anzeige
Genauer: eine reine Formatierung tut's nicht, ...
09.12.2016 15:45:28
Luc:-?
…Matti,
ein FormatAufkopieren mit dem Pinsel schon…
Gruß + schö3AdWE, Luc :-?
Ja, da hast Du Recht, Luc. Schö3AdWE auch Dir oT
09.12.2016 22:40:19
Matthias

301 Forumthreads zu ähnlichen Themen

Makro ausführen wenn Zellwert sich ändert
joko

Hallo alle zusammen,
ich hab da leider ein Problem.
Das Makro läuft, wenn ich es manuell starte richtig, wenn ich es per Atuomatik starte falsch.
Ich möchte:
Im Blatt 2 (FEB) die Spalte für den 29. Tag Jahreszahlabhängig ein und ausblenden.
Jahreszahl wird veränder im Blatt...
04.09.2009 20:47:54
Thread-ID: 1100695
3 Beiträge
Anzeige
Makro ausführen bei schließen der Mappe | Herbers Excel-Forum
Wolle
Guten Morgen Forum,
habe da ein Problem mit einem Makro. Ich möchte das es beim schließen der Mappe ausgeführt wird.
Das Makro unterbindet das Kopieren und ziehen von Zellen und wid beim start der Mappe aktiviert mit:
Private Sub Workbook_Open() CutCopyOff End Sub Dann wollte ich ich d...
26.01.2010 08:21:02
Thread-ID: 1132899
7 Beiträge
Makro ausführen wenn Zellwert sich ändert
Falk

Hallo zusammen,
ich habe folgende Herausforderung, von der ich überhaupt keine Ahnung habe wie ich es angehen soll.
Die Zelle A6 enthält ein Auswahlfelder (über Daten - Gültigkeit - Gültigkeitsprüfung - Liste) aus dem man zwei verschiedene Werte auswählen kann.
Ich möchte jetzt, wen...
28.01.2010 13:33:44
Thread-ID: 1133731
4 Beiträge
Anzeige
Makro ausführen auch bei Schreibschutz?
ck8600

Hallo,
ich habe eine Arbeitsmappe, die mit Makros versehen ist. Auf diese Tabelle greifen mehrere Personen zu.
Nun kann es passieren, dass 3 Leute gleichzeitig in die Datei wollen, einer ist der Glückliche und die anderen zwei, können die Datei nur im Schreibschutzmodus öffnen.
Die...
05.05.2010 13:43:39
Thread-ID: 1155592
5 Beiträge
Makro ausführen bei Eingabe x
Fritz_W

Hallo Forumsbesucher,
bitte um eure Hilfe.
Wie kann ich erreichen, dass immer wenn ich in der Tabelle in der Zelle X1 ein "x" eingebe,
das Makro "Test" gestartet wird.
Vielen Dank für eure Hilfe.
mfg
Fritz
12.06.2010 12:29:07
Thread-ID: 1161509
6 Beiträge
Makro ausführen, wenn Zellinhalt geändert wird
Dogbert

Hallo!
Ich habe in einer Zelle eine Datengültigkeit angegeben. Als gültig angegeben habe ich eine Liste von Werten, die in Zellen stehen. (Möglich sind die Werte "ja" oder "nein".)
Nun suche ich eine Möglichkeit, ein Makro auszuführen, sobald der Zellinhalt verändert wird. Wenn also "ja...
06.08.2010 10:12:51
Thread-ID: 1170856
6 Beiträge
Makro automatisch ausführen Zelländerung
Alex

Hallo an alle,
Folgendes Problem:
Wenn sich der Wert in der Zelle DF8 verändert soll
das Makro aktualisieren durchgeführt werden.
Wer kann mir helfen.
Garantierte Rückmeldung.
Danke
Alex
25.12.2010 11:49:54
Thread-ID: 1192777
4 Beiträge
VBA Makro ausführen bei Verlassen einer Zelle
KT

Hallo,
ich möchte gerne, dass mein Solver-Makro ausgeführt wird, wenn der Anwender die Zelle B1, B2, B3, B26, B27 oder B28 nach einer Veränderung verlässt. Zum besseren Verständnis habe ich hierzu meine Excel-Datei hochgeladen.
https://www.herber.de/bbs/user/74230.xls
Die Solverfun...
31.03.2011 14:28:47
Thread-ID: 1208514
3 Beiträge
Anzeige

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
2
10
6
3
14
4
5
5
3
2
1
3
2
8
3
2
3
4
12
1
13
4
2
8
8