Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

User Form Daten aus Textboxen in Tabelle schreiben


Betrifft: User Form Daten aus Textboxen in Tabelle schreiben von: Thomas Geub
Geschrieben am: 29.11.2017 17:07:45

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

  

Betrifft: Beispielmappe bitte von: Werner
Geschrieben am: 29.11.2017 17:16:31

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


  

Betrifft: AW: Beispielmappe bitte von: Thomas
Geschrieben am: 29.11.2017 17:23:22

Hier die Datei:

https://www.herber.de/bbs/user/117996.xlsm


  

Betrifft: AW: Beispielmappe bitte von: Thomas
Geschrieben am: 29.11.2017 17:23:23

Hier die Datei:

https://www.herber.de/bbs/user/117996.xlsm


  

Betrifft: AW: Beispielmappe bitte von: Werner
Geschrieben am: 29.11.2017 21:33:40

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


Beiträge aus den Excel-Beispielen zum Thema "User Form Daten aus Textboxen in Tabelle schreiben"