da ich vorhin ja schon wunderbar Hilfe bekommen habe, komm ich gleich zum nächsten Prob :/
Mit dem u.g. Code werden alle Blätter außer dem 1. und letzten markiert = wunderbar.
Nun möchte ich aber mit einem Befehl bei ALLEN MARKIERTEN BLÄTTERN GLEICHZEITIG bestimmte Spalten löschen. Nur löscht er mir bei dem Code nur die Spalten des ersten Blattes, obwohl alle markiert sind. Wenn ich das manuell mache, wendet er es auch auf alle Blätter an (also rechte Maustaste und löschen)
For iCount = 1 To iBlatt
Select Case ActiveWorkbook.Sheets(iCount).Name
Case "nach WC", "Hilfstabelle" 'Liste der Ausnahmen
'do nothing
Case Else
iArray = iArray + 1
ReDim Preserve arrBlatt(iArray)
arrBlatt(iArray) = ActiveWorkbook.Sheets(iCount).Name
End Select
Next
ActiveWorkbook.Sheets(arrBlatt()).Select
Range("E:N,P:P,T:T,W:Y,AA:AB,AE:AF,AI:DC").Delete
Vielen Dank im vorraus!!
Gruß
Jörg