AW: Range(Range("db")....
11.05.2011 16:50:15
pastinake
Hallo Rudi,
Du hast Recht,- Danke. Mir fehlte .cells im Suchbereich.
Nur verstehen kann ich es noch nicht.
Grenze ich den Bereichsnamen nicht zusätzlich durch .columns(1) ein, läuft es auch ohne .cells im Suchbereich:
Sub test3()
Dim rngBereich As Range, zelle As Range
Set rngBereich = Range("db")
For Each zelle In rngBereich
Debug.Print zelle.Value, zelle.Address, rngBereich.Address
Next zelle
End Sub
Grenze ich mit .columns(1) weiter ein, muss ich auch ein .cells verwenden, sonst ernte ich einen Überlauf.
Sub test3()
Dim rngBereich As Range, zelle As Range
Set rngBereich = Range("db").Columns(1)
For Each zelle In rngBereich.Cells
Debug.Print zelle.Value, zelle.Address, rngBereich.Address
Next zelle
End Sub
Erschliesst sich mir nicht. Auf jeden Fall habe ich Dank DIR genau die richtige Lösung
Bernd