Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1224to1228
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Range und Cells

Range und Cells
ing.grohn
Hallo Forum,
kann man Range eigentlich komplett durch Cells ersetzen?
oder wie schreibt man:
Range("C11:C33,C35:C57,C59:C81,C83:C105,C107:C129,C131:C153").Select

(bitte nicht das select kommentieren)
mit Cells?
ευχαριστώ πολύ για τη βοήθεια
Mit freundlichen Grüßen
Albrecht

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Range und Cells
05.08.2011 11:15:58
Rudi
Hallo,
Union(Range(Cells(11, 3), Cells(33, 3)), _
Range(Cells(35, 3), Cells(57, 3)), _
Range(Cells(59, 3), Cells(81, 3)), _
Range(Cells(83, 3), Cells(105, 3)), _
Range(Cells(107, 3), Cells(129, 3)), _
Range(Cells(131, 3), Cells(153, 3))).Select

Prinzipiell könntest du die Cells auch einzeln auflisten. Aber dann tippst du dir nen Wolf.
Union(Cells(35,3),cells(36,3),cells(37,3),cells(38,3).....).Select
Alternativ per Schleife den Range aufbauen:
Sub yyyy()
Dim i As Long, rng As Range
Set rng = Range(Cells(11, 3), Cells(33, 3))
For i = 35 To 131 Step 24
Set rng = Union(rng, Cells(i, 3).Resize(23))
Next
rng.Select
End Sub
Gruß
Rudi
Anzeige
AW: Range und Cells
05.08.2011 11:48:52
ing.grohn
Hallo Rudi,
vielen Dank.
So hatte ichs mir vorgestellt: kompakt und übersichtlich und mit cells.
Ein schönes Wochenende
Albrecht

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige