Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Textbox Einträge in Zelle schreiben

Betrifft: Textbox Einträge in Zelle schreiben von: MarC
Geschrieben am: 30.01.2020 22:15:35

Hallo,

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

Betrifft: AW: Textbox Einträge in Zelle schreiben
von: onur
Geschrieben am: 30.01.2020 22:28:13

For i = 1 To 40
   If Controls("TextBox" & i) <> "" Then
      .Cells(12+i, 2).Value = Controls("TextBox" & i)
   End If
Next i


Betrifft: Danke Onur
von: MarC
Geschrieben am: 30.01.2020 22:46:00

Danke Onur. Jetzt wo ich deine Lösung sehe verstehe ich auch was ich falsch gemacht habe und wieso in jeder Zelle das gleich drin stand.

Beiträge aus dem Excel-Forum zum Thema "Textbox Einträge in Zelle schreiben"