Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
464to468
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
464to468
464to468
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

ActiveSheet-Rows-Select mit Variablen

ActiveSheet-Rows-Select mit Variablen
03.08.2004 20:03:38
Michael
Servus Forum-Teilnehmer,
folgendes Problem :
Wie lässt sich in diesem Befehl
ActiveSheet.Rows(2:5003").Select
die Zahl 2 durch eine Variable "AnfR"
und
die Zahl 5003 durch die Variable "EndR"
ersätzen ?
Es soll nur der Zeilen-Bereich mit Inhalt
geprüft werden,
hierzu suche ich noch eine einfache Funktion,
z.B. auf der Basis
EndR=Rows.Count ' (dieser Code funktioniert nicht!)
der automatisch die Zeilen mit Inhalt zählt.
Gefragt ist hier eine sehr einfache Lösung !
Vielen Dank im Voraus.
Gruss Michael

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ActiveSheet-Rows-Select mit Variablen
heinz
servus michael, so vielleicht?

Sub test()
Dim AnfR As Integer
Dim EndR As Integer
AnfR = 2
EndR = 5003
Rows(AnfR & ":" & EndR).Select
End Sub

heinz
AW: ActiveSheet-Rows-Select mit Variablen
03.08.2004 20:32:45
Björn
Hallo Michael,
vorausgesetzt du hast in Spalte 1 immer einen Inhalt, wenn in der Zeile überhaupt etwas steht, dann geht's mit diesem Code:
AnfR = 2
EndR = ActiveSheet.Cells(65536, 1).End(xlUp).Row 'Ggf. die "1" durch eine andere Spalte ersetzten!
ActiveSheet.Rows("" & AnfR & ":" & EndR & "").Select
Gruß
Björn
leicht verbesserte Version
03.08.2004 20:35:24
Björn
Hallo Michael,
da war noch was überflüssig (Siehe Lösung von Heinz). Besser ist:
AnfR = 2
EndR = ActiveSheet.Cells(65536, 1).End(xlUp).Row 'Ggf. die "1" durch eine andere Spalte ersetzten!
ActiveSheet.Rows(AnfR & ":" & EndR).Select
Gruß
Björn
Anzeige
AW: leicht verbesserte Version
04.08.2004 14:24:14
Michael
Servus Heinz,
servus Björn B.,
vielen Dank für Eure Empfehlungen,
sie funktionieren alle super,
hat mir sehr weiter geholfen.
Bezüglich dem Ermitteln der letzten
Zeilen-Nummer mit Inhalt,
hatte Nepumuk folgenden Vorschlag :
EndR=ActiveSheet.UsedRange.Rows.Count
funktioniert super.
Danke nochmals
Gruss Michael
Danke für die Rückmeldung - o. T.
04.08.2004 22:55:51
Björn
AW: ActiveSheet-Rows-Select mit Variablen
03.08.2004 20:34:42
Nepumuk
Hallo Michael,
so ermittelst du die letzte gefüllte Zelle in Spalte A:
EndR = Range("A65536").End(xlUp).Row
Gruß
Nepumuk
AW: ActiveSheet-Rows-Select mit Variablen
04.08.2004 12:28:52
Michael
Servus Nepumuk,
vielen Dank für Deinen Vorschlag.
Gibt es keine automatische Funktion, die die letzte
Zeile eines Tabellenblattes mit Inhalt ermittelt ?
Z.B. über "Rows.Count" oder "CountRows",
ohne dass ein Zeilen-Bereich angegeben werden muss;
das Ergebnis, der letzten Zeile, dann als Integer-Wert
der Variablen "EndR" übergeben wird.
Gruss Michael
Anzeige
AW: ActiveSheet-Rows-Select mit Variablen
04.08.2004 12:34:20
Nepumuk
Hallo Michael,
im Prizip ja. Über: ActiveSheet.UsedRange.Rows.Count
Gruß
Nepumuk
AW: ActiveSheet-Rows-Select mit Variablen
04.08.2004 12:54:30
Michael
Servus Nepumuk,
sehr interessant Dein Vorschlag.
Aber wie bekomme ich jetzt den Integer-Wert der
tatsächlich letzten Zeile in die Variable "EndR" ?
EndR=ActiveSheet.UsedRange.Rows.Count
funktioniert das so?
Ich bitte Dich um ein kurzes Zeilen-Beispiel.
Vielen Dank
Gruss Michael
AW: ActiveSheet-Rows-Select mit Variablen
04.08.2004 12:55:50
Nepumuk
Hallo Michael,
ja, richtig!!
Gruß
Nepumuk
AW: ActiveSheet-Rows-Select mit Variablen
04.08.2004 14:18:03
Michael
Servus Nepumuk,
vielen Dank.
Deine letzte Empfehlung
'letzte Zeilen-Nr. mit Inhalt in Variable
EndR=ActiveSheet.UsedRange.Rows.Count
funktioniert super.
Danke nochmals
Gruss Michael
Anzeige

27 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige