Letzte freie Zeile

Forumthread: Letzte freie Zeile
6 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Letzte freie Zeile

Letzte freie Zeile

31.01.2025 18:04:21

Micha

Hallo und guten Tag,
möchte einen markierten Zellinhalt, von Tabelle1
nach Tabelle2 kopieren.
Dazu hat mir die Gemeinde folgende funktionierende Lösung erarbeitet:

Public Sub mKopie()
Dim r As Range
Dim wksZiel As Worksheet
Set wksZiel = ThisWorkbook.Worksheets(2)
For Each r In Selection
r.Copy wksZiel.Range(r.AddressLocal)
Next r
End Sub

Allerdings (hab ich vergessen zu erwähnen) soll die
Kopie in die letzte freie Zeile von Tabelle2 kopiert werden.
Kann mir bitte jemand den Code umschreiben?
Für Deine (Eure) Bemühungen bedanke ich mich bereits im Voraus.

MfG
Micha

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Letzte freie Zeile

31.01.2025 18:06:24

Onur
AW: Letzte freie Zeile

31.01.2025 18:08:38

schauan
AW: Letzte freie Zeile

01.02.2025 00:56:53

Ulf
AW: Letzte freie Zeile

01.02.2025 02:22:32

GerdL
AW: Letzte freie Zeile

31.01.2025 19:15:22

Micha
AW: Letzte freie Zeile

31.01.2025 19:55:29

JoWE

AW: Letzte freie Zeile

31.01.2025 18:06:24

Onur

https://www.excel-inside.de/beispiele_vba/vba-zellen-bereiche/337-letzte-zeile-letzte-spalte-und-letzte-zelle-per-vba-ermitteln

AW: Letzte freie Zeile

31.01.2025 18:08:38

schauan

Hallöchen,

die letzte freie Zeile ist bei den meisten ganz unten auf dem Blatt. Meinst Du wirklich die?

AW: Letzte freie Zeile

01.02.2025 00:56:53

Ulf

Hi,



Public Sub nKopie()

    Dim lngCol As Long, lngRow As Long, strAdr As String

    Dim r As Range

    Dim wksZiel As Worksheet

    lngCol = Selection.Cells(1).Column

    Set wksZiel = ThisWorkbook.Worksheets(2)

    lngRow = wksZiel.Cells(wksZiel.Rows.Count, lngCol).End(xlUp).Row + 1

    For Each r In Selection

        strAdr = wksZiel.Cells(lngRow, r.Column).Address

        r.Copy wksZiel.Range(strAdr)

    Next r

End Sub

hth
Ulf

AW: Letzte freie Zeile

01.02.2025 02:22:32

GerdL

Hallo Micha!

Sub test()

    

    Dim C As Range

    

    With Tabelle2.Cells(Tabelle2.Rows.Count, Selection.Column).End(xlUp).Offset(1)

        For Each C In Selection.Cells

            Call C.Copy(Destination:=.Parent.Cells(.Row, C.Column))

        Next

    End With



End Sub

Gruß Gerd

AW: Letzte freie Zeile

31.01.2025 19:15:22

Micha

Hallo,

hab mich wohl schlecht ausgedrückt.

Ich meinte die letzte leere Zeile.

Beispiel: Ich kopiere mit dem v.g. Code
in Tabelle1 die Zellen A1, E1, F1......
Diese sollen in die nächsten freien Zellen von Tabelle2
eingefügt werden.
Wenn also die Zellen A1:A10 einen Inhalt
haben, soll die Kopie ab A11 eingefügt werden.
Ich hoffe ich habe mich einigermaßen verständlich ausgedrückt.

MfG
Micha

AW: Letzte freie Zeile

31.01.2025 19:55:29

JoWE

Vermutlich meinst Du doch die erste freie Zelle in der Spalte, oder?

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