VB Zeilen Inhalt auf ein anderes Tabellenbaltt übertragen

  • Excel

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Mr_Reese.

    VB Zeilen Inhalt auf ein anderes Tabellenbaltt übertragen

    Hallo zusammen,


    Ich möchte aus Tabellenblatt "Werte" bestimmte Zeilen in die Tabelle "Kabel" verschieben,
    dabei möchte ich das Geprüft wird ob in der Spalte 7(F) das Wort Kabel steht.

    Mit dem Code hier will nicht so wirklich es gibt zwar keinen Bug, aber es wir auch nicht in die Tabelle Kabel geschrieben


    Gruß Dustin




    Sub Zeilen_kopieren()

    Dim variable As String
    variable = [A1]

    With Sheets(variable).UsedRange
    .AutoFilter Field:=7, Criteria1:="Kabel"
    .Offset(7, 0).SpecialCells(xlCellTypeVisible).Copy
    End With

    Sheets("Kabel").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    Sheets(variable).UsedRange.AutoFilter

    End Sub
    Auch wenn das Problem schon anderweitig gelöst ist, nur mal so als Vorschlag:

    Sub Ausführen()
    ZeilenKopieren Worksheets("Tabelle1"), Worksheets("Tabelle2"), 7, "Kabel"
    End Sub

    Sub ZeilenKopieren(Quelle As Worksheet, Ziel As Worksheet, FilterSpalte As Integer, Kriterium As String)
    If Quelle.AutoFilterMode Then Quelle.UsedRange.AutoFilter
    Quelle.UsedRange.AutoFilter FilterSpalte, Kriterium
    Quelle.UsedRange.Copy Ziel.Range("A1")
    Quelle.UsedRange.AutoFilter
    End Sub