Microsoft Excel

Herbers Excel/VBA-Archiv

Problem mit ActiveCell


Betrifft: Problem mit ActiveCell von: Frank H.
Geschrieben am: 27.07.2017 19:43:37

Hallo Zusammen und einen schönen Guten Abend.

Mittels folgendem wird in eine ausgewählte Zelle das aktuelle Datum eingetragen.

ActiveCell.Select

Selection.FormulaR1C1 = Date

Wie kann ich das aber auf die Zellen E4:E28 begrenzen!

Danke für eure Hilfe!

Gruß Frank H.

  

Betrifft: AW: Problem mit ActiveCell von: Mullit
Geschrieben am: 27.07.2017 19:49:45

Hallo,

so:

If Not Intersect(ActiveCell, Range("E4:E28")) Is Nothing Then _
   ActiveCell.Value = Date

Gruß, Mullit


  

Betrifft: AW: Problem mit ActiveCell von: Gerd L
Geschrieben am: 27.07.2017 19:51:37

Moin Frank!

If Not Intersect(Range("E4:E28"), ActiveCell) Is Nothing Then ActiveCell.Value = Date


Gruß Gerd


  

Betrifft: AW: Problem mit ActiveCell von: Frank H.
Geschrieben am: 27.07.2017 20:13:58

Hallo noch mal!

Danke euch beiden, funzt bestens!

Gruß Frank H.


Beiträge aus den Excel-Beispielen zum Thema "Problem mit ActiveCell"