title image


Smiley Re: Programmierung Combox
Hi!

Versuch das mal:



Private Sub ComboBox1_AfterUpdate()

Dim Tx As String, Rw As Long

Dim EF As Boolean

Tx = Me.ComboBox1

EF = True



For Rw = 1 To Worksheets(1).[A1].End(xlDown).Row

If Worksheets(1).Cells(Rw, 1).Value = Tx Then

EF = False

Exit For

Else

EF = True

End If

Next Rw



If EF = True Then Worksheets(1).[A1].End(xlDown).Offset(1, 0).Value = Tx



End Sub



Private Sub ComboBox1_Enter()

Dim RwSrc As String

RwSrc = Worksheets(1).Name & "!" & "A1:" & Worksheets(1).[A1].End(xlDown).Address(False, False)

Me.ComboBox1.RowSource = RwSrc

End Sub

Grüße

 

LXus

 

Win7 x64

Office 2013 x64



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: