Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
200to204
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
200to204
200to204
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datum und Register

Datum und Register
11.01.2003 22:43:31
Peter
Hallo an alle,

in einer Datei wird ein Monat bearbeitet. Es sind 31 Registerblätter mit den Namen 01, 02,03 ... 30, 31.
Ist es möglich das nach überprüfen den aktuellen Datums (now oder dateserial oder ...?!), das jeweils richtige Registerblatt, des aktuellen Tagesdatum´, beim öffnen sofort aktiv ist. Heute ist der 11.01.2003 und das Registerblatt 11 der Datei ist sofort
aktiv ?!?!


Gruß Peter

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Datum und Register
11.01.2003 22:48:45
Nepumuk
Hallo Peter,
in das Klassenmodul "Diese Arbeitsmappe" folgenden Code.

Gruß
Nepumuk
Re: Datum und Register
11.01.2003 23:47:17
Ramses
Hallo Nepumuk,

Kleines Detail am Rande:

Das 11. Sheet muss nicht unbedingt mit dem Namen 11 übereinstimmen, weil EXCEL die hinzugefügten Tabellen intern hochzählt. Gelöschte Tabellen werden dabei zahlenmässig nicht neu zugewiesen.
Wenn du also 12 Tabellen mit den Monatszahlen benannt hast und den Februar (2) löschst, ein neues Tabellenblatt hinzufügst und dieses wieder mit 2 benennst, hat das Sheet zwar den Namen 2 aber die interne Nummer 13 und wird daher mit

Sheets(Day(Date)).Select

nicht gefunden, weil hier die interne Nummer adressiert wird. Ganz nebenbei enthält die Ausgabe

Debug.Print Day(Date))

noch ein Leerzeichen. Deshalb die Anweisung TRIM

Gruss Rainer

Anzeige
Re: Datum und Register
11.01.2003 23:47:18
Ramses
Hallo Nepumuk,

Kleines Detail am Rande:

Das 11. Sheet muss nicht unbedingt mit dem Namen 11 übereinstimmen, weil EXCEL die hinzugefügten Tabellen intern hochzählt. Gelöschte Tabellen werden dabei zahlenmässig nicht neu zugewiesen.
Wenn du also 12 Tabellen mit den Monatszahlen benannt hast und den Februar (2) löschst, ein neues Tabellenblatt hinzufügst und dieses wieder mit 2 benennst, hat das Sheet zwar den Namen 2 aber die interne Nummer 13 und wird daher mit

Sheets(Day(Date)).Select

nicht gefunden, weil hier die interne Nummer adressiert wird. Ganz nebenbei enthält die Ausgabe

Debug.Print Day(Date))

noch ein Leerzeichen. Deshalb die Anweisung TRIM

Gruss Rainer

Anzeige
Re: Datum und Register
12.01.2003 00:12:32
Nepumuk
Hallo Rainer,

wenn ich ein Tabellenblatt über seinen Index anspreche, ist es völlig egal wie viele Tabellen ich gelöscht oder hinzugefügt bzw. verschoben habe. Der Index 1 z.B. gibt immer das erste Tabellenblatt zurück, auch wenn es intern den Namen Tabelle13 trägt.
Die Funktion Day gibt eine numerische Variable von Typ Integer zurück und hat kein Leerzeichen vorne dran. Gib einfach mal ?11 und ?-11 (jeweils mit Enter bestätigen) in das Direktfenster ein, dann siehst du, dass bei positiven Werten immer ein Leerzeichen erscheint, der für das Vorzeichen reserviert ist.

Gruß
Nepumuk


Anzeige
Re: Datum und Register
12.01.2003 11:33:16
Ramses
Hallo Nepumuk,

was ich damit auch nur sagen wollte ist, dass die Tabelle mit dem Index 11 nicht unbedingt die Tabelle sein muss, auf der auch 11 steht, ... sondern vielleicht den Tag 2 repräsentiert ;-),... je nachdem wie sie benannt oder beschriftet wurde.

Trim deswegen, weil ich eben das Leerzeichen zur Suche der Tabellenbezeichnung eliminieren muss.

Gruss Rainer

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige