Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1476to1480
1476to1480
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform TextBox in Tabelle eintragen

Forumthread: Userform TextBox in Tabelle eintragen

Userform TextBox in Tabelle eintragen
02.03.2016 11:43:10
Pascal
allo zusammen,
Ich versuche gerade mit einer kleinen Userform mit 2 Textboxen eine bestehende Formatierte Tabelle zu befüllen.
Es soll einfach der Inhalt aus der ersten TextBox in die erste freie zelle in der Spalte B (heisst in dem List Object SKU)
Und der Inhalt der zweiten Textbox soll in die Spalte K
mit meinem bisherigen Code wir immer erst unterhalb der formatierten Tabelle angefangen zu schreiben.
kann mir jemand helfen? damit direkt in die Tabelle geschrieben wird.
Code:

  • Private Sub CB_OK_Click()
Dim wks As Worksheet
Dim lngZeile  As Long
Set wks = ThisWorkbook.Worksheets("Manuell")
lngZeile = Cells(Rows.Count, 2).End(xlUp).Row + 1
wks.Cells(lngZeile, 2).Value = TextBox1.Value
wks.Cells(lngZeile, 11).Value = TextBox2.Value
End Sub

    • Beste Grüße
    Pascal

    Anzeige

    4
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Userform TextBox in Tabelle eintragen
    02.03.2016 12:38:47
    Mullit
    Hallo,
    'ListObject' ist genau das Stichwort: 
    Option Explicit
Private Sub CB_OK_Click()
With ThisWorkbook.Worksheets("Manuell").ListObjects(1)
With .ListRows
Call .Add(Position:=.Count + 1)
End With
.DataBodyRange(.ListRows.Count, .ListColumns(2).Index).Value = TextBox1.Value '//  _
Spalte B
.DataBodyRange(.ListRows.Count, .ListColumns(11).Index).Value = TextBox2.Value '//  _
Spalte K
End With
End Sub

    Gruß, Mullit

    Anzeige
    AW: Userform TextBox in Tabelle eintragen
    02.03.2016 13:04:42
    Pascal
    Super,
    Danke

    AW: Userform TextBox in Tabelle eintragen
    02.03.2016 13:55:31
    Mullit
    Hallo,
    ...prima, so ist's noch besser: 
    Option Explicit
Private Sub CB_OK_Click()
With ThisWorkbook.Worksheets("Manuell").ListObjects(1).ListRows
With .Add(Position:=.Count + 1)
.Range(1, 2).Value = TextBox1.Value '// Spalte B
.Range(1, 11).Value = TextBox2.Value '// Spalte K
End With
End With
End Sub

    Gruß, Mullit

    Anzeige
    AW: Userform TextBox in Tabelle eintragen
    02.03.2016 12:54:34
    Mullit
    Hallo,
    ähh, der Spaltenindex war jetzt irgendwie doppeltgemoppelt.... 
    Option Explicit
