Werte in Userform
Heino
habe folgendes Problem:
Ich lese über diesen Code Daten in meine Userform.
Private Sub TextBox1_Change()
Dim varRow
Dim rZellen As Range
Dim i As Integer
If TextBox1 "" Then
With Sheets("Batch")
varRow = Application.Match(TextBox1, .Columns(1), 0)
If Not IsNumeric(varRow) Then
i = 1
For Each rZellen In .Cells(varRow, 2).Resize(, 2)
i = i + 1 'Zähler für TextBox bis TextBox35
Me("TextBox" & i) = rZellen
Next rZellen
End If
End With
End If
If i In Zelle B1 Polybatch
In Zelle C1 12345
Leider werden mir bei Eingabe in der Textbox 1 keine Werte in TB2 und 3 eingelesen.
Setzte ich hinter die 700002 einen Punkt klappt es.
Hat das was mit IF Numeric zu tun?
Was mache ich falsch?
Gruß
Heino
Anzeige