Tabellenblätter ausschliessen
14.12.2016 11:41:24
Julia
Habe nur das Problem dass zu dem Blatt "SD" auch noch weitere Blätter
"x", "y" und "z" nicht mit einbezogen werden sollen.
Wie muss ich das da reinbringen?
Wäre toll wenn mir da jemand weiterhelfen könnte!
Danke!
Gruss
Julia
Sub Zeile_kopieren()
Dim jedesWS As Worksheet
Dim ZielWS As Worksheet
Dim Zeile As Long
Dim ZielZeile As Long
Dim AnzahlSpalten As Long
Zeile = 1
ZielZeile = 16
Set ZielWS = ThisWorkbook.Worksheets("SD")
For Each jedesWS In ThisWorkbook.Worksheets
If Not jedesWS Is ZielWS Then 'Zieltabelle auslassen
AnzahlSpalten = jedesWS.UsedRange.Columns.Count
ZielWS.Rows(ZielZeile).Cells(1).Resize(1, AnzahlSpalten).Value = _
jedesWS.Rows(Zeile).Cells(1).Resize(1, AnzahlSpalten).Value
ZielZeile = ZielZeile + 1
End If
Next jedesWS
Set jedesWS = Nothing
Set ZielWS = Nothing
End Sub