Private Sub CB_OK_Click()
With ThisWorkbook.Worksheets("Manuell").ListObjects(1)
With .ListRows
Call .Add(Position:=.Count + 1)
End With
.DataBodyRange(.ListRows.Count, 2).Value = TextBox1.Value '// Spalte B
.DataBodyRange(.ListRows.Count, 11).Value = TextBox2.Value '// Spalte K
End With
End Sub

    Gruß, Mullit
    Anzeige
    ;

    Forumthreads zu verwandten Themen

    Zellinhalt aus anderer Tabelle übernehmen
    Marc

    Hallo zusammen,
    habe ein Problem mit dem ich einfach nicht weiterkomme (wahrscheinlich für Euch kein Problem...!)
    Ich möchte aus einer Tabelle Zellinhalte in eine andere Tabelle im gleichen Arbeitsblatt übernehmen, d.h. aus Tabelle 2 soll der Zellinhalt aus D61 in Tabelle 1 in H60 über...
    21.08.2008 22:08:00
    Thread-ID: 1003658
    3 Beiträge
    Kombinationsfelder mit Daten aus anderer Tabelle
    Bernhard

    Hallo liebe Freunde,
    ich brauche wieder einmal Eure Hilfe beim Umstricken eines VBA Codes, den ich hier im Archiv gefunden habe.
    Die Userform hat u.a. 2 Kombinationsfelder, die mit den Daten aus den Spalten B bzw. C gefüllt werden. Wenn ich die Auswahl in Kombi1 treffe, wird Kombi2 glei...
    25.08.2008 15:48:18
    Thread-ID: 1004492
    8 Beiträge
    Werte in anderes Tabellenblatt übertragen
    Bibo

    Hallo liebe EXCEL-Freunde,
    ich habe in der Online-Suche leider kein Makro gefunden, das ich mit meinen minimalen VBA-Kenntnissen hätte selbständig auf meine Problematik anpassen können und bitte Euch deshalb um Eure Hilfe.
    In das Tabellenblatt "Kommission" der Beispielmappe, das als Har...
    31.08.2008 17:54:00
    Thread-ID: 1006231
    4 Beiträge
    Zeile einfügen und dann die Formeln eintragen?
    Selma

    Hallo Leute,
    wie kann ich beim Einfügen einer neue Zeile per VBA die Formel in die Zellen der eingefügte Zeile eintragen?
    Sub Insert_Task() Rows(ActiveCell.Row + 1).Insert Shift:=xlUp Rows(ActiveCell.Row + 1).Select End Sub
    Beispiel für die Formeln der aktive Zeile 40:
    D40 =...
    16.09.2008 22:51:11
    Thread-ID: 1010207
    6 Beiträge
    Wechselbild in der Tabelle
    WalterK

    Hallo,
    die angehängte Tabelle habe ich in der Recherche gefunden, mittels VBA wird ein Wechselbild gesteuert.
    2 Fragen hätte ich dazu:
    1.) Ich möchte 2 andere Bilder einfügen, wie kann ich diese dann mit dem Makro ansprechen, muss ich den Bildern Namen geben ....?
    2.) Das Makro...
    18.09.2008 19:50:12
    Thread-ID: 1010845
    9 Beiträge
    Datensätze in Tabellenblätter schreiben
    TomTom


    Hi,
    ich habe eine Excelmappe mit 4 Bättern. Auf dem ersten Blatt (Spalte A) stehen die Rohdaten drin. Die sehen in etwar so aus:
    START;flag,2,23,,,,34,45,33,45,,,,,,,56
    ATTEMPT;flag,1,45,,12,,34,,,45,,,,,7,,56
    START;flag,2,23,,,,34,45,33,45,,,,,,,56
    STOP;flag,3,45,,5,,,...
    30.09.2008 13:43:00
    Thread-ID: 1013375
    3 Beiträge
    Daten aus Tabelle in eine andere Tabelle
    Cornelia

    Ich habe 2 Tabellen mit dem gleichen Aufbau.
    Tabelle 1 soll die Daten eingetragen werden. Von mehreren Leuten. Deshalb eben seperat.
    Tabelle 2 soll die Daten aus Tabelle 1 übernehmen. Jeweils ein Blatt mit identischen Blattnamen aus Tabelle 1. Bisherige Lösung von mir in jede Zelle rein...
    01.10.2008 08:11:00
    Thread-ID: 1013510
    6 Beiträge
    Zelle in andere Tabelle mit Button kopieren
    Benny

    Hallo Zusammen!
    Kann mir jemand weiterhelfen? Wie kann ich die unten stehende Formel entsprechend anpassen?
    Private Sub CommandButton2_Click() Dim wks As Worksheet Set wks = Worksheets("Änderungsanträge") wks.Range("C3") = wks.Range("D3") End Sub
    Danke im Voraus!
    Benny
    07.10.2008 10:06:48
    Thread-ID: 1014629
    4 Beiträge
    Anzeige
    Text aus einer Zelle in ein anderes Tabellenblatt
    grigolet

    Hallo,
    ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
    09.10.2008 11:24:26
    Thread-ID: 1015295
    2 Beiträge
    Zellen von einer in die andere Tabelle kopieren
    einer

    Guten Morgen!
    Ich habe 2 Tabellen. Eine Quelltabelle und eine ZielTabelle. Ich möchte nun die Daten aus der Quelldatei in die Zieldatei einfügen (aber Werte ohn Formatierung einfügen d.h. PasteSpecial). Irgendwie will das nicht gehen. :(
    Dim wks As Excel.Worksheet
    Dim Quell As Excel...
    16.10.2008 10:53:15
    Thread-ID: 1016793
    5 Beiträge
    Zelladresse in anderer Tabelle finden
    Frank

    Hallo Spezi's
    zu folgendem Problem hab ich im Archiv nix passendes gefunden. Vielleicht kann ja jemand helfen.
    In Tabelle1 finde ich per Makro die erste leere Zelle in Spalte C. Die Spalte C kann unterschiedlich gefüllt sein, darum kann die erste leere Zelle unterschiedliche Adressen ha...
    11.11.2008 10:47:00
    Thread-ID: 1023458
    5 Beiträge
    Zelleninhalt in andere Tabelle übertragen
    Michael

    Liebe Leute,
    ich bin eben auf dieses tolle Forum gestossen und muss gleich mal mit einer Frage nerven. Mit der Suche habe ich leider keine passenden Antwort gefunden.
    Ich habe folgendes Problem. Ich verarbeite mit Excel Informationen von mehreren tausend Mitarbeitern meines Arbeitgeber...
    17.11.2008 16:29:54
    Thread-ID: 1025295
    12 Beiträge
    Entdecke relevante Threads

    Schau dir verwandte Threads basierend auf dem aktuellen Thema an

    Alle relevanten Threads mit Inhaltsvorschau entdecken
    Anzeige
    Anzeige

    Infobox / Tutorial

    Userform TextBox in Tabelle eintragen

    Schritt-für-Schritt-Anleitung

    Um mit VBA eine Userform zu erstellen, die Daten aus TextBoxen in eine Excel-Tabelle einträgt, befolge diese Schritte:

    1. Userform erstellen: Öffne den VBA-Editor (Alt + F11) und füge eine neue Userform hinzu.

    2. TextBoxen hinzufügen: Füge zwei TextBoxen hinzu (z.B. TextBox1 und TextBox2) sowie einen Button (z.B. CB_OK).

    3. Code einfügen: Verwende den folgenden VBA-Code, um die Werte aus den TextBoxen in die Tabelle zu schreiben:

      Option Explicit

Private Sub CB_OK_Click()
   With ThisWorkbook.Worksheets("Manuell").ListObjects(1)
       With .ListRows
           Call .Add(Position:=.Count + 1)
           .Item(.Count).Range(1, 2).Value = TextBox1.Value '// Spalte B
           .Item(.Count).Range(1, 11).Value = TextBox2.Value '// Spalte K
       End With
   End With
End Sub

    4. Userform testen: Schließe den VBA-Editor und teste die Userform. Gib Werte in die TextBoxen ein und klicke auf den Button, um die Werte in die Tabelle einzutragen.

    Häufige Fehler und Lösungen

    • Fehler: Werte werden unterhalb der Tabelle eingetragen
      Lösung: Stelle sicher, dass du die ListObjects-Methode verwendest. Sie ermöglicht es, direkt in die formatierte Tabelle zu schreiben.

    • Fehler: Der Spaltenindex ist nicht korrekt
      Lösung: Achte darauf, dass du den richtigen Spaltenindex verwendest. In der Tabelle entspricht Spalte B dem Index 2 und Spalte K dem Index 11.

    Alternative Methoden

    Eine alternative Methode, um Daten aus einer Userform in eine Tabelle einzutragen, besteht darin, die Cells-Methode zu verwenden. Hier ist ein Beispiel:

    Private Sub CB_OK_Click()
    Dim lngZeile As Long
    Dim wks As Worksheet
    Set wks = ThisWorkbook.Worksheets("Manuell")

    lngZeile = wks.Cells(Rows.Count, 2).End(xlUp).Row + 1
    wks.Cells(lngZeile, 2).Value = TextBox1.Value
    wks.Cells(lngZeile, 11).Value = TextBox2.Value
End Sub

    Diese Methode ist weniger flexibel, wenn du mit formatierten Tabellen arbeitest, eignet sich aber gut für einfache Listen.

    Praktische Beispiele

    1. Daten in eine Produktliste eintragen: Wenn du eine Liste von Produkten hast, kannst du mithilfe der Userform Produktnamen und Preise in die entsprechenden Spalten eintragen.

    2. Kundendaten erfassen: Eine Userform kann verwendet werden, um Kundendaten wie Name und E-Mail-Adresse in einer Tabelle zu sammeln.

    Tipps für Profis

    • Datenvalidierung: Implementiere eine einfache Datenvalidierung in deiner Userform, um sicherzustellen, dass die Eingaben korrekt sind, bevor du sie in die Tabelle einträgst.

    • Benutzerfreundlichkeit: Füge Beschriftungen (Labels) zu deinen TextBoxen hinzu, um den Nutzern zu helfen, welche Informationen sie eingeben sollen.

    • Automatisierung: Überlege, ob du zusätzliche Funktionen einbauen möchtest, um die Datenverarbeitung zu automatisieren (z.B. durch die Verwendung von Dropdown-Listen).

    FAQ: Häufige Fragen

    1. Wie kann ich die Userform in Excel starten?
    Du kannst die Userform über einen Button in der Arbeitsmappe oder über ein Makro starten.

    2. Was mache ich, wenn die Tabelle nicht existiert?
    Stelle sicher, dass die Tabelle mit dem Namen "Manuell" in deinem Arbeitsblatt vorhanden ist. Ansonsten musst du die Tabelle erstellen oder den Namen im Code ändern.

    3. Kann ich mehr als zwei TextBoxen verwenden?
    Ja, du kannst beliebig viele TextBoxen hinzufügen. Achte darauf, im Code die entsprechenden Spalten indizieren.

    Beliebteste Forumthreads (12 Monate)

    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
    Anzeige
    Anzeige
    Entdecke mehr
    Finde genau, was du suchst

    Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

    Suche nach den besten Antworten
    Unsere beliebtesten Threads

    Entdecke unsere meistgeklickten Beiträge in der Google Suche

    Top 100 Threads jetzt ansehen
    Anzeige