Makro läuft ab und zu
06.03.2008 13:18:00
J.
ich habe hier ein Makro , dass ,wenn ich es vom makroeditor aus starte prima durchläuft, jedoch beim start über einen commandbutton aus der tabelle, eine fehlermeldung anzeigt.
kann sich das mal jemand anschauen und mir sagen warum es nicht immer funktioniert?
das makro soll in einer tabelle den text aus zeile 1 spalte e-m in die erste freie zeile in spalte e-m kopieren.
Private Sub cmdHinzufügen_Click()
Dim loletzte As Long, daten1 As String, daten2 As String, daten3 As String, daten4 As _
String, standart As Range
loletzte = Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1
daten1 = Worksheets(2).Cells(8, 10).Value
daten2 = Worksheets(2).Cells(8, 11).Value
daten3 = Worksheets(2).Cells(8, 12).Value
daten4 = Worksheets(2).Cells(8, 13).Value
Worksheets(1).Cells(loletzte, 1) = daten1
Worksheets(1).Cells(loletzte, 2) = daten2
Worksheets(1).Cells(loletzte, 3) = daten3
Worksheets(1).Cells(loletzte, 4) = daten4
Set standart = Worksheets(1).Range(Cells(1, 5), Cells(1, 13))
Worksheets(1).Range(Cells(loletzte, 5), Cells(loletzte, 13)).Value = standart.Value
Unload usrMaschineHinzufügen
ActiveWorkbook.Worksheets(2).Cells(8, 10) = "-"
ActiveWorkbook.Worksheets(2).Cells(8, 11) = "-"
ActiveWorkbook.Worksheets(2).Cells(8, 12) = "-"
ActiveWorkbook.Worksheets(2).Cells(8, 13) = "-"
End Sub
Ich erhalte immer den fehler nr. 1004