mit nachstehendem Code übernehme ich PLZ und Orte in 2 TextBoxes auf einer Userform. Das Ganze funktioniert auch gut, jedoch wird bei den PLZ die mit "0" beginnen die Null nicht mit eingelesen, in der zugrundeliegenden Tabelle ist die Spalte A = PLZ als benutzdefinierte Format "D-00000" formatiert.
Private Sub CommandButton2_Click()
With ComboBox2
If .ListIndex >= 0 Then
aSelect = .List(.ListIndex, 0) & " " & .List(.ListIndex, 1)
aRow = .ListIndex
ComboBox2.Text = aSelect
End If
For aCounter = 1 To 2
Controls("TextenBoxen" & aCounter).Text = .List(aRow, aCounter - 1)
Next aCounter
End With
txtEdit6.Value = TextenBoxen1.Value
txtEdit7.Value = TextenBoxen2.Value
Frame6.Visible = False
Frame3.Visible = True
txtEdit8.SetFocus
End Sub
Wer kann da bitte mal helfen?
Vielen Dank
Peter S.