DropDownBox Excel < Tabellenkalkulationen < Anwendungsprogramme < Praxis < Informatik < Vorhilfe
|
Hallo!
Also ich hab ne Frage. Ich würde gerne auf dem Excel Datenblatt eine Combobox(DropDownBox) plazieren und dann durch VBA Code drauf zugreifen. (dh. füllen,...)
Das Platzieren is ja nicht so das Problem, jedoch bring ich es nicht zusammen, dann auf diese box per vba zuzugreifen. Irgendwie zeigt er mir sie nie als Auswahlmöglichkeit an.
hat da evtl wer nen tip für mich?
Lg Thomas
PS: es ist Office 2000
|
|
| |
|
| Status: |
(Antwort) fertig  | | Datum: | 09:57 Di 21.08.2007 | | Autor: | Loddar |
Hallo Thomas!
Hast Du es schon mit der Tastenkombination <ALT> + <F11> versucht, um in die VBA-Ebene zu gelangen?
Gruß
Loddar
|
|
|
| |
|
Ja hab ich schon. Aber dort konnte ich eben nirgends die Combobox auswählen bzw. drauf zugreifen. (er bietet es auch nicht an wenn ich strg + space drück)
vielleicht noch zu erwähnen ist, dass ich mich bei VB programmierung auskenn.
Mein Problem liegt wirklich nur darin, das ich über VBA nicht drauf zugreifen kann.
ne andre idee?
Lg
|
|
|
| |
|
| Status: |
(Mitteilung) Reaktion unnötig  | | Datum: | 10:10 Di 21.08.2007 | | Autor: | Loddar |
Hallo Thomas!
Wie hast Du denn die DropDownBox erstellt, über die Makroaufzeichnung?
Gruß
Loddar
|
|
|
| |
|
Hat sich gerade erledigt!
Es gibt 2 Comboboxen ;)
Eine Bei den Steuerelementen und eine bei den Formularen und ich hab natürlich die falsche genommen ^^
Thema kann auf beantwortet gesetzt werden, bzw. kann ich das selber machen?
Danke für die hilfe loddar!
lg
|
|
|
| |
|
Nun hab ich doch noch eine frage.
Mein codesegment zum befüllen der Box schaut so aus :
Private Sub ComboBox1_GotFocus()
On Error Resume Next
Dim zeile, a As Integer
Dim Zeit, j, i As Integer
ComboBox1.Clear 'muss sein, da die box dynamisch befüllt wird, jedesmal wenn sie angeklickt wird.
'################################################################
Zeit = ZeitausDatum(Tabelle1.Cells(zeile, 10))
j = 2
i = 1
For i = 1 To 50
If Tabelle2.Cells(i, 1) <> "" Then 'Solange ein Thema drinnen steht
While Tabelle1.Cells(j, 4) <> ""
If Tabelle1.Cells(j, 4) = Tabelle2.Cells(i, 1) Then 'Wenn das richtige Thema gefunden wird
If Tabelle1.Cells(j, 6) >= Zeit Then 'Wenn die Reststunden > der benötigten Zeit
ComboBox1.AddItem (Tabelle2.Cells(i, 1))
j = j + 1
End If
End If
j = j + 1
Wend
End If
j = 2
Next i
'################################################################
End Sub
Funktioniert auch alles einwandfrei, nur muss ich immer 2 mal auf die combobox klicken bevor sie richtig die werte anzeigt. Beim 1 mal klicken schaut sie immer so aus, als ob in der combobox eine listbox erstellt werden würde.(siehe Bild)
[Dateianhang nicht öffentlich]
Beim 2-ten mal ist sie dann ganz normal.
Hat vielleicht jemand ne Idee was da sein könnte?
LG Thomas
Dateianhänge:
Anhang Nr. 1 (Typ: JPG) [nicht öffentlich]
|
|
|
| |
|
| Status: |
(Mitteilung) Reaktion unnötig | | Datum: | 12:20 Mi 29.08.2007 | | Autor: | matux |
$MATUXTEXT(ueberfaellige_frage)
|
|
|
|
