Office: For Each Schleife Anstatt ActiveSheet festen Tabellenblattnamen benutzen

Hallo ,

habe folgende Schleife geschrieben :

Dim rngBereich As Range
Dim rngZelle As Range
Sub Test()

Set rngBereich = ActiveSheet.Range(ActiveSheet.Cells(1, 1), _
ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp))

For Each rngZelle In rngBereich
If rngZelle.Value = "" Then
rngZelle.Offset(0, 3).Interior.Color = vbRed
End If

Next

End Sub

Ich kriege es irgendwie nicht hin im Set rngBereich das ActiveSheet umzuschreiben das es sich auf das Sheet("Daten") bezieht .

Kann mir einer auf die Sprünge helfen ?

Danke

:)

 

with Sheet("Daten"
Set rngBereich = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
End With

Bitte berücksichtige das Themen die Erledigt sind als Erledigt markiert werden können. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.





Meine Homepage Homeseite - Hajo's Excelseiten

 

Hi, so :

Code:

 

Danke ,

was bin ich blöd ……..

 

Och, so hart würde ich das nicht sehen *wink.gif*
Schönen Abend noch!

 

Hallo Solitec,

ganz sauber ist Reginas Code aber nicht, denn wenn das TB 'Daten' nicht das aktive TB ist, dann knallt's jämmerlich, deshalb so: Code:

Gruß von Luschi
aus klein-Paris

PSD: ansonsten hätest Du auch bei deinem Ausgangscode bleiben können.

 

\@Luschi: stimmt, das ActiveSheet in den Klammern hatt eich wohl "ausgeblendet" *boah