Controlsource setzt den Wert nicht...(seufz)
Joe
...ich kann nicht mehr.... ich bin verzweifelt.
ich schaffe es nicht mit der unten angegebenen codes den Wert über Controlsource auf Tabelle url in Zelle K14 zusetzten, wenn ich den Wert in der Combobox Names ändere. obwohl ich initialisiert habe ..
Übringens er tuts erst dann, wenn ich das Userform schließe..
Bitte um Hilfe!
Danke vorab..
lg joe
Private Sub userform_initialize()
frmDating.Caption = "Dating by " & Application.UserName
Me.Names.ColumnCount = 1
Call calldates
Me.Names.ControlSource = "url!k14" 'Place Index into cell k14
Me.Names.RowSource = "cal!a6:a12"
Me.Names.BoundColumn = 1
End Sub
Private Sub calldates()
Dim i As Integer
Dim s, e As String
Application.Volatile
Application.ScreenUpdating = False
Sheets("url").Activate
s = Cells(14, 11) 'k14
e = s & "e"
j = 0
For i = 1 To 10 Step 2
j = j + 1
Controls("Box" & i) = Format(Application.WorksheetFunction.HLookup(s, Range("k1:v11"), j + 1, _
_
wrong), "dd.mm.yy")
Controls("Box" & i + 1) = Format(Application.WorksheetFunction.HLookup(e, Range("k1:v11"), j + _
_
1, wrong), "dd.mm.yy")
Next i
Application.ScreenUpdating = True
End Sub
Private Sub Names_Change()
Call calldates
End Sub