folgenden Code in einer Userform

Question

Hallo zusammen

Ich habe folgenden Code in einer Userform.

Private Sub cmdUebernehmen_Click()
'Fügt die eingetragenen Werte ins Tabellenblatt und schließt das
Formular frmPersonalstammbogen

Dim intErsteLeereZeile As Long


With ActiveSheet
intErsteLeereZeile = .Cells(Rows.Count, 1).End(x1Up).Row + 1

.Cells(intErsteLeereZeile, 1).Value = Me.txtPN.Value
.Cells(intErsteLeereZeile, 2).Value = Me.cmdAnrede.Value
.Cells(intErsteLeereZeile, 3).Value = Me.txtName.Value
.Cells(intErsteLeereZeile, 4).Value = Me.txtGeburtsdatum.Value
.Cells(intErsteLeereZeile, 5).Value = Me.txtSoll.Value
.Cells(intErsteLeereZeile, 6).Value = Me.txtUrlaub.Value
.Cells(intErsteLeereZeile, 7).Value = Me.txtEingestellt.Value
.Cells(intErsteLeereZeile, 8).Value = Me.txtFestnetz.Value
.Cells(intErsteLeereZeile, 9).Value = Me.txtMobil.Value
.Cells(intErsteLeereZeile, 10).Value = Me.txtEmail.Value
.Cells(intErsteLeereZeile, 11).Value = Me.txtEintritt.Value
End With

Unload frmPersonalstammbogen
End Sub


Ich erhalte immer die Meldung:
Laufzeitfehler 1004
Anwendungs oder objektdefinierter Fehler.

Was habe ich flasch in diesem Code

Answer 1

in welcher Zeile?
Warum .Value ?
nur wenige sehen Deine Datei.

Gruß Hajo

Answer 2

Hallo Noldi,

ersetze mal

End(x1Up)

durch

End(xlUp)

Also statt 1 ein kleines L.

Gruß

M.O.

Answer 3

Hallo zusammen

Komme einfach nicht dahinter

Habe hier mal die Datei aber total abgespeckt hochgeladen.

http://www.file-upload.net/download-8496450/Dummy-D---N--
-2014.xlsm.html


Vielleicht weis jemand Rat

Danke Gruß Noldi

Answer 4

Hallo Noldi,

hier die bearbeitete Datei: Dummy bearbeitet.

Wie schon in meiner Antwort geschrieben, funktioniert der Code mit der Zeile

intErsteLeereZeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1

einwandfrei.

Gruß

M.O.

Answer 5

Hallo,

folgende Berichtigungen sind aus meiner Sicht erforderlich

Private Sub cmdUebernehmen_Click()
'Fügt die eingetragenen Werte ins Tabellenblatt und schließt das
'Formular frmPersonalstammbogen (Hochkomma, da dies m. E. ein Kommentar ist)
Dim intErsteLeereZeile As Long


With ActiveSheet
intErsteLeereZeile = .Cells(Rows.Count, 1).End(x1Up).Row + 1 (ersetzen durch)
intErsteLeereZeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1 (s. AW 2)
.Cells(intErsteLeereZeile, 1).Value = Me.txtPN.Value
.Cells(intErsteLeereZeile, 2).Value = Me.cmdAnrede.Value
.Cells(intErsteLeereZeile, 3).Value = Me.txtName.Value
.Cells(intErsteLeereZeile, 4).Value = Me.txtGeburtsdatum.Value
.Cells(intErsteLeereZeile, 5).Value = Me.txtSoll.Value
.Cells(intErsteLeereZeile, 6).Value = Me.txtUrlaub.Value
.Cells(intErsteLeereZeile, 7).Value = Me.txtEingestellt.Value
.Cells(intErsteLeereZeile, 8).Value = Me.txtFestnetz.Value
.Cells(intErsteLeereZeile, 9).Value = Me.txtMobil.Value
.Cells(intErsteLeereZeile, 10).Value = Me.txtEmail.Value
.Cells(intErsteLeereZeile, 11).Value = Me.txtEintritt.Value
End With

Unload frmPersonalstammbogen
End Sub

Dann die in () texte noch löschen.

Gruß

Helmut

P.S. deine Dummydatei wird bei mir mit einer Fehlermeldung geöffnet.