letzte Zeile ..

Forumthread: 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

AW: letzte Zeile ..

04.04.2020 11:53:49

Hajo_Zi
AW: letzte Zeile ..

04.04.2020 11:58:13

Daniel
AW: letzte Zeile ..

04.04.2020 11:58:13

Daniel
AW: letzte Zeile ..

04.04.2020 12:13:38

Werner

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

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

Beliebteste Forumthreads (12 Monate)

Forumthread: letzte Zeile ..

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread