Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
816to820
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
816to820
816to820
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellen markieren

Zellen markieren
09.11.2006 10:21:00
achim
Hallo excel freunde
wer kann mal schauen?
die active celle und die darunter befindlichen Zellen mit inhalten sollen makiert werden

Sub LastUsedCell()
Cells(Rows.Count, 18).End(xlUp).Offset(1, 5).Select
End Sub

danke achim h.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen markieren
09.11.2006 10:32:59
IngGi
Hallo Achim,
so?

Sub LastUsedCell()
Range(Cells(Rows.Count, 18).End(xlUp).Offset(1, 5), _
Cells(Rows.Count, 18).End(xlUp).Offset(1, 5).End(xlDown)).Select
End Sub
Gruß Ingolf
AW: Zellen markieren
09.11.2006 10:33:09
lueckii
Hallo Achim!
So funktionierts

Sub LastUsedCell()
Dim ZelleA As String
Dim ZelleB As String
ZelleA = ActiveCell.Address
ZelleB = Cells(Rows.Count, 1).End(xlUp).).Offset(1, 5).Address
ActiveSheet.Range(ZelleA & ":" & ZelleB).Select
End Sub

Gruß Martin
Danke an beiden Helfern! klappt super
09.11.2006 10:38:17
achim
danke
gruss
achim h
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige