Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1592to1596
1592to1596
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

User Form Daten aus Textboxen in Tabelle schreiben

Forumthread: User Form Daten aus Textboxen in Tabelle schreiben

User Form Daten aus Textboxen in Tabelle schreiben
29.11.2017 17:07:45
Thomas
Hallo,
ich möchte aus einer Userform Daten in eine Tabelle übertragen. Die Tabelle sieht so aus:
A B C
Lot Eigenschaft1 Eigenschaft2 .......
1 25 24
2 30 26
3
.
.
.
Alle Daten von Lot bis zur letzten Eigenschaft werden in eine Zeile geschrieben und mit "neue Charge anlegen" eingefügt. Nun möchte ich zum einen, dass bei der nächsten Dateneingabe und den Druck auf: "neue Charge anlege" die Daten in die nächste freie Reihe geschrieben werden.
Combobox01 ist ein Drop Down Menü über das ich zum einen das Lot eingeben und zum anderen später die Daten eines x-beliebigen Lots wieder aufrufen möchte um mit klick auf "Daten übernehmen" nur einzelne Werte in diesen Lot zu ändern.
Private Sub Analysenwerte_Click()
End Sub

Private Sub CommandButton2_Click()
Me.Tag = "Abbrechen"
Me.Hide
End Sub


Private Sub CommandButton1_Click()
Me.Tag = "Daten übernehmen"
Me.Hide
End Sub

Private Sub CommandButton3_Click()
Me.Tag = "Neue Charge anlegen"
Sheets("Clevios P (Einzel-Lot)").Range("A6").Value = Me.ComboBox01.Value
Sheets("Clevios P (Einzel-Lot)").Range("B6").Value = Me.TextBox02.Value
Sheets("Clevios P (Einzel-Lot)").Range("C6").Value = Me.TextBox03.Value
Sheets("Clevios P (Einzel-Lot)").Range("D6").Value = Me.TextBox04.Value
Sheets("Clevios P (Einzel-Lot)").Range("E6").Value = Me.TextBox05.Value
Sheets("Clevios P (Einzel-Lot)").Range("F6").Value = Me.TextBox06.Value
Sheets("Clevios P (Einzel-Lot)").Range("G6").Value = Me.TextBox07.Value
Sheets("Clevios P (Einzel-Lot)").Range("H6").Value = Me.TextBox08.Value
Sheets("Clevios P (Einzel-Lot)").Range("I6").Value = Me.TextBox09.Value
Sheets("Clevios P (Einzel-Lot)").Range("J6").Value = Me.TextBox010.Value
Sheets("Clevios P (Einzel-Lot)").Range("K6").Value = Me.TextBox012.Value
Sheets("Clevios P (Einzel-Lot)").Range("L6").Value = Me.TextBox013.Value
Sheets("Clevios P (Einzel-Lot)").Range("N6").Value = Me.TextBox014.Value
Sheets("Clevios P (Einzel-Lot)").Range("O6").Value = Me.TextBox015.Value
Sheets("Clevios P (Einzel-Lot)").Range("Q6").Value = Me.TextBox016.Value
Sheets("Clevios P (Einzel-Lot)").Range("R6").Value = Me.TextBox017.Value
Sheets("Clevios P (Einzel-Lot)").Range("T6").Value = Me.TextBox018.Value
Sheets("Clevios P (Einzel-Lot)").Range("U6").Value = Me.TextBox019.Value
Sheets("Clevios P (Einzel-Lot)").Range("AA6").Value = Me.TextBox020.Value
Sheets("Clevios P (Einzel-Lot)").Range("AB6").Value = Me.TextBox021.Value
Sheets("Clevios P (Einzel-Lot)").Range("AE6").Value = Me.TextBox022.Value
Sheets("Clevios P (Einzel-Lot)").Range("AD6").Value = Me.TextBox023.Value
Sheets("Clevios P (Einzel-Lot)").Range("AF6").Value = Me.TextBox024.Value
Sheets("Clevios P (Einzel-Lot)").Range("AM6").Value = Me.TextBox025.Value
Sheets("Clevios P (Einzel-Lot)").Range("AP6").Value = Me.TextBox026.Value
Sheets("Clevios P (Einzel-Lot)").Range("AQ6").Value = Me.TextBox027.Value
Sheets("Clevios P (Einzel-Lot)").Range("AR6").Value = Me.TextBox028.Value
Dim ctrElement As Control
For Each ctrElement In Controls
Select Case TypeName(ctrElement)
Case "TextBox": ctrElement = ""
Case "ComboBox": ctrElement = ""
End Select
Next
Me.Hide
End Sub

