mappen durchnummerieren
30.01.2004 14:16:10
maja
mit dem folgenden codeausschnitt kann ich mir alle offenen arbeitsmappen bis auf die index.xls-mappe durchnummerieren.
nun will ich aber nicht eine bestimmte mappe von der nummerierung ausnehmen, sondern alle mappen die auf xls und asc enden.
hat jemand eine lösung?
mit
<> "*.xls" And <> "*.asc" geht es leider nicht
hier mein codeausschnitt
....
'alle mappen mit ausnahme der "index.xls" benennen
For T = 1 To wbcount:
If LCase(Workbooks(T).Name) <> "index.xls" Then wbname(T) = Workbooks(T).Name
Next
'mappenamen alphabetisch (bzw. numerisch) vergeben
For tab1 = 1 To wbcount
For tab2 = tab1 To wbcount
If wbname(tab1) > wbname(tab2) Then
temp = wbname(tab1)
wbname(tab1) = wbname(tab2)
wbname(tab2) = temp
End If
Next
Next
...
maja