Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
512to516
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
512to516
512to516
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ListBox.BackColor = xxxx

ListBox.BackColor = xxxx
06.11.2004 02:14:39
Stefan
Guten Tag miteinander
Ich habe eine ListBox, bei welcher ich nach einem Click_Ereignis die
BackColor wechseln möchte. Dies gelingt nicht, d.h. die bisherige Hintergrundsfarbe bleibt kontant stehen. Möglicherweise hat das damit zu tun, dass die ausgewählte Zeile immer noch markiert (Fokus) hat. Wie könnte ich den Fokus (Markierte Datenreihe) aus der ListBox wegnehmen. Einfach den Fokus auf ein anderes Steuerelement setzen hilft nicht.
Besten Dank.
Gruss
Stefan

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

Betreff
Datum
Anwender
Anzeige
AW: ListBox.BackColor = xxxx
06.11.2004 08:46:47
Rolf
Hallo Stefan,
zeig doch mal deinen bisherigen Code
FG
Rolf
AW: ListBox.BackColor = xxxx
Stefan
Guten Tag
Gerne, Hier ist der Code. Er wechsel einfach die Hintergrundsfarbe nicht. Wenn ich das aushalb dieses Codes (Click) geht es. Hat das was mit dem Fokus bzw. genauer damit zu tun, weil die Datenreihe markiert ist? Irgendwas mit der Einstellung der ListBox, die dann keine Ereignisse zulässt, sobald eine Datenreihe markiert wurde?
Grüsse
Stefan
Die Farbe ist vorher eingestellt auf BackColor = &H00C0E0FF&

Private Sub ListBox_M_Click()
Dim intAusTotal As Integer
Dim intAusBisher As Integer
On Error GoTo ErrorHandler
With ListBox_M
txtMAuswahl.Text = .Text
txtLogonID.Text = .List(.ListIndex, 1)
txtMBisher.Text = .List(.ListIndex, 2)
txtMMax.Text = .List(.ListIndex, 3)
If txtMAuswahl.Text <> "" Then _
.BackColor = &HC0FFFF
End with
Exit Sub
ErrorHandler:
MsgBox "Unbekannter Fehler aufgetreten!" & vbCrLf & vbCrLf & _
"Laufzeitfehler Nr. " & Err.Number & vbCrLf & _
"Beschreibung: " & Err.Description & vbCrLf & vbCrLf & _
"Der Vorgang kann nicht ausgeführt werden.", vbCritical
End Sub

Anzeige
Mouse_Down
06.11.2004 12:08:00
Rolf
Hallo Stefan,
bei mir klappt's mit Mouse_Down
FG
Rolf
AW: Mouse_Down
Stefan
Hallo Rolf
Bitte sage mir, wie ich das mit MouseDown bewerkstelligen kann. Irgendwie brauchts hier noch das Object?
Grüsse
Stefan
PS Bin daran sehr interessiert, da ich schon lange nach einer Lösung suche
AW: Mouse_Up
Stefan
Jetzt habe ich es gefunden. Beim mir geht es nur mit
MouseUp
Doch ich bin zufrieden, es geht. Schade ist etwas das die blaue Markierung in der ListBox
verloren geht.
Grüsse
Stefan

Private Sub ListBox_Mitarbeiter_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'


Private Sub ListBox_Mitarbeiter_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If txtMAuswahl.Text <> "" Then ListBox_Mitarbeiter.BackColor = &HC0FFFF
End Sub
Anzeige
AW: Mouse_Up
06.11.2004 12:51:33
Rolf
Hallo Stefan,
die schöne blaue Farbe kannst du
doch initialisieren

Private Sub UserForm_Initialize()
ListBox1.BackColor = &HFF0000
End Sub

FG
Rolf
AW: ListBox.BackColor = xxxx
06.11.2004 11:25:40
Hajo_Zi
Hallo Stefan,
ich habe jetzt den Code nicht nachgebaut, aber vielleicht reicht schon DoEvents?
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


