HERBERS Excel-Forum - das Archiv
Bewerten Sie hier bitte das Excel-Portal
"ActiveRange" - VBA
Franz

Hallo Fachleute,
mit ActiveCell.Address lässt sich die aktuell selektierte Zelle herausfinden. Geht das auch, wenn mehrere Zellen selektiert wurden? Z. B. Anfang und Ende von "O5:O11" bestimmen? Ich meine nicht UsedRange!
Grüße
Franz

Meinst du vielleicht "Selection"? ;-) oT
Matthias5

AW: Meinst du vielleicht "Selection"? ;-) oT
Franz

ähm - ja - glaub schon.....
Und wie kann ich die erste und letzte Zelle von "Selection" bestimmen?
Grüße
Franz
AW: Meinst du vielleicht "Selection"? ;-) oT
Original

Hi,
MsgBox Selection.Cells(1).Address
MsgBox Selection.Cells(Selection.Count).Address
mfg Kurt
AW: Meinst du vielleicht "Selection"? ;-) oT
Franz

Hallo Kurt,
danke für die "LetzteZelleDesBereiches" - hilft mir weiter.
Danke und Grüße
Franz
Wozu noch die Zellen?
Matthias5

Hallo Franz,
wozu brauchst du denn noch die erste und die letzte Zelle? Selection ist ja schon ein Range.
Die Adresse erhältst du mit Selection.Address.
Gruß,
Matthias
AW: Wozu noch die Zellen?
Franz

Hallo Matthias,
in dem Bereich, der wahlweise ausgewählt wird, stehen Dateinamen. Und die sollen in ein Array eingelesen werden. Vielleicht geht's ja auch einfacher, aber die Möglichkeit, die ich kann ist diese mittels einer Schleife einzulesen von der ersten bis zur letzten Zelle. Und dazu nutze ich Anfangs- und Endzelle.
Grüße
Franz
Schleife in Selection
Matthias5

Hallo Franz,
so kannst du alle Zellen in der Selektion durchlaufen:
Sub Schleife_in_Selection()
Dim c As Range
For Each c In Selection
Next c
End Sub
Gruß,
Matthias
AW: Schleife in Selection
Franz

Hallo Matthias,
ah gut. Und dann für jede einzelne Zelle:
strDatei = c

Toll, vielen Dank, funktioniert.
Grüße
Franz
AW: "ActiveRange" - VBA
Uduuh

Hallo,
meinst du Selection.Address ?
Gruß aus’m Pott
Udo

AW: "ActiveRange" - VBA
Franz

Hallo Udo,
ja, vielen Dank, einfach eigentlich, hab's mal wieder viel komplizierter versucht .... :-(((
Danke und Grüße
Franz