Danke im Voraus für Eure Hilfe.
Gruß
Thomas
Anzeige

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

Betreff
Datum
Anwender
Anzeige
Beispielmappe bitte
29.11.2017 17:16:31
Werner
Hallo Thomas,
lade doch bitte deine Datei hier hoch. Ich kann mir kaum vorstellen, dass jemand viel Lust daran hat die Datei und die UserForm nachzubauen.
Gruß Werner
AW: Beispielmappe bitte
29.11.2017 21:33:40
Werner
Hallo Thomas,
hier mal deine Beispielmappe zurück.
Die Daten aus den verschiedenen Eingabfelder werden in die nächste freie Zeile deiner Tabelle geschrieben.
Vor dem Schreiben der Daten wird geprüft, ob ein Datensatz mit der ausgewählten/eingegebenen Batch-Nummer in der Spalte A schon vorhanden ist. Soll verhindern, dass Datensätze mit der gleichen Batch-Nummer mehrfach angelegt werden -keine Ahnung ob du das brauchst.
Beim Start der UserForm werden die vorhandenen Batch-Nummern aus Spalte A in die Combobox03 eingelesen.
Ich habe keine Ahnung warum du mehrfach Me.Hide im Code drin hattest. Genausoweinig ist mir klar, warum du ständig bei den verschiedenen CommanButton klicks einen Wert in die Tag Eigenschaft der Buttons geschrieben hast.
Zu mehr hatte ich noch keine Zeit heute. Mach aber vermutlich morgen weiter.
https://www.herber.de/bbs/user/118000.xlsm
Gruß Werner
Anzeige
;

Forumthreads zu verwandten Themen

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
Macro - In Formular dyn. Daten in Tabelle darstell
Jan

Hallo Forum,
ich möchte auf einem Formular Daten aus einer Arbeitsmappe in tabellarischer Form darstellen. In der Werkzeugliste gibt es dazu leider kein passendes Steuerelement. Leider war meine Suche in Google damit bisher erfolglos, vielleicht auch weil ich die falschen Begriffe benutzt h...
08.10.2009 09:39:50
Thread-ID: 1108083
5 Beiträge
Daten von eine in die andere Tabelle übertragen
eine

Gibt es hierzu eine Makro Lösung?
Ich habe zwei Sheets:
1. Disposition
2. NMPKurz
Ich möchte die Daten aus der Disposition in NMPKurz in einer anderen Anordnung übertragen.
Hierzu habe ich eine Beispielsdatei eingestellt.
https://www.herber.de/bbs/user/71160.xls
Da...
21.08.2010 14:20:27
Thread-ID: 1173501
8 Beiträge
UserForm; Daten in bestimmte Spalten übertragen
Wolferl

Hallo Excelfreunde,
mein Anliegen ist wahrscheinlich einfach, aber ich habe Probleme.
Eine UserForm zu erstellen und die Daten in die Liste zu übertragen, Spalte für Spalte entsprechend der TextBox geht ja, aber die Struktur der Liste ist etwas anders. Die Daten der TextBox müssen in be...
08.12.2010 18:12:40
Thread-ID: 1190514
5 Beiträge
Daten in Tabelle schreiben
Frank

Hallo Zusammen und ein schönes WE euch Allen!
Mittels folgendem Code versuche ich Daten in ein Tabellenblatt schreiben zu lassen!
Private Sub CommandButton2_Click() If ComboBox1 = "1. Kredit" Then Dim Dia As UserForm Dim lng As Long Dim Treffer As Range Dim i As Integer Set Treffer = Kr...
11.12.2010 13:09:43
Thread-ID: 1191029
3 Beiträge
Daten auswählen und in andere Tabelle schreiben
Kati

Hallo Zusammen,
ich tüftle mal wieder an einem kleinen Projekt für mich und benötige hierzu Eure Hilfe.
Ich habe eine Datei mit zwei Tabellenblättern. Namensliste und Teilnehmerliste.
Den Namen in Namensliste sind u. a. auch Daten und Schulungsorte zugewiesen.
In dem zweiten Tab...
15.12.2010 10:14:35
Thread-ID: 1191550
8 Beiträge
Daten in eine Tabelle schreiben
sabbelschlaeppchen

Liebes Forum,
ich möchte, dass nach Klick auf einem Button Daten in eine Tabelle eingetragen werden. Nach netten Tipps von euch, habe ich das über folgenden Code versucht:
Private Sub CommandButton1_Click() Dim Klasse As Variant Dim ArbeitNr As Integer Dim SchuelerAnzahl As Integer Dim...
12.01.2011 22:17:53
Thread-ID: 1195320
7 Beiträge
VBA, Werte anhand Koordinaten in Tabelle schreiben
Christian

Hallo, ich hab ein kleines Problemchen welches ich gerne mittels VBA lösen möchte. Leider komme ich auch nach einiger Suche nicht mal ansatzweise auf eine Lösung.
Das ganze sieht so aus:
Ich habe 2 Tabellen:
Tabelle 1 hat 3 Spalten z.b. so:
Pos | Blatt | Wert
1 | 1...
01.09.2011 19:10:08
Thread-ID: 1228358
3 Beiträge
Über Userform Daten in Tabelle Ändern
Fredy

Hallo Ich erstelle ein kleines Adressen Buch ich Trage Adressen mit Hilfe eines userform
https://www.herber.de/bbs/user/77415.jpg
in Tabelle ein
https://www.herber.de/bbs/user/77416.jpg
Und lasse ich mir die Daten in einem Anderen userfom Anzeigen
https://www.herber.de...
09.11.2011 07:38:08
Thread-ID: 1237111
4 Beiträge
Daten aus Spalte A in eine Tabelle übertragen
KLE

