Herbers Excel-Forum - das Archiv

2.Eintrag aus ComboBox in aktive Zelle

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: 2.Eintrag aus ComboBox in aktive Zelle
von: Josef

Geschrieben am: 27.05.2008 13:49:20

Hallo!
Mit folgendem Code erfolgt in der ComboBox 3 in einer UserForm ein zweispaltiger Eintrag:
z.B. 4051410 KurNeb0

Private Sub ComboBox3_Change()
On Error Resume Next
Dim R%
Dim Suche As Range
Dim wks As Worksheet
Set wks = Workbooks("Masterprog.xla").Worksheets("Tabelle1")
ComboBox3.Text = ComboBox3.Column(0) & " " & ComboBox3.Column(1)
End Sub


Wie muß ich bitte den Code ergänzen damit nach der Auswahl in der CB3 in die aktive Zelle eines Arbeitsblattes der Wert 2 (Combobox, Spalte 2), also "KurNeb0" eingetragen wird?
Danke
Josef

Bild

Betrifft: .BoundColumn für mehrspaltige CBX
von: Renee
Geschrieben am: 27.05.2008 15:58:29
Hi Josef,
Eine mehrspaltige Combobox hat eine .BoundColumn Eigenschaft. Dies ist die Spaltennummer die als Wert von der Combobox zurückgegeben wird.
Greet GreetZ Reneé

Bild

Betrifft: AW: .BoundColumn für mehrspaltige CBX
von: Josef
Geschrieben am: 27.05.2008 19:26:46
Hallo Renee!
Danke frür Deine Antwort und Deine Hilfe.
jason55

Bild

Betrifft: AW: .BoundColumn für mehrspaltige CBX
von: Josef
Geschrieben am: 28.05.2008 06:53:30
Hallo Renee!
Ich probierte es jetzt mit BoundColumn.
Funktioniert aber auch nicht.
Josef

Bild

Betrifft: Beispielmappe please... owT
von: Renee
Geschrieben am: 28.05.2008 08:31:48

Bild

Betrifft: AW: Beispielmappe please... owT
von: Josef
Geschrieben am: 28.05.2008 08:45:39
Hallo Renee!
hier eine Mustermappe:
https://www.herber.de/bbs/user/52662.xls
Die aktive Zelle zum Eintragen wäre in diesem Beispiel Tabelle2!B4
Josef

Bild

Betrifft: AW: Beispielmappe please... owT
von: Renee

Geschrieben am: 29.05.2008 08:51:27
Hi Josef,
Der zusätzliche Befehl beim Laden der Combobox:

With ComboBox3
.Clear                           ' löschen ComboBox
.ColumnCount = 3                 ' drei Spalten
      .BoundColumn = 2
...


Dann das Übertragen:

ActiveCell.Value = ComboBox3.Value


GreetZ Renée

Bild

Betrifft: AW: Beispielmappe please... owT
von: Josef
Geschrieben am: 29.05.2008 09:12:07
Hallo Renee!
Danke für Deine Hilfe und Deine Antwort
Josef

 Bild
Excel-Beispiele zum Thema "2.Eintrag aus ComboBox in aktive Zelle"
ComboBox als Symbol Alle ComboBoxes auf Position 1
Werte in eine ComboBox einer UserForm übernehmen ComboBox in Abhängigkeit einer 2. ComboBox ein-/ausblenden
ComboBox mit Monatsnamen füllen Mehrspaltige ComboBox
ComboBox2 in Abhängigkeit von ComboBox1 bestücken Nur Zellen mit Inhalt in ComboBox listen
Neue UserForm bedingt nach ComboBox-Auswahl aufrufen Neues Element in ComboBox