Office: ungültiger Bezeichner

Hallo zusammen,

ich bin neu was das Thema VBA angeht und komme jetzt selbst alleine nicht weiter.

Versuche gerade eine Oberfläche für den Wareneingang zu erstellen. Ich benutze gerade 39 TextBoxen die den Wareneingang erfassen und auch addieren.
Soweit so gut. Klappt auch alles, nur würde ich gerne diverse Schritte vereinfachen z.B.: mit Schleifen etc.

bei folgendem Code kommt eine Fehlermeldung s.o

EingabeJanuar:

Dim test As String

For i = 2 To 39

test = TextBox & i
If test "" Then

Sheets("Material").Cells(i, 3).Value = Sheets("Material").Cells(i, 3).Value + CDbl(test.Text)

Else
End If

Next i

Unload Me
UserForm1.Show
UserForm1.Hide

Schreibe ich für jede einzelne TextBox folgenden Code klappt es:

If TextBox2 "" Then
Range("Material!C2").Value = Range("Material!C2").Value + CDbl(TextBox2.Text)
Else
End If

Hat vielleicht jemand eine Idee woran es liegt? Ich würde es zu gerne verstehen, da ich noch gefühlte 1000 Abfragen für den Warenausgang erstellen wollte ;-)

LG

:)

 

Hallo

TextBoxen auf einer Userform kann man so mit Schleife ansprechen

ungetestet

test = Controls("TextBox" & i)

MfG Tom

 

Hallo Tom,

erstmal Danke für Deine wirklich schnelle Antwort.
Der Fehler bleibt allerdings noch:

CDbl(test.Text)

Hier schmeißt er mir den Fehler raus.
Hast Du vielleicht noch eine Idee?

 

Moin
Einfach nur: CDbl(test)
gruss hary

 

Super !!!

Das war es vielen Dank Ihr habt mir den Samstag gerettet ;-))

Ein Schönes Wochenende !

 

Hallo

ich habe es so getestet

Code:

beachte die Punkte vor Cells innerhalb der With-Anweisung

MfG Tom

 

Hallo Tom,

danke! Ich werde es mir mal genau ansehen!