Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

"ActiveRange" - VBA | Herbers Excel-Forum


Betrifft: "ActiveRange" - VBA von: Franz W.
Geschrieben am: 15.12.2009 14:22:41

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

  

Betrifft: Meinst du vielleicht "Selection"? ;-) oT von: Matthias5
Geschrieben am: 15.12.2009 14:23:50




  

Betrifft: AW: Meinst du vielleicht "Selection"? ;-) oT von: Franz W.
Geschrieben am: 15.12.2009 14:25:27

ähm - ja - glaub schon.....

Und wie kann ich die erste und letzte Zelle von "Selection" bestimmen?


Grüße
Franz


  

Betrifft: AW: Meinst du vielleicht "Selection"? ;-) oT von: Original Kurt
Geschrieben am: 15.12.2009 14:30:21

Hi,

MsgBox Selection.Cells(1).Address
MsgBox Selection.Cells(Selection.Count).Address

mfg Kurt


  

Betrifft: AW: Meinst du vielleicht "Selection"? ;-) oT von: Franz W.
Geschrieben am: 15.12.2009 14:34:35

Hallo Kurt,

danke für die "LetzteZelleDesBereiches" - hilft mir weiter.


Danke und Grüße
Franz


  

Betrifft: Wozu noch die Zellen? von: Matthias5
Geschrieben am: 15.12.2009 14:31:16

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


  

Betrifft: AW: Wozu noch die Zellen? von: Franz W.
Geschrieben am: 15.12.2009 14:40:40

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


  

Betrifft: Schleife in Selection von: Matthias5
Geschrieben am: 15.12.2009 14:44:32

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


  

Betrifft: AW: Schleife in Selection von: Franz W.
Geschrieben am: 15.12.2009 14:54:58

Hallo Matthias,


ah gut. Und dann für jede einzelne Zelle:

strDatei = c

Toll, vielen Dank, funktioniert.


Grüße
Franz


  

Betrifft: AW: "ActiveRange" - VBA von: Uduuh
Geschrieben am: 15.12.2009 14:30:22

Hallo,
meinst du Selection.Address ?

Gruß aus’m Pott
Udo



  

Betrifft: AW: "ActiveRange" - VBA von: Franz W.
Geschrieben am: 15.12.2009 14:32:27

Hallo Udo,

ja, vielen Dank, einfach eigentlich, hab's mal wieder viel komplizierter versucht .... :-(((


Danke und Grüße
Franz