Daten in einem bestimmten Bereich einfügen
Roger
Ich würde gerne in einem Excelblatt ab einem bestimmten Bereich etwas einfügen. Das heisst ab B1:D10 steht ein vorgegebner Text1. Ab B11:D15 wird ein bestimmter Text2 eingeben. Ab B16 steht wieder ein anderer Text3. Nun möchte ich aber bei B15 die von B11:D15 kopierten Zellen einfügen so das der Text2 vor Text3 eingefügt wird. Der Text2 muss unter Umständen aber mehrmals eingefügt erden können also zuerst bei B11 dann bei B16 usw. und der Text 3 schiebt sich immer weiter nach unten. In der Spalte A1:A10 und A11:A15 sind die Zellen jeweils verbunden.
Habs mal mit folgendem Code probiert das geht aber leider nur ab fixer Stelle.
Sub Makro3()
Rows("16:20").Select
Selection.Insert Shift:=xlDown
Range("B11:D15").Select
Selection.Copy
Range("B16").Select
ActiveSheet.Paste
Range("C116:D20").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A11:A20").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Range(B21).Select
End Sub
Wie muss ich das ab änder das dies geht? Als Muster habe ich eine Anlage angehängt.
Besten Dank für eure Hilfe
Gruss
Roger
https://www.herber.de/bbs/user/77964.xls