Daten aus Userform per VBA in andere Arbeitsmappe ausgeben
02.03.2024 12:24:53
Banditpredator
ich habe hier eine einfache Userform (2x TextBox und 1x ListBox) und möchte die Daten aus dieser Userform in ein anderes Tabellenblatt einer anderen Arbeitsmappe schreiben, im Beispiel einfach "Einfügedatei.xlsx" und "Einfuegetabellenblatt" genannt.
Es soll immer die erste freie Zeile ausgewählt werden und dann die Werte eingetragen werden. Das Problem ist, dass es mir grundsätzlich Zeile 4 auswählt, anstatt zur ersten freien Zeile zu gehen. Innerhalb der gleichen Arbeitsmappe funktioniert es kurioserweise.
Hat jemand eine Idee?
Private Sub CommandButton1_Click()
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
Workbooks.Open Filename:="C:\Users\denni\Desktop\Einfuegedatei.xlsx"
Workbooks("Einfuegedatei.xlsx").Activate
Worksheets("Einfuegetabellenblatt").Activate
ActiveSheet.Cells(last, 1).Value = UserForm1.TextBox1.Value
ActiveSheet.Cells(last, 2).Value = UserForm1.TextBox2.Value
ActiveSheet.Cells(last, 3).Value = UserForm1.ListBox1.Value
ActiveWorkbook.Save
ActiveWindow.Close
End SubGruß Dennis