Adressen der Zellen eines Bereichs ???
27.02.2004 09:50:21
Ben
ich kapiere eins nicht. Wenn ich die Adresse jeder Zelle eines bestimmten Bereichs aufschreiben will, kann ich diese Zellen sozusagen durchzählen:
Sub adressen_aufzählen()
Dim index As Long
ActiveSheet.UsedRange.Select
For index = 1 To Selection.Cells.Count
Debug.Print Selection.Cells(index).Address(False, False)
Next index
End Sub
Funktioniert prima. Aber:
Nehmen wir an, im beschriebenen Bereich stehen einige Funktionen, und ich will deren Zelladressen auflisten. Wenn ich jetzt schreibe:
Sub funktionen_aufzählen()
Dim index As Long
ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas).Select
For index = 1 To Selection.Cells.Count
Debug.Print Selection.Cells(index).Address(False, False)
Next index
End Sub
Das funktioniert überhaupt nicht: Dann bekomme ich die Adressen: A1, A2, A3 ...
Wieso kann ich bei UsedRange die Zellen durchzählen - bei Cells.SpecialCells aber nicht? Das ist doch inkonsequent: In beiden Fällen haben wir ja einen Zellbereich mit einer ersten Zelle, zweiten Zelle usw.
Ja, wenn Euch hierzu etwas Klärendes einfällt, wäre ich Euch für ein paar Hinweise sehr dankbar.
Viele Grüße, Ben.
Anzeige