Microsoft Excel

Herbers Excel/VBA-Archiv

2.Eintrag aus ComboBox in aktive Zelle

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

  

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é


  

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


  

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


  

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




  

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


  

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


  

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


 

Beiträge aus den Excel-Beispielen zum Thema "2.Eintrag aus ComboBox in aktive Zelle"