Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
816to820
816to820
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen markieren

Forumthread: 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.
Anzeige

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
Anzeige
Danke an beiden Helfern! klappt super
09.11.2006 10:38:17
achim
danke
gruss
achim h
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige