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
284to288
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
284to288
284to288
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ereignis beim Verlassen einer Zelle

Ereignis beim Verlassen einer Zelle
26.07.2003 15:45:44
Frank
Hallo Forum,
ich möchte nach der Eingabe einer Zelle ein Event auslösen. So soll z.B. folgendes abgefragt werden:
Zellwert 0-100 - FontColor = grün
Zellwert 101-200 - FontColor = blau
Zellwert 201-300 - FontColor = gelb
usw...
Ich möchte jetzt, dass die Zelle direkt nach der Eingabe eingefärbt wird. Gibt es so etwas wie ein "Zelle_LostFocus - Event"? Ich möchte nicht auf eine Schaltfläche drücken oder eine Tastenkombination ausführen sondern die Prüfung soll direkt Verlassen der Zelle erfolgen.
Wäre schön, wenn mir jemand helfen könnte.
Charmanten Tag noch!
Frank

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ereignis beim Verlassen einer Zelle
26.07.2003 16:19:59
PeterW
Hallo Frank,
benutze das Worksheet_Change-Ereignis. Rechtsklick auf das Tabellenregister, Code anzeigen, in das sich öffnende Fenster folgenden Code kopieren:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If InStr(1, Target.Address, ":") > 0 Then Exit Sub
Select Case Target
Case Is > 200
Target.Interior.ColorIndex = 3
Case Is > 150
Target.Interior.ColorIndex = 4
Case Else
Target.Interior.ColorIndex = xlNone
End Select
End Sub

Gruß
Peter

AW: Ereignis beim Verlassen einer Zelle
26.07.2003 16:27:57
Gert Seler
Hallo Frank,
Schreibe in VBA:
Public 

Sub BedingteFormatierung()  ' Bedingte Formatierung mit mehr als 3 Farben
DIM zeile As Range
DIM wert = zeile.Value
For Each zelle In Selection
wert = zelle.Value
Select Case wert
Case 1 To 100
zelle.Interior.ColorIndex = 4  'hellgrün
Case 100 To 200
zelle.Interior.ColorIndex = 6  'Gelb
usw
End Select
Next zelle
End Sub

mfg
Gert

Anzeige
Danke - Euch beiden
26.07.2003 16:57:14
Frank
Danke, für Eure schnellen Antworten.
@Peter:
Mir ging es hauptsächlich das auszulösende Ereignis. Dieses hast Du ja in Deinem Code sauber gelöst. Wenn ich die InStr-Funktion auskommentiere, läuft das Programm aber ebenfalls mit dem gewünschten Ergebnis. Was hat diese Funktion für eine Funktion (blöde Frage, aber ich glaube Du weisst, was ich meine!)?
Servus
Frank

AW: Danke - Euch beiden
26.07.2003 17:15:31
PeterW
Hallo Frank,
mit Instr wird nur geprüft, ob sich mehr als eine Zelle verändert hat (bei mehreren Zellen wäre Target.Address sowas wie $A$1:$B$2, also mit einem Doppelpunkt). Kommentiere die Zeile mal aus und lösche statt einer einzelnen Zelle einen Zellbereich.
Noch sauberer wäre der Weg mit Worksheet_Selection-Change nur die Anwahl einer Zelle zu zulasssen (gehört in das gleiche Modul):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If InStr(1, Target.Address, ":") > 0 Then ActiveCell.Select
End Sub

Gruß
Peter

Anzeige
AW: Danke - Euch beiden
26.07.2003 17:44:02
Fran
Yo Peter,
that´s it. Nochmals Danke!!!
Servus
Frank

AW: Danke - Euch beiden
27.07.2003 09:59:05
Nepumuk
Hallo Peter,
da musst du nicht die InStr - Funktion bemühen. Einfach:
If Target.Count > 1 Then
Gruß
Nepumuk

40 Forumthreads zu ähnlichen Themen

Format beim verlassen
Christian

