Speichern TextBox Inhalte in Tabelle

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo GerdL,

danke für den Hinweis, aber beim einlesen der Daten aus der Tabelle wird ja die erste Spalte mit 1 bezeichnet. Wenn ich jetzt den Code von onur nehme wird es ja auch wieder in der Zelle gespeichert. Nur wenn mehrere Zellen gleichzeitig geändert werden wird nur die erste Spalte gespeichert. Hier mal der gesamte Code. Ich hatte auch die Datei im ersten Beitrag hochgeladen.

Option Explicit
'
Dim LetzteZeiletblTabelle1 As String
Private Sub beenden_Click()
Unload Me
End Sub
Private Sub CommandButton4_Click()
DatenBuchen
End Sub
Private Sub UserForm_Activate()
ListboxDatenschreiben
End Sub
Private Sub ListboxDatenschreiben()
LetzteZeiletblTabelle1 = tblTabelle1.Cells(Rows.Count, 1).End(xlUp).Row + 1
With ListBoxDaten
.ColumnCount = 8 'Anzahl der Spalten die übergeben werden A bis H
.RowSource = "Tabelle1!A2:H" & LetzteZeiletblTabelle1
End With
Label26 = ListBoxDaten.ListCount
End Sub
Private Sub ListBoxDaten_Click()
txtStart.Text = tblTabelle1.Cells(ListBoxDaten.ListIndex + 2, 2)
txtZiel.Text = tblTabelle1.Cells(ListBoxDaten.ListIndex + 2, 3)
txtStartdatum.Text = tblTabelle1.Cells(ListBoxDaten.ListIndex + 2, 4)
txtStartzeit.Text = tblTabelle1.Cells(ListBoxDaten.ListIndex + 2, 5)
txtAnkunftszeit.Text = tblTabelle1.Cells(ListBoxDaten.ListIndex + 2, 6)
txtDatumAnkunft.Text = tblTabelle1.Cells(ListBoxDaten.ListIndex + 2, 7)
txtFahrer.Text = tblTabelle1.Cells(ListBoxDaten.ListIndex + 2, 8)
txtFzgKennz.Text = tblTabelle1.Cells(ListBoxDaten.ListIndex + 2, 9)
End Sub
Private Sub DatenBuchen()
With ListBoxDaten
tblTabelle1.Cells(ListBoxDaten.ListIndex + 2, 2) = txtStart.Text
tblTabelle1.Cells(ListBoxDaten.ListIndex + 2, 3) = txtStartdatum.Text
End With
MsgBox "Daten gespeichert"
End Sub

Danke im Voraus für weitere Meldungen.
Gruß Torsten

Infobox zum Thema

EXCEL - Speichern von Textbox-Inhalten in einen Zellbereich

Die Fragestellung

Du möchtest den Inhalt einer Textbox in Excel VBA in einen bestimmten Zellbereich speichern.

Erläuterung des Problems {#erläuterung-des-problems}

Textboxen werden oft in UserForms in Excel VBA verwendet, um Benutzereingaben zu sammeln. Diese Eingaben müssen dann in einem Arbeitsblatt gespeichert werden, um sie für Berechnungen, Analysen oder Berichte verwenden zu können.

Lösung des Problems {#lösung-des-problems}

Um den Inhalt einer Textbox in einen Zellbereich zu speichern, kannst Du folgenden VBA-Code verwenden:

Sub SaveTextboxContent()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("DeinBlatt") ' Anpassen an den Namen deines Blattes
    Dim txtBox As TextBox
    Set txtBox = ws.TextBoxes("DeineTextbox") ' Anpassen an den Namen deiner Textbox

    ' Zielbereich definieren, wo der Text gespeichert werden soll
    Dim targetRange As Range
    Set targetRange = ws.Range("A1") ' Anpassen an den Zielbereich

    ' Textbox-Inhalt in den Zielbereich schreiben
    targetRange.Value = txtBox.Text
End Sub

Dieser Code geht davon aus, dass Du eine Textbox auf einem Arbeitsblatt hast. Wenn Du eine Textbox in einem UserForm hast, musst Du den Code entsprechend anpassen, um auf die Textbox im UserForm zuzugreifen.

Anwendungsbeispiele aus der Praxis

Datenerfassung: Speichern von Benutzereingaben aus einem Formular in eine Datenliste.
Feedback-Formulare: Übertragen von Feedback aus einer Textbox in eine Excel-Tabelle für weitere Analysen.

Tipps

Überprüfe immer den Namen der Textbox und des Arbeitsblattes, um sicherzustellen, dass der Code korrekt funktioniert.
Wenn Du mehrere Textboxen hast, kannst Du den Code in einer Schleife verwenden, um die Inhalte aller Textboxen zu speichern.

Zusammenfassung

Das Speichern von Textbox-Inhalten in einen Zellbereich mit VBA ist eine häufige Aufgabe, die für verschiedene Zwecke der Datenerfassung und -verarbeitung in Excel genutzt wird. Mit dem bereitgestellten Code kannst Du diese Aufgabe effizient umsetzen und sicherstellen, dass Benutzereingaben korrekt in deinem Arbeitsblatt gespeichert werden.

Beliebteste Forumthreads (12 Monate)

Speichern TextBox Inhalte in Tabelle

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Infobox zum Thema

EXCEL - Speichern von Textbox-Inhalten in einen Zellbereich

Inhaltsverzeichnis

Die Fragestellung

Erläuterung des Problems {#erläuterung-des-problems}

Lösung des Problems {#lösung-des-problems}

Anwendungsbeispiele aus der Praxis

Tipps

Verwandte Themenbereiche

Zusammenfassung

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Speichern TextBox Inhalte in Tabelle

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Infobox zum Thema

EXCEL - Speichern von Textbox-Inhalten in einen Zellbereich

Inhaltsverzeichnis

Die Fragestellung

Erläuterung des Problems {#erläuterung-des-problems}

Lösung des Problems {#lösung-des-problems}

Anwendungsbeispiele aus der Praxis

Tipps

Verwandte Themenbereiche

Zusammenfassung

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread