Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1384to1388
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
1384to1388
1384to1388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Cells(Rows.Count, 1).End(xlUp).Row

Cells(Rows.Count, 1).End(xlUp).Row
08.10.2014 14:20:14
Hartmut_M
Hallo, bitte gebt mir einen Tipp. Seit dem Umstieg von Excel XP auf 2010 funktioniert der Code nicht mehr.
Aus einer Datei kopiere ich den Bereich B1:G1
Den kopierten Bereich will ich in einer anderen Datei einfügen.
Dazu suche ich die erste freie Zeile in der zu öffnenden Datei.
Workbooks.Open(Filename:="I:\Sammeldatei.xls").Activate
ActiveWorkbook.Worksheets(1).Select
iletzteZelle = Cells(Rows.Count, 1).End(xlUp).Row
iletzteZelle gibt aber die Zeilennummer der Ursprungsdatei zurück. Ich brauche aber die Zeile aus der aktiven Datei. Was mache ich falsch?
Gruß Hartmut

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

Betreff
Datum
Anwender
Anzeige
AW: Cells(Rows.Count, 1).End(xlUp).Row
08.10.2014 14:33:45
ChrisL
Hi Hartmut
Activate und Select wenn möglich vermeiden...
Sub Makro1()
Dim WB As Workbook
Dim WS As Worksheet
Dim iletzteZelle As Long
Set WB = Workbooks.Open(Filename:="I:\Sammeldatei.xls")
Set WS = WB.Worksheets(1)
iletzteZelle = WS.Cells(Rows.Count, 1).End(xlUp).Row
MsgBox iletzteZelle
End Sub

cu
Chris

AW: Cells(Rows.Count, 1).End(xlUp).Row
08.10.2014 14:56:24
Hartmut_M
Hallo Chris, vielen Dank für den Tipp.
Beim ausführen erhalte ich nach der Zeile:
iletzteZelle = WS.Cells(Rows.Count, 1).End(xlUp).Row
Fehler 1004: Anwendungs- oder objektdefineirter Fehler
Bei Rows.Count wird mir 1048576 angezeigt. Bei xlUp -4162
Sagt dir das etwas? Ich blick zurzeit nicht mehr durch. :-(

Anzeige
AW: Cells(Rows.Count, 1).End(xlUp).Row
08.10.2014 15:09:24
Luschi
Hallo Hartmut,
mache es so: 

With WS
iletzteZelle = .Cells(.Rows.Count, 1).End(xlUp).Row
End With
Gruß von Luschi
aus klein-Paris
PS: achte dabei auf die Punkte vor Cells & Rows

AW: Cells(Rows.Count, 1).End(xlUp).Row
08.10.2014 15:55:17
Hartmut_M
Hallo Luschi,
so geht's. Vielen Dank.
Gruß Hartmut

73 Forumthreads zu ähnlichen Themen

Im Range("A1:C15") anderes Cursor-Symbol?
Reinhardt

Hallo,
ist es möglich im Bereich Range("A1:C15") statt dem Kreuz ein Finger-, oder Pfeil Cursor-Symbol erscheinen zu lassen?
Gruß Reinhardt.
28.01.2009 09:25:00
Thread-ID: 1044456
2 Beiträge
Anzeige
VBA: rows.count benachbarte Zellen
rkak907

Hallo,
mal wieder eine Frage... Ich habe sagen wir mal 2 Spalten "A" und "B"!
Spalte "A" ist ausgefüllt, in "B" ist gar nichts. Ich möchte nun die Spalte "B" soweit nach unten markieren, wie Spalte "A" ausgefüllt ist.
Das heisst wenn Spalte "A" bis Zeile 15 etwas stehen hat, dann so...
20.04.2009 12:47:57
Thread-ID: 1069779
10 Beiträge
For Each zelle In Range("a2:a1000") erweitern
Karsten

Hallo,
Wenn ich diesen Befehl ausführe befinde ich mich gerade in Tabelle1. Ich möchte aber, dass u.s. Befehl in Tabelle2 ausgeführt wird. Kann mir jemand die Tabelle2 in den Befehl hineinkonstruieren.
Danke.
Gruß
Karsten
Dim zelle As Range
For Each zelle In Range("a2:a...
08.07.2009 10:59:35
Thread-ID: 1087125
3 Beiträge
Anzeige
Cells(Rows.Count, "A").End(xlUp).Row für Spalten
Moritz

Hallo,
es gibt folgenden Code:
Cells(Rows.Count, "A").End(xlUp).Row
Den man z.B. in einer For-Schleife verwenden kann, dass die Forschleife bis zum Ende des Dokuments läuft (Zeilen).
Wie muss ich den Code umschreiben, dass er nicht die Zeilen von unten nach oben zählt, sondern d...
11.09.2009 13:12:45
Thread-ID: 1102004
3 Beiträge
Befehl Range("A1") bei mehreren Zellen?
Christian

Hallo,
ich hab im Excel Ein Makro geschrieben, mit dessen hilfe per Knopfdruck eine Mail an einen bestimmten Empfänger gesendet wird. Im Betreff und Text sind bestimmte Zelleninhalte mit dem Befehl Range("A1")
Wie kann ich das machen, wenn ich mehrere Zelleninhalte hab (A1, A2, A3, A4....
05.10.2009 12:54:12
Thread-ID: 1107243
5 Beiträge
von Range("F:F") zu Range("aktive Spalte")
Range("F:F")

Hallo,
kann mir jemand aus fogenden code:
Range("F:F").Select
ActiveWindow.Zoom = True
Range("aktive Spalte").Select
ActiveWindow.Zoom = True
machen?
Gruß
Karsten
09.11.2009 21:17:58
Thread-ID: 1115647
7 Beiträge
Cells(Rows.Count, NewFilSpa + 7).End(xlUp) = 100
Hugo

Hallo
Cells(Rows.Count, NewFilSpa + 7).End(xlUp) = 100
Wie ereiche ich, dass der Wert 100 nicht in der letzten beschriebenen Zelle (wie Code oben)
sondern eine Zeile darunter eingefügt wird?
Besten Dank für eure Hilfe und Gruss
Hugo
13.12.2009 22:40:21
Thread-ID: 1123643
3 Beiträge
Range("A1:C1").copy Range("F6") schneller
born

Hallo,
gibt es eigentlich eine schicke Möglichkeit
Range("A1:C1").copy Range("F6")
ohne die Formate zu kopieren und genau so schnell und schlank?
Gruß und Dank,
Born
17.12.2009 15:39:37
Thread-ID: 1124697
3 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
3
9
2
1
2
4
6
2
2
2
2
4
6
1
5
14
6
1
2
2
8
2
6
7