Hi All,
My Problem:
I have a Workbook with 2 Worksheets: "Ausgleich" and "Ausgleichtabelle".
------------------------------------------------------------------------------------------------------------------------------------------
In worksheet "Ausgleich" i have 3 Activex Textboxes and 1 Activex ComboBox: "TextBox1", "TextBox5", "TextBox6" and "ComboBox1" and 1 CommandButton1.
TextBox1 = Username (JeRi), TextBox5 = Tätigkeit, TextBox6 = Datum, ComboBox1 = 0,5 or 1 (TextBox1 is Autofilled by Login Username, Other 3 are User Filled)
TextBoxes.PNG
-------------------------------------------------------------------------------------------------------------------------------------------
In Worksheet "Ausgleichtabelle" i have Data for each User in 6 columns, Data range A15:T200: example:
cells.PNG
--------------------------------------------------------------------------------------------------------------------------------------------
The code i need is as follows:
User fills out the 2 Textboxes and ComboBox in "Ausgleich" Worksheet.
Clicks CommandButton1:
Code looks in Sheets("Ausgleichtabelle").Range("A15:T200") for TextBox1.Value,
finds next empty cell below this cell,
Offsets by 3 columns,
Pastes the Value of "TextBox5", "TextBox6", "ComboBox1" in the next 3 columns starting from the offset.
Hope this makes sense.
Any Help would be greatly appreciated.
Regards
Jeremy
Bookmarks