Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1748to1752
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
1748to1752
1748to1752
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

letzte Zeile ..

letzte Zeile ..
04.04.2020 11:41:57
Fred
Hallo Excel Profis,
ich habe Fehler in folgenden Code 
pfad = "C:\mein Pfad"
datei = "alt.xlsm"
blatt = "komplett"
LZ = datei.blatt.Cells(Rows.Count, 1).End(xlUp).Row
Set bereich = Range("A2:CZ" & LZ)

Ich möchte in die ausführende Mappe
aus der Mappe "alt",
Blatt "komplett"
den Bereich A2 bis CZ (letzteZeile )
auslesen. Das definieren der "letzte Zeile ermitteln" haut bei oben genannten Code nicht hin. Die Meldung lautet:"Ungültiger Bezeichner" (bezogen auf "datei" in Zeile "LZ = datei.blatt.Cells(Rows.Count, 1).End(xlUp).Row")
Was mach ich da falsch?
Gruß
Fred

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

Betreff
Datum
Anwender
Anzeige
AW: letzte Zeile ..
04.04.2020 11:53:49
Hajo_Zi
Hallo Fred
End Sub
Sub test()
Dim Loletzte As Long
Dim Bereich As Range
Dim Datei  As String
Dim Blatt As String
Datei = "alt.xlsm"
Blatt = "komplett"
With Workbooks(Datei).Worksheets(Blatt)
Loletzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, . _
Rows.Count)
Set Bereich = Range("A2:CZ" & Loletzte)
End With
End Sub

AW: letzte Zeile ..
04.04.2020 11:58:13
Daniel
Hi
An dieser Stelle brauchst du Objekte vom Typ Workbook bzw. Worksheet und nicht nur einen Textstring.
Also: Workbooks(Datei).Worksheets(Blatt).Cells(...)
Gruß Daniel
Anzeige
AW: letzte Zeile ..
04.04.2020 11:58:13
Daniel
Hi
An dieser Stelle brauchst du Objekte vom Typ Workbook bzw. Worksheet und nicht nur einen Textstring.
Also: Workbooks(Datei).Worksheets(Blatt).Cells(...)
Gruß Daniel
AW: letzte Zeile ..
04.04.2020 12:13:38
Werner
Hallo,
und noch zwei Möglichkeiten: 
Public Sub aaa()
Dim pfad As String, datei As Workbook
Dim blatt As Worksheet, bereich As Range
pfad = "C:\mein Pfad"
Set datei = Workbooks("alt.xlsm")
Set blatt = datei.Worksheets("komplett")
With blatt
Set bereich = .Range("A2:CZ" & .Cells(.Rows.Count, 1).End(xlUp).Row)
'Ziel der Kopieraktion anpassen
bereich.Copy ThisWorkbook.Worksheets("Zielblatt").Range("A1")
End With
Set datei = Nothing: Set blatt = Nothing: Set bereich = Nothing
End Sub
Public Sub bbb()
Dim pfad As String, bereich As Range
pfad = "C:\mein Pfad"
With Workbooks("alt.xlsm").Worksheets("komplett")
Set bereich = .Range("A2:CZ" & .Cells(.Rows.Count, 1).End(xlUp).Row)
'Ziel der Kopieraktion anpassen
bereich.Copy ThisWorkbook.Worksheets("Zielblatt").Range("A1")
End With
End Sub
Gruß Werner
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige