Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1196to1200
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
1196to1200
1196to1200
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wert auslesen in Combobox

Wert auslesen in Combobox
walli
Guten Abend,
habe folgendes Makro, klappt prima. 
Private Sub UserForm_Activate()
ComboBox1.RowSource = "Daten!F1:F" & Sheets("Daten").Range("F65536").End(xlUp).Row
End Sub


Private Sub ComboBox1_Change()
Sheets("Liste").Range("A4") = Me.ComboBox1
Me.Label1 = Me.ComboBox1
If Me.ComboBox1.ListIndex = 0 Then Me.Label1 = ""
If Me.ComboBox1.ListIndex = 0 Then Sheets("Liste").Range("A4") = ""
End Sub
Wenn jetzt ein Wert in der Zelle A4 steht, möchte ich beim öffnen der Userform,
das der Wert mir angezeigt wird.
z.B. Tisch1 dann soll beim öffnen der UF Tisch1 in Combobox angezeigt werden.
mfg walli

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

Betreff
Benutzer
Anzeige
AW: Wert auslesen in Combobox
23.01.2011 19:47:16
Gerd
Guten Abend, Walli!
Private Sub UserForm_Activate()
With ComboBox1
.RowSource = "Daten!F1:F" & Sheets("Daten").Range("F65536").End(xlUp).Row
If Sheets("Liste").Range("A4")  "" Then
.ListIndex = Application.Match(Sheets("Liste").Range("A4").Text, .List, 0) - 1
End If
End With
End Sub
Gruß Gerd
Danke -)
23.01.2011 19:54:22
walli
Guten Abend Gerd,
einwandfrei,
danke.
mfg walli
AW: Wert auslesen in Combobox
23.01.2011 19:49:45
Frank
Hallo Walli!
Probier mal:
In das Activate Ereignis:
ComboBox1 = Sheets("Liste").Range("A4")
Ich hoffe, es hilft!
Rückmeldung wäre nett!
Gruß Frank H.!
Danke auch Dir Frank ! -)
23.01.2011 20:04:30
walli
Anzeige

Links zu Excel-Dialogen

ComboBox Label

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige