Hallo Excelgemeinde! Ich steh auf dem Schlauch und komm hier nicht weiter.
Sub nach_opos_verschieben()
lr_opos = Worksheets("OPOS").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("ausgegl. Posten").Select
'---hier kommt der Fehler
Rows(ActiveCell.Row).Copy Destination:=Worksheets("OPOS").Rows(lr_ausgegl + 1)
Rows(ActiveCell.Row).Delete
'----Verdichtung aktualisieren
Application.ScreenUpdating = False
werte_verdichten
Application.ScreenUpdating = True
Worksheets("ausgegl. Posten").Select
End Sub
Führe ich das Makro über einen Button aus, kriege ich den Fehler " die copy-methode des range-objektes ist fehlerhaft". Führe ich das Makro vom Editor aus aus, gehts. Was mache ich falsch???