ich bin blutiger Anfänger bei Excel VBA.
Jedoch will ich eine Makro erstellen, die mir die Arbeit erleichtert.
Sie soll in Spalte A,B,E und G jede zweite Zeile 9 Leerzeilen einfügen, sodass die letzten Werte der Spalten wieder auf selber Höhe liegen.
(Also bei A,B,E,G eine Zeile - 9 leer - eine Zeile - neun leer.../// Bei C,D,F dann Zeile- Zeile-Zeile...)
Mit meiner aktuellen Programmierung werden leider noch bei allen Spalten die Zeilen eingefügt.
Sub Leerzeilen()
With ThisWorkbook.Worksheets("Dateiname").Activate
Dim Menge As Long
Menge = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row
Dim Titel As Integer
Titel = InputBox("Nach wie viel Zeilen beginnen die Werte")
Dim i As Long
For i = Menge - 1 + ((Menge + Titel) Mod 2) To Titel + 1 Step -1
Rows(i).Select
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Next
End With
End Sub
Ich hatte es damit versucht, jedoch hat sich an dem Ergebnis nichts geändert.
If Selection.Count = 1 Then
If Selection.Column = 1 Or Selection.Column = 2 Or Selection.Column = 5 Or Selection.Column = 7 _
Then
End if
End if