For Each Schleife mit einer Ausnahme
25.06.2017 10:29:10
irwitzer
ich habe einige For Each Schleifen gebaut die mir die Druckbereiche, Seitenumbrüche und ähnliches und allen Tabellen des Workbook einstellen. Und es funktioniert, unter anderem auch dank diesem Forum großartig, vielen Dank dafür.
Ich habe ein Problem in all diesen For Each Schleifen soll immer die erste Tabelle ausgelassen werden die schleife soll durchlaufen aber das erste Tabellenblatt unberührt lassen.
Es können zwar unterschiedlich viele Tabellenblätter in meinen Workbooks sein aber es ist immer die Erste Position / erste Tabellenblatt was ausgelassen werden soll, und ich hätte auch die Möglichkeit einen TEIL des Namens des ersten Tabellenblatt immer gleich zu definieren z.B. Deckblat+XY-Bad+XYTag.
Ich bin mit GoTo und Filter so wie auch mit der if Funktionen nicht erfolgreich gewesen es muss an mir liegen. Ich würde mich über eine Lösung freuen, Danke.
Beispiel:
Sub SET_Druckbereich()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$J$38"
Next ws
End Sub