AW: Tabellenblätter markieren
27.06.2007 10:25:14
fcs
Hallo Jörg,
hier meine Lösungsvorschlag
Nr 1 arbeitet via der Zählnummer der Blätter
Falls sich der Name des 1. und letztenb Blattes nicht ändert kannst du auch mit Nr 2 arbeiten
Gruß
Franz
Sub BlaetterMarkierenViaNr()
Dim arrBlatt(), iCount%, iBlatt%, iArray%
iBlatt = ActiveWorkbook.Sheets.Count
iArray = -1
For iCount = 1 To iBlatt
Select Case iCount
Case 1, iBlatt '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
End Sub
Sub BlaetterMarkierenViaNamen()
Dim arrBlatt(), iCount%, iBlatt%, iArray%
iBlatt = ActiveWorkbook.Sheets.Count
iArray = -1
For iCount = 1 To iBlatt
Select Case ActiveWorkbook.Sheets(iCount).Name
Case "Tabelle1", "TabelleLetzte" '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
End Sub