Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Es kommt noch eine Fehlermeldung, wenn....

Es kommt noch eine Fehlermeldung, wenn....
21.04.2009 10:27:32
Joachim
keine leere Zelle Gefunden wird, sprich, wenn im entsprechenden Range alle Felder gefüllt sind, dann kommt die Mledung: Laufzeitfehler 1004, keine Zelle gefunden.
Gruss
Joachim
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Es kommt noch eine Fehlermeldung, wenn....
21.04.2009 10:30:05
Tino
Hallo,
wozu ein neuer Beitrag?
Sub Beispiel()
Dim lngRow As Long, lngCol As Long
Dim Bereich As Range
Dim objTab As Worksheet

'eventuell Namen anpassen 
Set objTab = ActiveSheet

With objTab
    
    lngRow = .Cells.Find("*", , xlValues, 2, 1, 2, False, False).Row
    lngCol = .UsedRange(, .UsedRange.Columns.Count).Column
    Set Bereich = .Range("B10:B" & lngRow)
    Bereich.Interior.ColorIndex = xlColorIndexNone
 If Application.WorksheetFunction.CountBlank(Bereich) > 0 Then
    For Each Bereich In Bereich.SpecialCells(xlCellTypeBlanks)
     .Range(.Cells(Bereich.Row, 1), .Cells(Bereich.Row, lngCol)).Interior.ColorIndex = 6
     Bereich.Interior.ColorIndex = 3
    Next Bereich
 End If
End With

End Sub


Gruß Tino

Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige