Hallo, ich habe eine UserForm erstellt in der man Werte (manuell) eintragen kann. Diese Werte müssen dann in eine Tabelle übertragen werden. Das funktioniert auch soweit. Mein Problem ist, dass mit jeder Abfrage eine neue Spalte gefüllt werden muss. D.h. User 1 gibt Daten in UserForm ein, übergibt diese dann in das Tabellenblatt. Fertig! User 2 gibt wieder Daten in die UserForm.....und immer so weiter. Mir ist aber die Anzahl der User nicht bekannt. Das Programm soll daher immer die letzte freie Spalte suchen und in Zeile 1, 2, 17 und 18 bestimmte Werte aus der UserForm übermitteln.
Wie ich die lezte freie Spalte ermittel ist mir über das VBA bekannt
Dim Spalte As Long
Spalte = ThisWorkbook.Worksheets("DB_TB").Cells(1, Columns.Count).End(xlToLeft).Column + 1
bekannt. Allerding möchte ich jetzt genau dort die Zeile 1,2,17 und 18 Ansprechen, damit die Werte aus der UserForm dort übermittelt werden können.
Aktuell habe ich das so geschreiben (was aber nicht funktioniert) (DB_TB ist das Datenblatt in dem die Werte übermittelt werden sollen).
Dim Spalte As Long
Spalte = ThisWorkbook.Worksheets("DB_TB").Cells(1, Columns.Count).End(xlToLeft).Column + 1
ThisWorkbook.Worksheets("DB_TB").Cells(Spalte, 1) = "IA_" & TextBox2.Text
ThisWorkbook.Worksheets("DB_TB").Cells(Spalte, 2) = TextBox5.Text
ThisWorkbook.Worksheets("DB_TB").Cells(Spalte, 17) = "PO_" & TextBox2.Text
ThisWorkbook.Worksheets("DB_TB").Cells(Spalte, 18) = TextBox6.Text
Wie schaffe ich es jetzt, dass nach Ermittlung der ersten freie Spalte die Abfragen aus der UserForm dort eingetragen werden?
LG, Chris