Leerzeile die 3.
14.05.2013 11:50:05
Kai
Also ich habe es jetzt so gemacht, erst filtere ich wie gewünscht, dann lösche ich mit folgendem Makro die ausgeblendeten Zeilen!
Sub unsichtbar_loeschen()
Dim wksBlatt As Worksheet
Dim rng As Range
Dim lastrow As Long
Dim l As Long
Application.ScreenUpdating = False
lastrow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
If lastrow > 1 Then
For l = lastrow To 1 Step -1
If Range("A" & l).EntireRow.Hidden Then
Range("A" & l).EntireRow.Delete
End If
Next l
End If
Application.ScreenUpdating = True
End Sub
Danach verwende ich folgendes Makro um die Leerzeilen einzufügen:
Sub Leer_einfuegen()
Dim i As Long, a As Integer
i = Cells(65536, 1).End(xlUp).Row
For a = i To 6 Step -1 'e
If Cells(a, 1) Cells(a - 1, 1) Then
Rows(a).Insert Shift:=xlDown
End If
Next a
End Sub
Das einzige was mir noch fehlt ist, dass die eingefügten Zeilen rot sind und zwar von A-L.
Die Variante ist zwar etwas zeitintensiv aber sie geht!
Wie bekomme ich sie rot!!!
Danke
LG
Kai