VBA Kopieren von Zeilen auf anderes Tabellenblatt Probleme

Forumthread: VBA Kopieren von Zeilen auf anderes Tabellenblatt Probleme

25.03.2025 13:35:12

Vectra

Hallo Experten, ich möchte nach Zeilen im Tabellenblatt "1" suchen und diese dann an eine bestimmte Pos. im Blatt "2" einfügen.
Gesucht werden soll nach dem Wort in gelb ("und" zb) und die entsprechende Zeile dann auf TabBlatt "2" kopiert werden.
Es tritt aber immer ein Problem auf, abhängig von welchem TabBlatt ich das Makro starte. Ein ähnliches Makro habe ich schon erfolgreich geschrieben, dieses ist sehr ähnlich aufgebaut, aber ich bekomme keinen ZeilenÜbertrag auf das andere Tabellenblatt.
Die Beispieldatei: https://www.herber.de/bbs/user/176412.xlsm
Vielen Dank für Eure Hilfe.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA Kopieren von Zeilen auf anderes Tabellenblatt Probleme

25.03.2025 13:55:59

RPP63

Moin!
Du versuchst, den Kölner Dom (C.EntireRow) in den Kofferraum eines Golf zu packen!
Außerdem ist Quelle und Target (sehr ungünstiger Name, hier würde Ziel besser passen) identisch!
(Worksheets("2") wird nicht verwendet)
Beides sind Objektvariablen und müssen mittels Set zugewiesen werden.
Variablendeklarationen sollten gerade bei einem Anfänger zwingend sein.

Ehrlich gesagt, weiß ich gar nicht, wo man bei Dir anfangen sollte.

Gruß Ralf

AW: VBA Kopieren von Zeilen auf anderes Tabellenblatt Probleme

25.03.2025 16:34:19

GerdL

Moin,
eine Möglichkeit.

Sub Ganze_gefundene_Zeile_kopieren()



    Dim Such As Variant

    Dim Bereich As Range

    Dim Zielzeile As Range

    Dim C As Range

    Dim Quelle As Range

    

    Such = Worksheets("1").Cells(3, 6).Value

    Set Bereich = Worksheets("1").Range(Worksheets("1").Cells(9, 6), Worksheets("1").Cells(14, 7))

    Set Zielzeile = Worksheets("2").Rows(9)

    

    For Each C In Bereich.Cells

        If C.Value = Such Then

            Set Quelle = C

            Exit For

        End If

    Next

    

    If Not Quelle Is Nothing Then 'wenn Suchbegriff gefunden

        Quelle.EntireRow.Copy Destination:=Zielzeile

    End If

    

    'Object-Variablen zurücksetzen

    Set Zielzeile = Nothing: Set Bereich = Nothing: Set Quelle = Nothing



End Sub

Gruß Gerd

AW: VBA Kopieren von Zeilen auf anderes Tabellenblatt Probleme

26.03.2025 19:27:33

Vectra

Hallo Gerd, vielen Dank. Das "set", und das ich Worksheets("2").Range(... und hier dann noch mal ....Worksheets("2").Cells... aufführen muss, haben es gebracht. Funktioniert.
Und Ralf hat natürlich mit dem "Golfkofferraum" u. dass ich für Quelle und Ziel in meiner abgespeckte Beispieldatei den gleichen Pfad drin hatte, Recht. Meine eigentliches Makro ist auch etwas umfangreicher.

VBA Kopieren von Zeilen auf anderes Tabellenblatt Probleme

Forumthread: VBA Kopieren von Zeilen auf anderes Tabellenblatt Probleme

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Kopieren von Zeilen auf anderes Tabellenblatt Probleme

Forumthread: VBA Kopieren von Zeilen auf anderes Tabellenblatt Probleme

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread