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
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