Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
296to300
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
296to300
296to300
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

KomboBox füllen und dann vorbelegen

KomboBox füllen und dann vorbelegen
21.08.2003 17:31:28
Peter T
Hallo,
weiß jemand wie ich eine Kombobox füllen kann (das habe ich schon realisiert)
und dann mit einem bestimmten Wert vorbelegen.
Hintergrund ist dieser,
ich belege eine Kombobox mit ca. 40 Werten die aus einer Spalte eines Tabellenblatt stammen, dieser ausgewählte Wert wird dann an einer anderen Stelle in diesem Tabellenblatt weggeschrieben, nun möchte ich aber jedesmal wenn ich die UserForm aufrufe und die Kombobox fülle den letzten weggeschriebenen Wert in der Kombobox angezeigt bekommen (Trotzdem sollen alle Werte nur EINMAL vorkommen!).
Bitte um Hilfe.
Danke
Peter

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: KomboBox füllen und dann vorbelegen
21.08.2003 18:03:33
Willie
Du mußt eine Variable as public deklarieren!
Die du beim initalisieren dann wieder einlesen kannst.
Oder wenn die Userform stehen bleibt setzt du einfach den
Wert wieder in die Comobox ..

Private Sub CommandButton1_Click()
Dim Wert As String
Wert = ComboBox1.Value
Cells(1, 1).Value = ComboBox1.Value
ComboBox1.Value = Wert
End Sub

Ich hoffe das hilft weiter
Gruß
Willie

AW: KomboBox füllen und dann vorbelegen
21.08.2003 18:23:57
Peter T
Habe noch was vergessen zu erwähnen,
in der ComboBox habe ich 3 Spalten (nebeneinander) wovon die ersten beiden angezeigt werden aber die dritte Spalte weggeschrieben wird (das ist auch diese die ich mit einer Variablen vorbelegen kann, aber eben die 3. Spalte (ListIndex, 2),
wie kann ich nun diese einbauen, als Beispiel mein Code mit dem ich die KomboXox fülle:

Private Sub UserForm_Initialize()
CBox1.ColumnCount = 3
CBox1.ColumnWidths = "120;30;5"
izeile = 0
iRowL = Sheets("Custtabblatt").Cells(Rows.Count, 7).End(xlUp).Row
With Worksheets("Custtabblatt")
For iRow = 1 To iRowL
If Not IsEmpty(.Cells(iRow, 7)) And iRow > 1 Then
CBox1.AddItem .Cells(iRow, 7).Value
CBox1.List(izeile, 1) = .Cells(iRow, 4) ' zweite Spalte
CBox1.List(izeile, 2) = .Cells(iRow, 1) ' dritte Spalte (nicht sichtbar)
izeile = izeile + 1
End If
Next iRow
CBox1.AddItem "Keine Auswahl"
CBox1.List(izeile, 1) = "-"
CBox1.List(izeile, 2) = 0
End With
End Sub

Danke
Peter

Anzeige
AW: KomboBox füllen und dann vorbelegen
22.08.2003 10:51:14
Willie
Code ist modifiziert! Willie

Private Sub UserForm_Initialize()
CBox1.ColumnCount = 3
CBox1.ColumnWidths = "120;30;5"
izeile = 0
iRowL = Sheets("Custtabblatt").Cells(Rows.Count, 7).End(xlUp).Row
With Worksheets("Custtabblatt")
For iRow = 1 To iRowL
If Not IsEmpty(.Cells(iRow, 7)) And iRow > 1 Then
CBox1.AddItem .Cells(iRow, 7).Value
CBox1.List(izeile, 1) = .Cells(iRow, 4) ' zweite Spalte
CBox1.List(izeile, 2) = .Cells(iRow, 1) ' dritte Spalte (nicht sichtbar)
ZuMerkenderWERT = .Cells(iRow, 1)
Label1.value= ZuMerkenderWERT ' Kannst du aber auch in Textbox, MsgBox ausgebn lassen!
izeile = izeile + 1
End If
Next iRow
CBox1.AddItem "Keine Auswahl"
CBox1.List(izeile, 1) = "-"
CBox1.List(izeile, 2) = 0
End With
End Sub


Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige