Excel Makro
04.09.2003 11:27:07
Holger Schwarz
ich hoffe mir kann einer bei meinem Problem helfen.
Ich habe ein Teil des Makros schon geschrieben, mir fehlen nur einige Befehle (die wichtigsten natürlich !!!).
Folgendes Makro habe ich bereits erstellt:
Sub Makro1()
' Makro1 Makro
' Tastenkombination: Strg+n
' Schutz für das Arbeitsblatt aufheben
ActiveSheet.Unprotect
' Erste Leere Zelle in Spalte A finden
' Markieren der Zeile oberhalb
' Kopieren der markierten Zeile
Selection.Copy
' Erste leere Zelle in Spalte A finden
' Einfügen der kopierten Zeile
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Locked = False
Selection.FormulaHidden = False
' Tabelle wieder schützen
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Das Makro soll folgendes ausführen (Nachdem STRG+N gedrückt wurde):
1. Den Blattschutz aufheben
2. Die letzte Zeile finden und markieren
3. Die markierte Zeile in die nächste darunter liegende Zeile kopieren
4. Die Tabelle nach dem kopieren wieder schützen
Da wo mir der entsprechende Befehl fehlt habe ich eine leere Zeile eingefügt.
Es kann natürlich sein das meine vorgehensweise grundsätzlich falsch ist, für Tipps bin ich natürlich dankbar.
Ich danke schon mal im vorraus für eure Mühe.
Servus,
Holger