AW: ListBox.BackColor = xxxx
Stefan
Guten Tag Hajo
Auch DoEvents gibt keine Abhilfe.
Grüsse
Stefan
Anzeige

264 Forumthreads zu ähnlichen Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Anzeige
KW in Datum umwandeln
Jochen

Hallo Freunde,
wie kann ich aus dieser Angabe "08 / 01" das Datum "01.01.2008" erstellen.
08 = Jahr
01 = Kalenderwoche
Danke im voraus.
Jochen
07.10.2008 07:40:13
Thread-ID: 1014582
7 Beiträge
Verschiedene Werte in bestimmte Zahlen umwandeln
Henning

Hallo, ich versuche grade bei einem Schichtplan die Verschiedenen Zelleninhalte z.B. Zelle A3 Inhalt "U1",Zelle A4 Inhalt"1/3" usw. in Werte umzuwandeln und diese dann als Stunden ausrechennen zu lassen.
Also so soll z.B. aus dem Inhalt von Zelle A3, dort steht "U1" soll dann 8 Stunden ents...
15.10.2008 18:37:00
Thread-ID: 1016648
4 Beiträge
Anzeige
Text in Zahlen umwandeln
u_hoernchen

Ich habe eine Spalte in Excel, in der vereinzelt Zellen sind, in denen Zahlen als Text formatiert sind. Da ich diese Zahlen für die weitere Verwendung als Werte haben muss und ich das dann relativ oft umfrickeln muss (ist leider ein Download aus einem Vorprogramm), frage ich mich, ob es ggf. ei...
26.11.2008 11:09:00
Thread-ID: 1027963
4 Beiträge
Datum in Zahl umwandeln
P.Mackes

Hallo,
was ich machen möchte ist folgendes:
ich habe eine Zahl, die ein Datum darstellt, z.B. 20080507. Dabei handelt es sich NICHT um ein Datumsformat, sondern um eine richtige Zahl. Jetzt muss ich davon allerdings 90 Tage abziehen. Also wandle ich mit Date(left...mid...right) das gan...
27.11.2008 00:37:57
Thread-ID: 1028186
3 Beiträge
Zelle in Datum umwandeln
Will

Hallo Leutz,
wie in folgender Datei zu sehen, habe ich mal wieder ein Thema mit der Umwandlung von Zellen in ein Datumsformat.
Eine Mainframeanwendung gibt mir die Werte im Format 6/2003 aus was Juni 2003 heißen soll. Excel erkennt diese Daten aber nicht als Datum.
Wie bitte bekomme...
12.01.2009 07:41:00
Thread-ID: 1038745
5 Beiträge
Bedingte Formatierung: 4stellige Zahl auf Endziffer prüfen?!
TimB83

Hallo,
ich probiere und teste schon seit Tagen, die Nerven liegen fast blank :oops:
Vielleicht geht es ja auch gar nicht...
Das ist mein Problem:
Ich habe in meinen Zellen 4stellige Zahlen, die entweder auf 0, auf 1 oder auf 2 enden.
Die Zellen auf 0 (z.B. 2340) sollen grü...
21.01.2009 23:21:19
Thread-ID: 1042405
4 Beiträge
ein Format in Zahl umwandeln VBA
Michael

Hallo!
Welche Möglichkeit gibt es über VBA eine Tabelle die ich zugesendet bekomme. Die Werte in Zahlen umzuwandeln. Beispiel
number name___ old__ new Change Change %
500041 system 23.26 23.28 -0.71 -2.45% #WERT!
540014 cpu 69.95 69.99 -0.22 -0.31% #WERT! =F...
29.01.2009 10:37:00
Thread-ID: 1044870
7 Beiträge

Links zu Excel-Dialogen

ListBox UserForm

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
3
5
6
3
4
3
2
4
3
6
4
14
3
1
6
11
5
16
7
9
4
1
9
6
1