Datenfeld wird bei Übertragung geleert
21.05.2007 08:16:05
Steve
ich habe folgendes Problem. Ich habe ein Makro, welches Daten, die von einem Userform in ein Datenblatt geschrieben werden, auf ein zweites Blatt kopiert werden.
Sub Datenkopieren()
Dim zelpreis
Dim zelname
Dim vname
Sheets("Dateneingabe").Activate
Sheets("Formeln").Calculate
zelpreis = Sheets("Formeln").Range("F23")
zelname = Sheets("Formeln").Range("D23")
vname = Sheets("Formeln").Range("E27")
Sheets("Formeln").Range("B24").Copy (Sheets("Dateneingabe").Cells(Sheets("Dateneingabe").Range(" _
B65536").End(xlUp).Row + 1, 2))
Application.CutCopyMode = False
Sheets("Formeln").Range("B26").Cut (Sheets("Dateneingabe").Cells(Sheets("Dateneingabe").Range(" _
B65536").End(xlUp).Row + 0, zelpreis))
Application.CutCopyMode = False
Sheets("Formeln").Range("B25").Cut (Sheets("Dateneingabe").Cells(Sheets("Dateneingabe").Range(" _
B65536").End(xlUp).Row + 0, zelname))
Application.CutCopyMode = False
Sheets("Formeln").Range("B27").Cut (Sheets("Dateneingabe").Cells(Sheets("Dateneingabe").Range(" _
B65536").End(xlUp).Row + 0, vname))
Application.CutCopyMode = False
Formweiterkopieren
End Sub
Bis jetzt war es immer so, dass die Daten (die vom Userform übergeben wurden) in den Feldern B24 (ein Datum) und B23 (ein Dropdown-Feld) nach der Übertragung noch gefüllt waren, sprich die Inhalte nicht ausgeschnitten sondern kopiert wurden. Jetzt habe ich ein neues Dropdown Feld eingefügt (B27) und bei der Übertragung wird das Feld geleert.
Kann mir jemand helfen, wie ich das korrigieren kann, dass bei einer Übertragung der Daten das Feld mit dem Inhalt gefüllt bleibt?
Wenn meine Erklärungen nicht verständlich waren, bitte nochmals kurz Rückinfo. Ich formuliere es dann nochmals um.
MfG
Steve
Anzeige