möchte gerne per Makro die Inhalte der jeweils aktuellen Zeile (= die Zeile, in der sich die Maus bei Ausführung des Makros befindet) kopieren und in der Zeile darunter (mit einigen Löschungen) einfügen.
Das folgende Mini-Makro macht auch genau das - nur immer in der selben Zeile, egal wo sich meine Maus befindet.
Wie kann ich dem Guten den sagen, dass er für das Kopieren immer die gerade aktuelle Zeile (=Pos. der Maus !!!) verwenden soll ?
Ist wahrscheinlich nur ein kleiner Trick - ich komm aber trotzdem nicht drauf... ;-)
VG u. vielen Dank für jeden Tipp,
Micha
Sub Einfügen()
' Tastenkombination: Strg+e
Range("B6").Select
Selection.EntireRow.Insert
Rows("5:5").Select
Selection.Copy
Rows("6:6").Select
ActiveSheet.Paste
Rows("5:5").Select
Application.CutCopyMode = False
Selection.Copy
Rows("6:6").Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("R6:S6").Select
Selection.ClearContents
Range("G6:H6").Select
Range("H6").Activate
Selection.ClearContents
Range("C6:D6").Select
Range("D6").Activate
Selection.ClearContents
Range("C6").Select
End Sub