.Range(lastrow, 2)

Guten Morgen :-)
seit Freitag hänge ich fest. Kann man anhand der Codezeilen bereits den Fehler erkennen?
Es soll ein dynamischer Bereich nach Sheet PDF in die Spalte B .... 2 Leerzellen unter der letzten befüllten Zelle kopiert werden.
Im Moment also B2 = letzte Zelle, Zielzelle soll dann B5 sein.
-----------------------------------------------------------------------------------------------------------------
Dim lastrow As Long ' Ist Long richtig oder Range ?
lastrow = Worksheets("PDF").Range("B2000").End(xlUp).Row + 2
'merke dir die 2. Zelle nach der letzten befüllten Zelle in Spalte B
-----------------------------------------------------------------------------------------------------------------
' kopiere den Bereich aus Sheet: Leerzeilen_ausblenden nach ->> Sheet: PDF
With Leerzeilen_ausblenden
lngZeileMax = .Range("A" & .Rows.Count).End(xlUp).Row
Set rngBereich = .Range("A1:B" & lngZeileMax + 1)
rngBereich.Copy Sheets("PDF").Range(lastrow, 2)
' Das geht: rngBereich.Copy
' ? Dieser Teil geht nicht: Sheets("PDF").Range(lastrow, 2) ?
' kopiere den Bereich aus Sheet: Leerzeilen_ausblenden nach ->> Sheet: PDF. In der Zelle B2 steht der letzte Inhalt.
End With
-----------------------------------------------------------------------------------------------------------------
Vielen Dank für die Hilfe.
VG Eisi :-)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim lastrow As Long 'LONG IST KORREKT lastrow = Worksheets("PDF").Range("B2000").End(xlUp).Row + 2 'merke dir die ZEILE DER 2. Zelle nach der letzten befüllten Zelle in Spalte B ' kopiere den Bereich aus Sheet: Leerzeilen_ausblenden nach ->> Sheet: PDF With Leerzeilen_ausblenden lngZeileMax = .Range("A" & .Rows.Count).End(xlUp).Row Set rngBereich = .Range("A1:B" & lngZeileMax + 1) rngBereich.Copy End With Sheets("PDF").Range(lastrow, 2).PasteSpecial

Dim lastRow As Long 'LONG IST KORREKT With Sheets("PDF") lastRow = .Cells(.Rows.Count, 2).End(xlUp).Row + 2 End With 'merke dir die ZEILE DER 2. Zelle nach der letzten befüllten Zelle in Spalte B ' kopiere den Bereich aus Sheet: Leerzeilen_ausblenden nach ->> Sheet: PDF With Sheets("Leerzeilen_ausblenden") lngZeileMax = .Cells(.Rows.Count, 1).End(xlUp).Row Set rngBereich = .Range("A1:B" & lngZeileMax + 1) rngBereich.Copy End With Sheets("PDF").Range(lastRow, 2).PasteSpecial

Hallo Klaus,
vielen Dank für Deine Hilfe. Ich hänge mal den kompletten Code an, weil noch immer eine Fehlermeldung kommt:
Fehlermeldung: Sheets("PDF").Range(lastrow, 2).PasteSpecial
______________________________________________________________________________


Sub PlattenKopieren()
Application.ScreenUpdating = False
'*** Deklaration ***
Dim lngZeileMax As Long
Dim rngBereich As Range
Dim lastrow   As Long
'*** merke dir die 2. Zelle nach der letzten befüllten Zelle in Spalte B ***
'        lastrow = Worksheets("PDF").Range("B2000").End(xlUp).Row + 2
'*** Zelleninhalte mit Formatierung im Sheet: PDF löschen ***
PDF.Activate
Range("F1").Activate
With ActiveCell.CurrentRegion
.Clear                                    'Clear löscht den Inhalt + Formatierung
End With
'*** merke dir die ZEILE DER 2. Zelle nach der letzten befüllten Zelle in Spalte B ***
With Sheets("PDF")
lastrow = .Cells(.Rows.Count, 2).End(xlUp).Row + 2
End With
'*** kopiere den Bereich aus Sheet: Leerzeilen ausblenden
With Sheets("Leerzeilen ausblenden")
lngZeileMax = .Cells(.Rows.Count, 1).End(xlUp).Row
Set rngBereich = .Range("A1:B" & lngZeileMax + 1)
rngBereich.Copy
End With
'*** Füge die Kopie (rngBereich) in das ->> Sheet: PDF ein ***
Sheets("PDF").Range(lastrow, 2).PasteSpecial    ' ? Hier kommt die Fehlermeldung ?
'*** Letzte Zellen der Tabelle in Sheet ->> PDF: Dicke Linie erzeugen ***
PDF.Activate
Range("F1").Activate
With ActiveCell.CurrentRegion
.Borders(xlEdgeBottom).Weight = xlMedium  'Dicke Linie am Ende der Tabelle erzeugen
End With
'*** Zurück zum AusgangsSheet springen ***    '
Leerzeilen_ausblenden.Activate
Range("A1").Activate
endmacro:
Application.ScreenUpdating = True
End Sub

_________________________________________________________________
Vielen Dank :-)
VG Eisi :-)

Sub PlattenKopieren() Application.ScreenUpdating = False '*** 1) Deklaration *** Dim lngZeileMax As Long Dim rngBereich As Range Dim lastrow As Long '*** 4) kopiere den Bereich aus Sheet: Leerzeilen ausblenden With Leerzeilen_ausblenden lngZeileMax = .Cells(.Rows.Count, 1).End(xlUp).Row Set rngBereich = .Range("A1:B" & lngZeileMax + 1) rngBereich.Copy End With '*** 3) merke dir die ZEILE DER 2. Zelle nach der letzten befüllten Zelle in Spalte B *** With PDF lastrow = .Cells(.Rows.Count, 2).End(xlUp).Row + 2 '*** 5) Füge die Kopie (rngBereich) in das ->> Sheet: PDF ein *** .Cells(lastrow, 2).PasteSpecial 'CELLS, nicht RANGE! End With Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread