Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.01.2025 19:56:02
Variablen Zellinhalt löschen
20.01.2025 16:28:16
Teil Sendkeys plus Buchstaben aus Zelle
20.01.2025 16:22:19
VBA zum Abgleich funktioniert nicht
20.01.2025 15:11:43
Dynamische Berechnung aus Einnzelteilen in einem Ganzen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1844to1848
1844to1848
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

WorkbooK_SheetChange

Kategorie
Bedingte Formatierung
Tags
#bedingung #färbung #vba
Relevante Fragen
Anzeige
WorkbooK_SheetChange
07.09.2021 17:28:33
aaron
Hallo zusammen,
ich bräuchte dringend mal hilfe von euch,
und zwar betrifft es Workbook_SheetChange:
Ich möchte wenn ich in Spalte A ein x einsetze dann soll sich die Zelle Rot Färben, in Spalte B gleiches Prinzip nur mit Grün.
So zudem möchte ich aber wenn ich in Spalte B ein x in die Zelle schreibe das sich in Spalte A die Zelle löscht die gegenüber ist.
Und natürlch soll die Zelle keine Färbung mehr haben.
Ich habe sehr viel herumprobiert bekomme es aber leider nicht hin.
Könntet Ihr mir bitte vll da Helfen?
Gruß Aaron
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: WorkbooK_SheetChange
07.09.2021 17:30:54
Hajo_Zi
Hllo Aaron,
warum nicht bedingte Formatierung?
GrußformelHomepage
Anzeige
AW: WorkbooK_SheetChange
08.09.2021 16:36:28
aaron
Hallo Hajo,
mir wurde geholfen, aber trotzdem vielen Dank.
Werde es aber trotzdem mal mit deinem Tipp versuchen :)
Gruß Aaron
AW: WorkbooK_SheetChange
07.09.2021 19:01:58
Nepumuk
Hallo Aaron,
Rechtsklick auf den Tabellenreiter - Code anzeigen. Folgende Prozedur einfügen:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim objRange As Range, objCell As Range
Set objRange = Intersect(Target, Columns("A:B"))
If Not objRange Is Nothing Then
Application.EnableEvents = False
For Each objCell In objRange
With objCell
If .Column = 1 Then
If .Value = "x" Then .Interior.Color = vbRed
ElseIf .Column = 2 Then
If .Value = "x" Then
.Interior.Color = vbGreen
With .Offset(0, -1)
.Value = Empty
.Interior.Pattern = xlPatternNone
End With
End If
End If
End With
Next
Application.EnableEvents = True
Set objRange = Nothing
End If
End Sub
Gruß
Nepumuk
Anzeige
AW: WorkbooK_SheetChange
08.09.2021 16:17:07
aaron
Hallo Nepumuk,
super, funktioniert klasse.
Ich danke dir Nepumuk.
Gruß Aaron

Forumthreads zu verwandten Themen

VBA-Problem Change-Event/UDF/Gültigkeit
Erich

Hallo zusammen,
Markus hat in https://www.herber.de/forum/archiv/1012to1016/t1013729.htm ein IMHO interessantes Problem gepostet.
Da der Thread jetzt bald ins Archiv wandert, wir aber noch keine Erklärung gefunden haben,
stelle ich die Frage hier nochmal ein.
In der Beispielmapp...
05.10.2008 11:52:00
Thread-ID: 1014215
2 Beiträge
Worksheet_Change(ByVal Target As Range)
Axel

Ein schönes Wochenende zuvor wünschend!
Aufgabenstellung:
Ich möchte in einer Zelle einen Wert schreiben, was ein Makro auslösen soll. In einer Zweiten soll dadurch automatisch eine Umrechenformel einfügt werden. Auf diese Weise kann man (trivial, nur als Beispiel) bei der Bedienung ein...
06.03.2009 15:21:33
Thread-ID: 1057353
7 Beiträge
Worksheet_Change(ByVal Target As Range)
Axel


Hallo Könner,
mal wieder an einem Punkt angekommen, wo ich echt nicht weiß, ob die PCs was Magisches können.
Das Makro unten ist prima gelaufen. Und dann mal wieder nicht. Jetzt gerade mal wieder nicht, daher mein Hilferuf. Als mir das das erste Mal passiert ist, habe ich den ganze...
13.03.2009 12:08:19
Thread-ID: 1059821
5 Beiträge
Anzeige
VBA calculate/change event
Frank

