Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1932to1936
1932to1936
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Range(zuletzt benutzte zeile)

Forumthread: Range(zuletzt benutzte zeile)

Range(zuletzt benutzte zeile)
14.06.2023 08:04:17
Chrisi

Guten morgen liebe Leser/innen,

ich programmiere gerade ein Makro welches Daten importiert, kopiert und strukturiert anordnet, nun bin ich aber auf ein Problem gestoßen welches ich nicht zu lösen schaffe:

Im Tabellenblatt "Zwischenablage" sollen Daten von den Spalten "A", "E", "G", "L", "N" und "O" kopiert werden und in Tabellenblatt "Alle Daten eingefügt werden (das schaffe ich soweit). Ich möchte nun aber das nicht die komplette Spalte ausgewählt und kopiert wird sondern nur von der ersten Zeile bis zur zuletzt benutzen Zeile.

Kann mir da jemand helfen?

Danke für jede Art der Hilfe!

MfG
Chrisi

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Range(zuletzt benutzte zeile)
14.06.2023 08:35:55
Fennek
Hallo,

teste mal


Sub T_1()
Dim rng As Range

lr = Cells(Rows.Count, 1).End(xlUp).Row
Set rng = Intersect(Range("A:A, E:E, G:G, L:L, N:N, O:O"), Rows("1:" & lr))

rng.Copy Sheets(2).Range("A20")

End Sub
mfg


AW: Range(zuletzt benutzte zeile)
14.06.2023 09:00:22
Chrisi
Hallo,

danke für die schnelle Antwort,

leider funktioniert das nicht, Debugmeldung:

"Bereiche dürfen sich nicht überlappen"

MfG


Anzeige
AW: Range(zuletzt benutzte zeile)
14.06.2023 09:40:21
Pappawinni
Prinzipiell besteht die Möglichkeit UsedRange abzufragen etwa
varLastRow = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row


AW: Range(zuletzt benutzte zeile)
14.06.2023 09:19:26
Daniel
Hi
Warum kannst du nicht die ganze Spalte kopieren?.
Unterhalb der letzten benutzten Zeile sind doch nur Leerzellen und es normalerweise egal, ob die mitkopiert werden.

Die Nächste Frage wäre, sollen die Spalten wieder in die selbe Spalte eingefügt werden oder sollen die Spalte zusammenrücken und ohne Lücken eingefügt werden?

Gruß Daniel


Anzeige
AW: Range(zuletzt benutzte zeile)
14.06.2023 09:23:47
Chrisi
Hallo,

wenn ich die komplette Spalte kopiere bekomme ich Fehlermeldungen ohne Ende (Kopierter Bereich größer als Einfügebereich.... (weil da halt schon Daten sind aber das spielt keine Rolle).

Und ja die kopierten sollen zusammengerückt und nebeneinander eingefügt werden.


Anzeige
AW: Range(zuletzt benutzte zeile)
14.06.2023 12:14:08
Ulf
Hi Chrisi

Option Explicit

Public wb As Workbook
Public wsQuelle As Worksheet
Public wsZiel As Worksheet

Public Sub test()
    Dim intAb As Integer
    Dim lngLetzteZelle As Long
    Set wb = ThisWorkbook
    Set wsQuelle = wb.Worksheets("Zwischenablage")
    Set wsZiel = wb.Worksheets("Daten")
    lngLetzteZelle = wsQuelle.UsedRange.SpecialCells(xlCellTypeLastCell).Row
    intAb = 2
    wsZiel.Range("A" & intAb & ":A" & lngLetzteZelle).Value = wsQuelle.Range("A" & intAb & ":A" & lngLetzteZelle).Value
    wsZiel.Range("B" & intAb & ":B" & lngLetzteZelle).Value = wsQuelle.Range("E" & intAb & ":E" & lngLetzteZelle).Value
    wsZiel.Range("C" & intAb & ":C" & lngLetzteZelle).Value = wsQuelle.Range("G" & intAb & ":G" & lngLetzteZelle).Value
    wsZiel.Range("D" & intAb & ":D" & lngLetzteZelle).Value = wsQuelle.Range("L" & intAb & ":L" & lngLetzteZelle).Value
    wsZiel.Range("E" & intAb & ":E" & lngLetzteZelle).Value = wsQuelle.Range("N" & intAb & ":N" & lngLetzteZelle).Value
    wsZiel.Range("F" & intAb & ":F" & lngLetzteZelle).Value = wsQuelle.Range("O" & intAb & ":O" & lngLetzteZelle).Value
End Sub
hth
Gruss
Ulf


Anzeige
AW: Range(zuletzt benutzte zeile)
14.06.2023 12:21:05
Daniel
HI
probiers mal so, funktioniert bei mir problemlos

With Sheets("zwischenablage")
    Intersect(.UsedRange, .Range("A1,E1,G1,L1,N1,O1").EntireColumn).Copy
    Sheets("alle Daten").Range("c5").PasteSpecial xlPasteAll
End With
Gruß Daniel

Anzeige
;

Beliebteste Forumthreads (12 Monate)

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