Hallo Elec,
dann versuche es mal mit nachfolgenden Code, der Dir in der ersten Leerzeile einen Rahmen um den Bereich A:D der entsprechenden Zeile macht.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
Option Explicit
Sub Leerzeilen()
Dim i As Integer
Dim Menge As Integer
Application.ScreenUpdating = False
Menge = ActiveSheet.UsedRange.Rows.Count
For i = Menge To 6 Step -1
Rows(i).Insert Shift:=xlDown
Rows(i).Insert Shift:=xlDown
With Range(Cells(i, 1), Cells(i, 4))
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End With
Next
End Sub
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]