Anzeige
Archiv - Navigation
680to684
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
680to684
680to684
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zelle auswählen

Zelle auswählen
13.10.2005 19:53:32
Praktikant
Ich möchte in einer Tabelle die letzte gefüllte Zelle einer Spalte ermitteln lassen und anschließend die darunter und zwei Spalten zuvor liegende Zelle als aktive Zelle setzen.
Es wär mir sehr lieb, wenn ihr mir bereits einen funktionierenden Vorschlag unterbreiten könntet. Dafür danke ich euch bereits im Voraus!

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle auswählen
13.10.2005 20:23:51
Harald
Hallo Excel-Profi-Praktikant, ;-))
letzte Zeile in z.B. Spalte D (D = 4)
LrowD = cells(rows.count, 4).end(xlup).row
LrowD.offset(1, -2).select
wählt die Zelle 1 runter, 2 nach links als aktive Zelle
Gruß
Harald
Danke funzt....Bitte gern geschehen owT. Alles....
13.10.2005 20:47:53
Harald
...muss man selber machen.
;-))
Debugging: ist noch nen Fehler in der Formel
14.10.2005 11:34:15
Praktikant
lrowD war nicht dimensioniert
habe folgendes hinzugefügt
Dim LrowD as Range
funktioniert aber selbst dann net.
Asche über mein Haupt
14.10.2005 11:55:15
Harald
Sorry, da war ich zu schnell.
LrowD wird bei der Ermittlung derletzten Zelle als Zähler eingesetzt (integer) und soll danach ein Range-Objekt werden. Das geht nich.
Ist mir glatt durchgeflutscht....und offset ist auch unnötig.
Dim LrowD As Integer
LrowD = Cells(Rows.Count, 4).End(xlUp).Row + 1
Cells(LrowD, 2).Select
Gruß
Harald
Anzeige
AW: Asche über mein Haupt
16.10.2005 22:25:02
praktikant
Das Script funktioniert in einer leeren Tabelle super.
In meiner leider (noch) nicht. Ich konnte den Fehler anhand von überprüften selects und range nicht finden aber dann werd ich der Reihe nach alles auskommentieren und dann den Fehler schon finden.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige