Hallo zusammen,
ich habe folgenden Code:
Sub ZeilenKopieren()
Dim NächsteLeere As Long
ActiveSheet.Unprotect Password:="passwort"
ActiveCell.EntireRow.Select
NächsteLeere = Tabelle1.Cells(1, 27).End(xlDown).Row + 3
Tabelle1.Rows("18:20").Copy
Tabelle1.Cells(NächsteLeere, 1).Select
ActiveSheet.Paste
ActiveSheet.Protect Password:="passwort"
End Sub
In Zeile 27 also AC ist immer ein "X".
Aus irgendeinem mir unverständlichen Grund kopiert er ständig in die Zeile 11-13 anstatt nach dem letzten X in der Zeile 20. Wieso? Ich bin kurz vorm Nervenzusammenbruch...
|