Hallo Excel Profis,
ich habe folgendes Makro:
'Selektiert im Bereich alle Zeilen in denen mindestens eine Zelle ausgefüllt ist A1:H1000
Dim wks As Worksheet, Bereich As Range, Selektieren As Range
Dim rngZeile As Range, Zeile As Long
Set wks = ActiveSheet
Set Bereich = wks.Range("A1:H1000")
With wks
For Zeile = Bereich.Row To Bereich.Row + Bereich.Rows.Count - 1
'Zellbereich in Zeile
Set rngZeile = .Range(.Cells(Zeile, Bereich.Column), _
.Cells(Zeile, Bereich.Column + Bereich.Columns.Count - 1))
'Prüfen ob alle Zellen im Zellbereich leer sind
If Application.WorksheetFunction.CountBlank(rngZeile) < Bereich.Columns.Count Then
If Selektieren Is Nothing Then
Set Selektieren = rngZeile
Else
Set Selektieren = Application.Union(Selektieren, rngZeile)
End If
End If
Next
If Not Selektieren Is Nothing Then Selektieren.Select
End With
Jedoch würde ich gerne den Bereich gerne wie folgt ändern:
Set Bereich = wks.Range("A1:BP1000")
Jedoch bekomme ich dann die Fehlermeldung, Laufzeitfehler 1004!
kann mir jemand bei meinem Problem helfen?
Im Vorraus vielen Dank!
mfg Andreas