|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
20.12.2010 09:09:06 |
Ferdi |
|
|
|
20.12.2010 10:03:57 |
Severus |
|
|
|
20.12.2010 17:39:37 |
Ferdi |
|
|
|
20.12.2010 17:52:48 |
Severus |
|
|
 Aw:Aw:Aktuelle Tabelle öffnen |
20.12.2010 19:42:33 |
Ferdi |
|
|
Von:
Ferdi |
Datum:
20.12.2010 19:42:33 |
Views:
914 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aktuelle Tabelle öffnen |
Severus schrieb am 20.12.2010 17:52:48:
Ferdi schrieb am 20.12.2010 17:39:37:
Severus schrieb am 20.12.2010 10:03:57:
Ferdi schrieb am 20.12.2010 09:09:06:
Hallo Zusammen,
habe folgendes Problem und bitte um Hilfe:
Benutze Excel 2003.
Habe eine Excel-Mappe, bei der die einzelnen Tabellenblätter fortlaufend mit Datumsangaben benannt sind, z.B. 01.01.2010, 02.01.2010 usw.
Nun soll beim Öffnen der Mappe automatisch das Tabellenblatt mit dem aktuellen Datum geöffnet werden.
Das Makro soll also das aktuelle Datum ermitteln und dann das Tabellenblatt mit dem dazugehörigen Datum öffnen.
Für Eure Hilfe schon mal vielen Dank im Voraus.
Ferdi
Ins Modul "DieseArbeitsmappe" einfügen:
Private Sub Workbook_Open()
Dim strDAT As String
On Error Resume Next
strDate = Format(Date, "dd.MM.yyyy")
ThisWorkbook.Sheets(strDAT).Activate
If Err.Number <> 0 Then
Err.Clear
MsgBox "Ein Arbeitsbaltt für heute, den " & strDat & " ist nicht vorhanden!", vbCritical, "Fehler..."
End If
End Sub
Severus
Hallo Severus,
vielen Dank für Deine schnelle Antwort.
Habe den Code kopiert und nach Doppelklick auf "Diese Arbeitsmappe" in das öffnende Codefenster eingefügt.
Die Tabellenblätter sind folgendermaßen benannt:
01.01.2011; 02.01.2011; usw...
Wenn ich das Makro ausführe, kommt die Meldung "Ein Arbeitsblatt für heute, den ist nicht vorhanden".
Was mache ich falsch bzw. könntest Du so freundlich sein und nochmals Dein Makro anschauen ?
Danke
Ferdi
Sorry, ein blöder Flüchtigkeitsfehler! Hättest Du aber auch sehen sollen. Die Zeile
strDate = Format(Date, "dd.MM.yyyy")
muß natürlich
strDAT = Format(Date, "dd.MM.yyyy")
heißen.
Severus
Hallo Severus,
nochmals vielen Dank für die Antwort in "Lichtgeschwindigkeit", Makro funktioniert super.
Leider bin ich noch nicht so gut, dass mir der Fehler gleich aufgefallen wäre.
Danke und Grüsse
Ferdi |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
20.12.2010 09:09:06 |
Ferdi |
|
|
|
20.12.2010 10:03:57 |
Severus |
|
|
|
20.12.2010 17:39:37 |
Ferdi |
|
|
|
20.12.2010 17:52:48 |
Severus |
|
|
Aw:Aw:Aktuelle Tabelle öffnen |
20.12.2010 19:42:33 |
Ferdi |
|
|