Habe folgendes Problem: UserForm zieht aus bestimmten Zellen des ActiveSheet Daten heraus und führt diese an:
Private Sub Userform2_Activate()
Userform2.Show
Userform2.TextBox1 = ThisWorkbook.ActiveSheet.Cells(3, 1)
Userform2.TextBox2 = ThisWorkbook.ActiveSheet.Cells(3, 2)
Userform2.TextBox3 = ThisWorkbook.ActiveSheet.Cells(Rows.Count, 16).End(xlUp)
Userform2.TextBox3 = ThisWorkbook.ActiveSheet.Cells(Rows.Count, 19).End(xlUp)
End Sub
User kann per OptionButtons irgendwas auswählen und anschließend die Daten per Klick auf OK in eine bestimmte Tabelle übertragen:
Private Sub CommandButton5_Click()
If OptionButton1.Value = True Then
Workbooks("Übersicht.xls").Activate
Workbooks("Übersicht.xls").Sheets("Januar").Activate
Sheets("Januar").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = Val(TextBox1)
Sheets("Januar").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0) = Val(TextBox2)
Sheets("Januar").Cells(Rows.Count, 3).End(xlUp).Offset(1, 0) = Val(TextBox3)
Sheets("Januar").Cells(Rows.Count, 4).End(xlUp).Offset(1, 0) = Val(TextBox4)
Unload Me
ThisWorkbook.Activate
End If
End Sub
Leider übeträgt er nicht richtig die Daten in die TextBoxes, d.h. anstatt die Daten aus dem ActiveSheet aufzuführen, stehen in den TextBoxes die Daten aus dem früheren Tabellenblatt da. Wer kann helfen?
Danke, Eleni