Hi,
...ich habe in einer Liste viele Werte aus unserem WWS untereinander und zum Teil mit Leerzeilen stehen.
Leider kam der Export so raus! ;o(
Wobei der Block mit jedem Datensatz immer einer bestimmten Folge gleicht und genau hier wollte ich ansetzen und per Schleife die Daten in...
01.04.2012 12:35:37
Thread-ID: 1257364
5 Beiträge
Daten in Exceltabelle übertragen.
SkyLight

Hallo,
ich habe gerade einen "Knoten" im Kopf und desahlb brauche ich eure Hilfe:
Ich habe zwei Exceldateien:
1. Web-Auswertungen, diese listet mir alle Bestellungen mit Ihren Umsätzen auf.
In dieser wird für jeden Kunden eine eindeudige ID vergeben sowie seine Umsätze in Kisten...
28.04.2012 09:10:47
Thread-ID: 1261363
5 Beiträge
Anzeige
gefiltere Daten in 2. Tabellenblatt übertragen
Alena

Hallo zusammen,
kann mir jemand sagen, wie man bestimmte Daten aus einer gefilterten Liste in ein anderes Tabellenblatt übertragen kann? Habe es schon mit einem SVerweis probiert, allerdings wird mir im 2. Tabellenblatt dann immer nur der erste übereinstimmende Wert gezeigt und nicht der, d...
15.11.2012 15:24:22
Thread-ID: 1286839
4 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Daten aus Userform in Excel-Tabelle übertragen

Schritt-für-Schritt-Anleitung

Um Daten aus einer Excel Userform in eine Tabelle zu übertragen, folge diesen Schritten:

  1. Erstelle eine Userform: Öffne den VBA-Editor (ALT + F11), klicke auf "Einfügen" und wähle "UserForm".

  2. Füge Textboxen und Buttons hinzu: Ziehe Textboxen für die Eingabe deiner Daten und Buttons für Aktionen wie "Neue Charge anlegen" und "Daten übernehmen" auf die Userform.

  3. Schreibe den VBA-Code: Füge den folgenden Code in das Codefenster deiner Userform ein:

    Private Sub CommandButton3_Click()
   Dim lastRow As Long
   lastRow = Sheets("Clevios P (Einzel-Lot)").Cells(Rows.Count, 1).End(xlUp).Row + 1

   Sheets("Clevios P (Einzel-Lot)").Cells(lastRow, 1).Value = Me.ComboBox01.Value
   Sheets("Clevios P (Einzel-Lot)").Cells(lastRow, 2).Value = Me.TextBox02.Value
   ' Füge hier weitere TextBoxen hinzu

   ' Leere die Eingabefelder
   Dim ctrElement As Control
   For Each ctrElement In Controls
       Select Case TypeName(ctrElement)
           Case "TextBox": ctrElement = ""
           Case "ComboBox": ctrElement = ""
       End Select
   Next
   Me.Hide
End Sub

  4. Nutze die Combobox für vorhandene Chargen: Lese beim Öffnen der Userform die vorhandenen Chargen in die Combobox ein.

  5. Teste deine Userform: Starte die Userform und gib Daten ein, um zu prüfen, ob die Daten korrekt in die Tabelle übertragen werden.

Häufige Fehler und Lösungen

  • Daten werden nicht in die nächste freie Zeile geschrieben: Stelle sicher, dass du die lastRow-Variable korrekt berechnest, um die nächste freie Zeile zu finden.

  • Userform schließt sich nicht: Überprüfe, ob Du das Me.Hide-Kommando an der richtigen Stelle im Code verwendest. Es sollte erst nach dem Speichern der Daten ausgeführt werden.

Alternative Methoden

Falls Du keinen VBA-Code verwenden möchtest, kannst Du auch ein Excel-Formular erstellen, um Daten manuell einzugeben und diese dann direkt in die Tabelle zu kopieren. Dies ist jedoch weniger automatisiert und erfordert mehr manuelle Arbeit.

Praktische Beispiele

Ein praktisches Beispiel könnte ein Userform sein, das die folgenden Eingabefelder enthält:

  • Lot: ComboBox zur Auswahl eines bestehenden Lots.
  • Eigenschaft1: TextBox für numerische Eingaben.
  • Eigenschaft2: TextBox für zusätzliche Daten.

Diese Eingabefelder können dann mit dem oben genannten Code in die Tabelle geschrieben werden.

Tipps für Profis

  • Datenvalidierung: Implementiere Datenvalidierungsregeln, um sicherzustellen, dass die Eingaben der Benutzer korrekt sind (z.B. numerische Eingaben in bestimmten Textboxen).

  • Suchfunktion: Ergänze deine Userform um eine Suchfunktion, die es ermöglicht, bestehende Datensätze schnell zu finden und zu bearbeiten.

  • Erweiterte Fehlerbehandlung: Füge Error-Handling-Routinen hinzu, um sicherzustellen, dass dein Code robust ist und unerwartete Fehler behandelt.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass ich keine Duplikate in der Tabelle erzeuge?
Verwende eine Abfrage, um zu überprüfen, ob der eingegebene Lot bereits in der Tabelle vorhanden ist, bevor du die Daten überträgst.

2. Kann ich die Userform so einstellen, dass sie beim Öffnen die letzten Eingaben anzeigt?
Ja, du kannst die Textboxen beim Initialisieren der Userform mit den Werten aus der Tabelle füllen, sodass der Benutzer die letzten Eingaben sieht.

3. Welche Excel-Version benötige ich für die Verwendung einer Userform?
Userforms sind in den meisten modernen Excel-Versionen verfügbar, einschließlich Excel 2010 und später.

Beliebteste Forumthreads (12 Monate)

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