Urzeile an beliebiger Stelle in Liste einsetzen
02.11.2017 15:20:00
Martin
ich ersuche um Eure geschätzte Hilfe!
Leider verfüge ich nur über eingeschränkte VBA-Kenntnisse (copy paste) und habe nicht die passende Programmierung im Netz gefunden.
Mein Problem:
Ich habe eine Liste in der von Zeit zu Zeit neue Zeilen (eine Mutterzeile soll kopiert werden) an beliebiger Stelle eingefügt werden sollen.
Mein Wunsch ist, dass ich in eine beliebige Zelle (z.B. I25) der Liste klicke über der die Mutterzeile (aus Zeile 4) eingefügt wird.
Danach soll eine fortlaufende Nummer (nur der Wert) (wird in Zelle E5 ermittelt) in die neu eingefügte Zeile in Spalte A kopiert werden.
Mein Gedanke war, den Cursor, der in einer beliebigen Zeile in der Liste steht in die Spalte A springen zu lassen und diese Zelle als Variable zu deklarieren, damit ich immer wieder hier zurück springen kann. Leider funktioniert das nicht.
Hier ist mein zusammenkopierter Code der mir Kopfzerbrechen bringt.
Sub test()
' aus beliebiger Spalte zu Spalte A springen
Range("A" & ActiveCell.Row + 0).Select
' die ausgewählte Zelle als Variable Bereich definieren
Dim Bereich As Range
Set Bereich = Range("A1")
' die Mutterzeile kopieren und zur Zelle "Bereich" springen und darüber einfügen
Rows("4").Select
Selection.Copy
Bereich.Select
Selection.Insert
' die fortlaufende Nummer aus E5 in die neu eingefügte Zeile in den Bereich A kopieren
Range("E5").Select
Selection.Copy
Bereich.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Danke für die Unterstützung!
LG Martin