Hallo,
kann mir jeman sagen warum
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox1.Value = Format(Time, "hh:mm:ss") End Sub
nicht funktioniert ?
Erhalte Meldung "Falsche Anzahl an Argumenten oder ungültige Zuweisung" !
Christian
05.09.2008 14:42:00
Thread-ID: 1007692
11 Beiträge
Anzeige
alle Blätter beim verlassen in Zelle A1
S.

Hallo zusammen,
ich möchte gern, dass beim Verlassen meiner Excel-Datei alle Blätter
nach oben und links gescrollt werden und zusätzlich alle Blätter in Zelle A1 springen.
Die Anzahl der Blätter ist variabel und ändert sich.
Für eine kurze Hilfe bin ich sehr Dankbar.
Gruß
11.12.2009 14:35:09
Thread-ID: 1123335
5 Beiträge
Replace beim verlassen einer Zelle
Ingrid

Hallo Leute,ich habe eine Excel Tabelle mit Adressen und Problemen.
In dieser Tabelle gibt es Adressen für den deutschen Sprachraum mit umlauten und Adressen für den englischen Sprachraum ohne Umlaute.
Wie kann ich beim Verlassen der Zellen mit einer Adresse für den englischen Sprachraum...
10.04.2002 14:42:58
Thread-ID: 112109
6 Beiträge
Anzeige
Aktion beim Verlassen des Feldes
Riccardo

Hallo Leute,
ich habe da mal eine Frage. Wie kann ich es realisieren, dass eine Aktion erst dann stattfindet, wenn ich eine Zelle geändert habe und diese verlassen will?
Also derzeitige Problemstellung:
Ich habe 2 Felder, die sich gegenseitig beeinflussen. Zusammen dürfen sie Maxima...
07.01.2013 12:50:51
Thread-ID: 1293153
4 Beiträge
rechnen beim Verlassen einer Zelle per Makro
Peter

Hallo Leute,
ich komme mal wieder nicht weiter !
Ich möchte im VBA Project "DieseArbeitsmappe" eine Funtion schreiben die mir nach verlassen einer Zelle einen Rechenvorgang auslöst.
z.B. A1 * B1 (Return) = C1, Courser - wechselt in die nächte Zelle
Ich habe versucht mit "Workbo...
16.03.2013 18:33:39
Thread-ID: 1304360
3 Beiträge
Makro beim Verlassen von Zellen bestimmter Spalten
Zellen

Guten Morgen liebe Forengemeinde,
ich steh momentan total auf dem Schlauch und hoffe, dass mir einer von euch schnell auf die Sprünge helfen kann.
Ich möchte gern beim Verlassen der Spalte "B" den Inhalt von Spalte "A" und Spalte "B" in Spalte "C" kombinieren. Das versuche ich mit folge...
21.01.2014 07:20:38
Thread-ID: 1346085
3 Beiträge
Makros aufrufen automatisch beim verlassen Tab.bla
Hepitus

Beim Verlassen eines Tabellenblattes sollen mehrere Makros (oder ein Makro) aufgerufen werden. Wie bekomme ich es hin, dass bei nach Beendigung des Makros, der Cursor sich in dem Arbeitsblatt befindet, welches ich bei Verlassen des bestimmten Arbeitsblattes angeklickt habe.Danke für die Hilfe i...
13.07.2002 11:46:46
Thread-ID: 136255
6 Beiträge
Beim Verlassen der Zelle Teilung durch 100
Ralf

Hallo,wir haben hier ein Problem auf einem Rechner.
Wenn man eine Zahl eingibt und die Zelle dann verläßt, wird der Wert durch 100 geteilt(Bsp.: Eingabe[6], Anzeige in Zelle[0,06]).
Nur die Anzeige ist nicht korrekt, intern rechnet EXCEL richtig.
Eine Neuinstallation, mit vorangegangen...
21.08.2002 11:55:07
Thread-ID: 151051
2 Beiträge

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
4
4
5
2
3
2
2
5
1
6
4
3
5
4
6
3
1
5
4
5
1
7
4
5