Zeilenteile einfügen und duplizieren
01.10.2019 13:53:58
Friedel
ich habe einen Makro, der eine Zeile (bei der Cursorposition) einfügt und den Inhalt der oberen Zeile dupliziert. Jetzt möchte ich genau das Gleiche für den Teil einer Zeile machen; also z. B. den Bereich A12-R12 um eine weitere Reihe nach unten kopieren; also mit dem Ergebnis, daß dann in A12-R12 und A13-R13 die gleichen Inhalte stehen:
Sub Zeileeinf()
' Zeilen_einfügen Makro
' Makro am 16.09.2010 von Privat aufgezeichnet
If Selection.Areas.Count > 1 Then
MsgBox ("Bitte nicht mehrere Bereiche auswählen!")
Exit Sub
End If
Application.ScreenUpdating = False
Selection.EntireRow.Insert
' ACHTUNG: Das With darf nicht 1 drüber, da sich durch das Insert die Selection ändert
With Selection.EntireRow
.Offset(-1, 0).Resize(1).Copy
.PasteSpecial Paste:=xlPasteFormulas
' Wenn in der Zeile unter den eingefügten Zeilen eine Formel in
' Spalte B steht, dann muss die korrigiert werden
If .Resize(1, 1).Offset(.Rows.Count, 1).HasFormula Then
.Resize(1, 1).Offset(.Rows.Count, 1).FormulaR1C1 = _
.Resize(1, 1).Offset(-1, 1).FormulaR1C1
End If
End With
Application.ScreenUpdating = True
End Sub
Danke!
Friedel