Textbox Einträge in Zelle schreiben
30.01.2020 22:15:35
MarC
ich habe 40 Textboxen in meinem UserForm und ich möchte checken ob was drin steht. Wenn was drin steht soll es in eine Zelle geschrieben werden. Leider funktioniert es nicht so ganz. Ich erhalte keine Fehlermeldung aber es wird immer nur ein Eintrag in alle 40 Zellen geschrieben. Würde mir jemand bei der Fehlersuche helfen? Es ist bestimmt nur eine kleinigkeit
Private Sub Save_Click()
Dim temp As Long
Dim lngZeile As Long
Dim i As Integer
Application.ScreenUpdating = False
temp = MsgBox("Soll der neue Eintrag gespeichert werden?", vbYesNo)
If temp = vbYes Then
With Sheets("Raw Data")
For i = 1 To 40
If Controls("TextBox" & CStr(i)) "" Then
For lngZeile = 13 To 53
.Cells(lngZeile, 2).Value = Controls("TextBox" & CStr(i))
Next lngZeile
End If
Next i
Unload Me
End With
End If
Call Create_Folder
End Sub
Anzeige