Einfach eine Zeile einfügen

Computer: Software & Programmierung Office Software
1

Hallo,

ich habe eine sehr lange Tabelle und möchte gerne alle 5 Zeilen eine leere Zeile einfügen und diese gelb färben.

Gibt es dafür eine Möglichkeit? Oder muss ich das per Hand machen?

THX
Tanja

2

Hallo Tanja,

versuchs mal mit diesem Makro:

Sub Zeilen_einfuegen()
Range(„A1“).select
Do While ActiveCell.Value „“
ActiveCell.Offset(5, 0).Rows(„1:1“).EntireRow.Select
If ActiveCell.Value „“ Then
Selection.Insert Shift:=xlDown
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Viele Grüße
shooty

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

3

Hallo Tanja,

war das Makro hilfreich? Wäre schön, wenn du ein feedback abgeben würdest.

Gruß
shooty