Hallo liebes VBA-Forum,
ich ziehe mir mit Hilfe eines Add-Ins Daten aus verschiedenen Sheets.
Dabei würde ich gerne, dass ausgeblendete Sheets keine Beachtung finden, bisher regelte ich es dadurch, dass ich diese ausgeblendeten Sheets einfach löschte, nur wäre es mir lieber, wenn die Schleife die "Nicht-Visible"-Sheets einfach ignoriert.
Kann man dazu diesen Code irgendwie umschreiben:
Dim wksWorksheet As Worksheet
For Each wksWorksheet In ActiveWorkbook.Worksheets
If wksWorksheet.Visible <> xlSheetVisible Then wksWorksheet.Delete
Next wksWorksheet
LG Torsten L.
|