|
Hallo zusammen,
ich habe folgendes Problem, ich hab eine Userform erstellt wo der Nutzer die abgefragten Daten eingibt
Nun soll die Antwort auf Excel angezeigt werden. Das klappt mit dem ersten Benutzer auch.
Nun möchte ich wenn Benutzer 2 sich anmeldet, seine Daten in die nächste freie Zeile ebenfalls angezeigt werden.
Es funktioniert aber mit dem Code welches ich benutzt habe nicht .
Wenn sich jetzt jemand neues anmeldet überschreibt er die Daten in Zeile 1 also von Benutzer 1 + die Daten werden in Zeile 2 angezeigt.
Bei Benutzer 3 dann natürlich auch. Im Endeffekt werden die Zeilen jetzt überschrieben
Folgenden Code habe ich benutzt.
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet.Cells(last, 2).Value = UserForm1.TextBoxVorname.Value
ActiveSheet.Cells(last, 3).Value = UserForm1.TextBoxNachname.Value
ActiveSheet.Cells(last, 4).Value = UserForm1.TextBoxStraße.Value
ActiveSheet.Cells(last, 5).Value = UserForm1.TextBoxPLZ.Value
ActiveSheet.Cells(last, 6).Value = UserForm1.TextBoxOrt.Value
ActiveSheet.Cells(last, 7).Value = UserForm1.TextBoxEmail.Value
ActiveSheet.Cells(last, 8).Value = UserForm1.TextBoxAnmeldename.Value
|