title image


Smiley Re: ComboBox und Change Ereignis geht nicht
Hallo Achim,

habe mal versucht Dein Problem nachzustellen:



' Füllen der Combobox

Private Sub Worksheet_Activate()

With ComboBox1

.AddItem "Antonius"

.AddItem "Florian"

.AddItem "Wendelin"

.AddItem "Martin"

.MatchRequired = True

End With

End Sub



' Übergabe des Wertes aus der Combobox an

' die Zelle im Worksheet

Private Sub ComboBox1_Change()

[A2] = ComboBox1.Value

End Sub



' zusätzliches SelectionChange Ereignis



Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Zaehler As Integer, i As Integer

Zaehler = [B1]

For i = 2 To Zaehler

Cells(i, 2).Value = i

Next i

End Sub





Ergebnis laut Bildchen:



Ich kanns Problem nicht erkennen. Vielleicht hast

Du einen anderen Code ?



Viele Grüße

Herby



























geschrieben von

Anhang
Bild 279 zu Artikel 42510

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: