leere Zeilen und Formel einfügen
08.11.2021 08:49:15
Ronny
ich möchte gerne in ein Blatt jede 2. Zeile eine Leerzeile einfügen und ab F bis J in der Tabelle den Wert der darüber liegenden Zelle geteilt durch 12
rechnen. A bis E sollen aber von oben kopiert werden. Es wäre schön wenn man zum Abschluss noch vor Spalte A eine neue Spalte einfügt und die Werte bis unten
abwechselnd mit 1 und 2 vernummert.
Was ich bis jetzt schon habe wäre das.
Sub Leerzeilen()
Dim wkstemp As Worksheet, Menge As Long, Titel As Long, i As Long
Set wkstemp = ActiveSheet
Menge = wkstemp.UsedRange.Rows.Count
Titel = InputBox("Wie viele Zeilen ist die Überschrift hoch?")
For i = Menge To Titel + 2 Step -1
Rows(i).Insert Shift:=xlDown
Next
End Sub
Grüße
Anzeige