Vielen Dank Zusammen für die Mühe - ich habe im Netzt alternativ etwas gefunden womit es auch klappt.
Ich bin mir sicher, dass diese Vorgehensweise umfänglicher ist aber es funktioniert ja erstmal :)))
Ich habe jedoch das Problem, wenn ich die Zeilen untereinanderweg einfügen lasse via VBA, möchte ich, dass die eingefügten Zellen "Verbunden und Zusammengefügt werden". Problem ist, dass wenn AnzAS einen kleinen Wert annimmt, 2, 3 oder 4 - verbindet mir Excel die eingefügten Zellen mit anderen, darunterliegenden, leeren Zellen hinweg. Woran leigt das???
Ich möchte, wenn ich AnzAS angebe, z.B. 2, dass 2 Zeilen mit dem selben Inhalt untereinandner eingefügt wird und diese eingefügten Zellen miteinander Verbunden werden.
Mein VBA - Code bisher:
For i = 2 To AnzAS
ActiveCell.Offset(1, 0).Value = ActiveCell.Value * 1
ActiveCell.Offset(1, 0).Select
'Meldung an Bediener Anzahal der eingefügten Anlaufsstufen zälend
MsgBox "Anlaufstufe " & i & " eingefügt"
Next
'Auswählen Bereich Fahrzeugmodell
Range(Cells(8, 2), Cells(Cells(1, 1).SpecialCells(xlCellTypeLastCell).Row, 2)).Select
With Selection
.HorizontalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With 'PROBLEM MAKIERT IMMER BIS ZEILE 15 WENN ZU FÜLLENDE ZELLEN ZU WENIG
Selection.Merge
|