Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
18.04.2024 11:09:53
for Schleife lässt leere Zeilen bei Abfrage mit Bedingung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1476to1480
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

    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

    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

    300 Forumthreads zu ähnlichen 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
    Anzeige
    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
    Anzeige
    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
    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
    Anzeige

    Links zu Excel-Dialogen

    TextBox UserForm

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige
    Archiv - Verwandte Themen
    Forumthread
    Beiträge
    2
    7
    3
    5
    8
    2
    5
    3
    1
    4
    4
    11
    2
    15
    2
    2
    13
    2
    5
    2
    2
    3
    3
    2
    11