Microsoft Excel

Herbers Excel/VBA-Archiv

combobox mit tabelleninhalt??

Betrifft: combobox mit tabelleninhalt?? von: marc
Geschrieben am: 30.06.2008 17:04:26

hallo zusammen

habe folgenden code:

Public Sub Listenfeld2()

With Worksheets("Tabelle50")

.ComboBox2.AddItem " Herr XY"
.ComboBox2.AddItem " Herr YX"
.ComboBox2.AddItem " Einkauf"
.ComboBox2.AddItem " Verkauf"
.ComboBox2.AddItem " Rechnungswesen"
.ComboBox2.AddItem " Leer"




End With

End Sub



nun mein problem:
da die daten öfters wechseln können würde ich den inhalt "ist immer text" gerne aus einer zelle einlesen in die combobox. die aktion bleibt die gleiche auch wen der inhalt wechselt! wie kann ich den inhalt sprich anstelle von z.b. "Einkauf" den inhalt z.b. aus zelle a3 in tabelle 60 einlesen???

danke für eure antworten

gruess

  

Betrifft: AW: combobox mit tabelleninhalt?? von: Chris
Geschrieben am: 30.06.2008 17:12:35

Servus,




Public Sub Einlesesn ()
Dim i as Long
With Sheets("Tabelle50")
   .Combobox2.Clear
   For i = 1 to 5
         .Combobox2.Additem .Cells(i, 1)
   Next i
End with
End Sub





Hier steht I = 1 to 5 für Index der Zeilennummer (hier Zeile 1-5). Bei .Cells(i, 1) steht die 1 für die erste Spalte, also 2 wäre Spalte B u.s.w..

Für zeile2 -4, wäre dann also zu schreiben i = 2 To 4.



Jetzt kann man in die entsprechenden Zellen den wechselnden Text hineinschreiben.



Gruß



chris


  

Betrifft: AW: combobox mit tabelleninhalt?? von: marc
Geschrieben am: 30.06.2008 17:28:43

super danke!

gruess


 

Beiträge aus den Excel-Beispielen zum Thema "combobox mit tabelleninhalt??"