Hallo zusammen,
ich bin sehr unerfahren mit VBA und knabbere seit einigen Stunden an folgendem Problem.
Ziel:
Userform mit mehren Multipages.
Auf Seite 1 soll nun aus der Auswahl einer Combobox eine Textbox befüllt werden.
Um nicht das gesamte Projekt zu versenden habe ich Euch nur den Code für das Auslesen der Daten für die Combobox und das befüllen der Textbox angehangen und in eine simplifiziertes Projekt integriert.
Problem
Die Formel funktioniert wenn in Zeile A ein reiner Zahlenwert steht. Sobald ich aber einen Wert wie Test 1 oder einen Buchstaben hinterlege in der Spalte B funktioniert die Befüllung der Textbox nicht mehr.
CODE:
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim i As Long, LastRow As Long, ws As Worksheet
Set ws = Sheets("userData")
LastRow = ws.Range("B" & Rows.Count).End(xlUp).Row
For i = 3 To LastRow
Me.ComboBox1.AddItem ws.Cells(i, "B").Value
Next i
End Sub
Private Sub ComboBox1_Change()
Dim i As Long, LastRow As Long, ws As Worksheet
Set ws = Sheets("userData")
LastRow = ws.Range("B" & Rows.Count).End(xlUp).Row
For i = 3 To LastRow
If Val(Me.ComboBox1.Value) = ws.Cells(i, "B") Then
MsgBox Me.ComboBox1.Value
Me.TextBox1 = ws.Cells(i, "C").Value
End If
Next i
End Sub
|