Wie kann ich noch in diesem Code integrieren, dass das Makro für bestimmte Tabellenblätter ausgeschlossen wird(z.B. "Tabelle1" und "Tabelle2"?
Sub uebertragen()
Dim ws As Worksheet
Dim Spalte As Integer
Spalte = 1
With Sheets("Zusammenstellung")
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> "Zusammenstellung" Then
...
...
End If
Next
End With
End Sub
|