Visual Basic-Quellcode
- Sub Datenspeichern()
- If Worksheets("Eingabe-Maske").Range("B4,C4,D4,E4,F4") = "" Then
- MsgBox ("Eingabe Überprüfen ! Zum Speichern müssen Stammdaten eingeben werden!")
- Else
- Dim LastRow As Long
- LastRow = Cells(Rows.Count, 1).End(xlDown).Row + 1
- If LastRow < 3 Then LastRow = 3
- Worksheets("Eingabe-Maske").Range("B4:G4").Copy _
- Worksheets("Erfassung").Cells(LastRow, 1).PasteSpecial Paste:=xlPasteValues 'XXXXXXXX'
- End If
- End Sub
Ich bekomme an der mit X Markierten stelle einen einen Laufzeitfehler 1004 (Anwendungs- oder objektdefinierter Fehler). Fals jemand einen Einfall hätte wäre ich sehr Dankbar!