Laufzeitfehler '1004'
12.07.2003 21:09:15
rainer
ich habe ein Problem:
ich versuche aus einer Tabelle "Bestellung" 4 zellen auszuwählen und in ein Rechnungsarchiv
einzufügen. Ich habe es so gemacht:
Sub speichern_TischGast()
Dim Lst As Object, Frm As Object
Dim z As Long
Set Lst = sheets("Rechnungsarchiv")
Set Frm = ActiveSheet
z = Lst.range("A1").CurrentRegion.Rows.Count
z = z + 1
Lst.cells(z, 1).Value = Frm.range("d2").Value
Lst.cells(z, 2).Value = Frm.range("e2").Value
Lst.cells(z, 3).Value = Frm.range("b4").Value
Lst.cells(z, 4).Value = Frm.range("e33").Value
End Sub
Zuerst hat es auch geklappt. Aber plötzlich erhalte ich die Meldung:
Laufzeitfehler '1004'.
Was kann ich nur angestellt haben?
Gruß
rainer
Anzeige