Makro ergänzen
06.07.2005 22:40:30
Achim
Ich habe von Uwe ein Makro, dass ich auch einsetzen kann.
Nun möchte ich das auch für die Spalte K verwenden. weiss aber nicht wie?
Kann jemand diese Makro für mich ergänzen?
Sub kopieren43()
Dim LR%
LR = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte A
Range(Cells(LR + 1, 1), Cells(LR + 43, 1)) = Cells(LR, 1)
End Sub
danke
achim H.
Anzeige