Guten Tag allerseits,
ich hoffe es ist jemand so nett, sich meiner anzunehmen und unterstützt mich bei der Lösung folgenden Problems:
Ich möchte ein Excel-Diagramm (2003) dynamisch über veränderbare Werte aus bestimmten Zellen skalieren. Es handelt sich um ein Diagramm mit jeweils primä...
09.04.2009 16:07:47
Thread-ID: 1068059
7 Beiträge
Anzeige
Probleme Worksheet_Change(ByVal Target As Range)
Ron

Hallo Leute,
habe mir vor einigen Wochen hier im Forum von Daniel helfen lassen und wollte nun den von ihm geposteten Script ein wenig auf meine Bedürfnisse umschreiben. Leider bin ich wohl zu blöd...
Es wäre Klasse, wenn mir jemand helfen könnte!
Ausgangslage:
Ich möchte in ein...
28.04.2009 04:06:20
Thread-ID: 1071514
4 Beiträge
kleine Frage zu: worksheet change event
Bernd

Guten Abend!
ich versuche mich gerade ein bißchen in VBA insbesondere das worksheet change event zu vertiefen und würde mich über einen Rat freuen.
In A1:A5 habe ich sich verändernde Zahlen von 1 bis 3. Wenn sich in der Spalte A ein Wert verändert, sollen in der entsprechenden Zeile - u...
28.07.2009 19:55:23
Thread-ID: 1092055
8 Beiträge
x1 = .CreateEventProc("Change", "Worksheet")
Oliver

Hallo Kollegen,
ich habe ein Problem bei der .CreateEventProc("Change", "Worksheet")
Mein Code sieht wie folgt aus
Sub Makro_in_Worksheet_zufügen() Dim x As Variant, x1 As Long, x2 As Long, Anzahl_der_Zeilen As Long, Tabellennummer As _ String DIM Tabellenname As String Applicati...
05.10.2009 20:46:33
Thread-ID: 1107220
3 Beiträge
Rückgängig Button nach Worksheet_Change
Chris

Hi,
habe in einem Sheet u.a. ein Worksheet_Change Makro laufen, das bestimmte Werte in bestimmte Zeilen kopiert.
Nachdem ich in dem Sheet ein paar Eingaben gemacht habe, kann ich leider den Rückgängig Button nicht benutzen. Das rührt wohl daher, dass nach einer jeglichen Eingabe das Mak...
21.01.2010 11:27:29
Thread-ID: 1131701
9 Beiträge
Anzeige
Worksheet_Change Problem, wenn Target gelöscht wir
Gianni

Guten Abend
Habe folgendes Problem, bei dem ich nicht weiterkomme. Der untenstehende Code füllt bei Eingabe einer positiven Zahl das Datum in die rechte Nachbarzelle und löscht diese, wenn in eine Targetzelle eine Null eingegeben wird. Nun könnte der Anwender eine Fehleingabe machen und die...
17.03.2010 17:49:27
Thread-ID: 1146683
7 Beiträge
Anzeige
Private Sub Worksheet_Change(ByVal Target As Range
ing.grohn

Hallo Forum,
Worksheet_Change ist eine wunderbare Sache! (wenn sie funktioniert)
Also:
ich arbeite in einem Blatt mit: Private Sub Worksheet_Change(ByVal Target As Range)
funktioniert alles super. Nur manchmal tut das nicht!!!!
Excel beenden, neu starten, alles klar und funk...
17.06.2010 09:43:52
Thread-ID: 1162378
11 Beiträge
Frage zu Application.EnableEvents/Worksheet_Change
Holger,

Hallo,
eine kurze Frage.
Wenn Application.EnableEvents auf False gesetzt wird,
tritt das Worksheet_Change Ereignis nicht in Kraft.
Ist das soweit richtig?
Hintergrund meiner Frage:
Ich will im Worksheet Change Ereignis einen Code hinterlegen.
Allerdings werden bei Ei...
05.01.2011 14:48:12
Thread-ID: 1194049
5 Beiträge
Dateiübergreifendes Workbook_SheetSelectionChange
Bernd

Vorab:
1.
Ich habe eine Makrosammelmappe. In dieser befindet sich auf Arbeitsmappenebene eine Sub des Typs "Workbook_SheetSelectionChange".2.
Diese funktioniert, scheinbar naturgegebenerweise, nur bei Zellwechseln innerhalb dieser Makrosammelmappe.3.
Ich möchte nun die Features d...
17.05.2002 10:29:50
Thread-ID: 121587
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige