Nur Daten von eingeblendeten Blättern verarbeiten
03.12.2002 14:19:39
Franz
wie muß ich folgenden Code verändern, damit nur von den eingeblendeten Blättern und nicht auch noch von den ausgeblendeten Blättern die Daten verarbeitet bzw. kopiert werden? Geht das überhaupt ?
i = 0
For Each Sh In ActiveWorkbook.Worksheets
If Sh.Name <> "deck" And Sh.Name <> "hinweis" Then
Sheets("deck").Cells(27, 12 + i).Value = Sh.Name
Sheets("deck").Cells(28, 12 + i).Value = Sh.Cells(7, 8).Value
i = i + 1
End If
Next
Gruß
Franz