Das Archiv des Excel-Forums
Combobox
- Combobox von Daniel Kaleja vom 10.10.2003 11:58:33
- AW: Combobox - von Klaus-Dieter am 10.10.2003 12:42:12
- AW: Combobox - von Danie Kaleja am 10.10.2003 13:19:48
- AW: Combobox - von Klaus-Dieter am 10.10.2003 13:26:05
- AW: Combobox - von Daniel Kaleja am 10.10.2003 13:49:12
- AW: Combobox - von Daniel Kaleja am 10.10.2003 14:25:14
- AW: Combobox - von Daniel Kaleja am 10.10.2003 14:25:14
- AW: Combobox - von Daniel Kaleja am 10.10.2003 13:49:12
- AW: Combobox - von Klaus-Dieter am 10.10.2003 13:26:05
- AW: Combobox - von Danie Kaleja am 10.10.2003 13:19:48
- AW: Combobox - von Klaus-Dieter am 10.10.2003 12:42:12
 |
Betrifft: Combobox
von: Daniel Kaleja
Hallo Leute,
bin im Moment an meinen ersten Erfahrungen mit Makros. Habe das Problem:
Ich habe diese Makro geschrieben:
Das Makro befindet sich in einem Excel-sheet und soll daten, die in einer Zeile unter einander stehen in die Combobox einlese. Ohne Clear-Befehl funktionierts wenigstens einmal, nut mir Clear-Befehl kann man keine Auswahl mehr treffen...
Sie Selektion wird wahrscheinlich durch sofortiges nochmaliges Durchlaufen des Makros wieder gelöscht. Was kann ich tun, um auch ein Ergebnis aus dieser Cobobo heraus zu bekommen?
Danke für die Hilfe schon mal im Vorraus
Dim name As String
Dim a As Integer
Dim objSheet As Worksheet
Set objSheet = Workbooks("proj_liste-kopie.xls").Worksheets("ibs-Projekt-Nummern aktuell")
If cmbProjects.Value = "" Then
name = objSheet.Cells(4, 3)
a = 0
Do Until name = ""
cmbProjects.AddItem (name)
a = a + 1
name = objSheet.Cells(4 + a, 3)
Loop
Else
cmbProjects.Clear
End If
End Sub
 |
Betrifft: AW: Combobox
von: Klaus-Dieter
Geschrieben am: 10.10.2003 12:42:12
Hallo Daniel,
versuche es mal so:
Option Explicit
Private Sub Worksheet_Activate()
Dim name As String
Dim a As Integer
ComboBox1.Clear
For a = 1 To Range("C65536").End(xlUp).Row
With ComboBox1
.AddItem Cells(a, 3)
End With
Next a
End Sub
Code eingefügt mit: Excel Code Jeanie
Gruß Klaus-Dieter
|
Betrifft: AW: Combobox
von: Danie Kaleja
Geschrieben am: 10.10.2003 13:19:48
Sorry, ich habe den String mal als neue Combobox eingefügt. Die Daten holt es mir, aber ich kann immer noch nichts selektieren...
|
Betrifft: AW: Combobox
von: Klaus-Dieter
Geschrieben am: 10.10.2003 13:26:05
Hallo Danie,
kannst du in der ComboBox nichts selektieren? Oder meinst du damit, dass der Wert aus der ComboBox nicht in der Tabelle selektiert wird? Letzteres ist im Quelltext noch nicht eingebaut, weil ich nicht genau wußte, worauf du hinaus willst.
Gruß Klaus-Dieter
|
Betrifft: AW: Combobox
von: Daniel Kaleja
Geschrieben am: 10.10.2003 13:49:12
Ich kann gar nichts selektieren, da das Makro gleich wieder durch läuft und mir den ganzen Inhalt löscht.
Wie bekomme ich die Combobox dazu nur einmal die Daten einzufügen und nicht das ganze Spiel mehrmals zu wiederholen?
|
Betrifft: AW: Combobox
von: Daniel Kaleja
Geschrieben am: 10.10.2003 14:25:14
Danke für die Hilfe, habe den Fehler gefunden.
Die Combo_box war auf Ereignis Click gesetzt und hat sich somit jedes Mal wenn man Sie angeclickt hat selbst gelöscht.
Habs jetzt mit einem Formularfeld in den Griff bekommen (cmbbox userform_activate)
Danke
Gruß
Daniel
| |
