AW: VBA Leerzeile einfügen
07.05.2020 10:21:06
Nepumuk
Hallo Wolf,
teste mal:
Option Explicit
Public Sub Findbuch()
Dim objCell As Range
Dim strFirsAddress As String
Set objCell = Columns(1).Find(What:="Permalink", _
LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
If Not objCell Is Nothing Then
strFirsAddress = objCell.Address
Do
If objCell.Offset(1, 0).Value <> "Findbuch" And _
Not IsEmpty(objCell.Offset(1, 0).Value) Then _
objCell.Offset(1, 0).EntireRow.Insert
Set objCell = Columns(1).FindNext(After:=objCell)
Loop Until objCell.Address = strFirsAddress
Set objCell = Nothing
End If
End Sub
Gruß
Nepumuk