Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1280to1284
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1280to1284
1280to1284
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Select anhängen

Select anhängen
23.10.2012 16:23:48
websnake75
Hallo, ich versuche gerade
einen VBA-Code zu verstehen, hab aber keine VBA-Kenntnisse.
Jetzt wollte ich gerade mal testen, an folgende Zeile den Select-Befehl dranzuhängen um zu sehen was passiert. Bekomme bei meinen Versuchen aber immer Fehler. 
Cells(Rows.Count, 1).End(xlUp).Row - 2

Ich verstehe das wie folgt: Gehe in Spalte A, dann ganz an das Ende und dann so lange hoch bis der letzte Eintrag erreicht ist und dann noch 2 Zeilen hoch. Möchte es aber trotzdem mal mit Select probieren.
Kann mir jemand helfen?
Gruß
Ronald

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Select anhängen
23.10.2012 16:36:23
Rudi
Hallo,
Select ist in VBA zu 99% überflüssig.
Cells(Cells(Rows.Count, 1).End(xlUp).Row - 2, 1).Select
Range("A" & Cells(Rows.Count, 1).End(xlUp).Row - 2).Select
Cells(Rows.Count, 1).End(xlUp).Offset(-2).Select
Gruß
Rudi

AW: Select anhängen
23.10.2012 16:37:59
Uwe
Hallo Roland,
dieser Code gibt dir die NUMMER der gesuchten Zeile zurück, also z.B. 25.
Um die Zelle zu selektieren musst Du diese Nummer dann noch in den Range einbauen;
Cells(Cells(Rows.Count, 1).End(xlUp).Row - 2, 1).Select
oder:
Range("A" & Cells(Rows.Count, 1).End(xlUp).Row - 2).Select
Aber Du kannst auch direkt selektieren, ohne über Row zu gehen und die zwei Zeilen hoch über Offset()erreichen:
Cells(Rows.Count, 1).End(xlUp).Offset(-2, 0).Select
Hilft Dir das weiter?
Gruß
Uwe
(:o)

Anzeige
AW: Select anhängen
24.10.2012 10:00:34
websnake75
Erstmal Danke.
Hat jetzt mit Select die 1 in diesem Teil 
(Rows.Count, 1)

keine Bedeutung mehr?

AW: Select anhängen
24.10.2012 12:06:32
Rudi
Hallo,
du solltest dir mal die Syntax von Cells() anschauen.
Gru0
Rudi

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige