Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
372to376
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

mappen durchnummerieren

mappen durchnummerieren
30.01.2004 14:16:10
maja
hi allerseits,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mappen durchnummerieren
30.01.2004 14:19:19
Alex K.
Hallo Maja,
Mustervergleich mit "Like".
Also Vergleich auf
wbname(tab1) Like "*.xls"
super danke funktioniert :-) o.T.
30.01.2004 14:40:10
maja

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige