Datei aufrufen über Kalendersteuerelement

Hallo,
trotz intensiver Recherche habe ich keine Lösung für mein Problem gefunden.
Für jeden Tag des Jahres existiert eine Datei mit dem Namen "Datum_Wochentag.xls",
also für heute "21.08.2006_Montag.xls". Um schneller eine solche Datei zu laden, bot es sich an das Kalendersteuerelement 11 als Benutzeroberfläche zu benutzen. Klick auf das Datum und Datei wird geladen. Funktionstechnisch habe ich das so erledigt, dass anhand der übergebenen Calendervariable der Wochentag dazu ermittelt wird, als String diese beiden Werte mit der Dateiendung verbunden werden und diese nun den Suchbegriff für die Funktion FIND ergeben. Um die Suche und den Aufruf zu Beschleunigen, habe ich die Dateien in die Tabelle in Spalte A eingelesen und in Hyperlinks umgewandelt. Diese werden dann nach erfolgter Suche angesprungen und die Datei wird geladen.
Mein Problem: Gebe ich den Suchbegriff direkt ein über Input, findet er die Datei sofort, über meinen kombinierten String nicht, obwohl ich der Inhalt akkurat stimmt.
Liegt der Fehler am Format der übergebenen Werte des Kalendersteuerelementes?
Wer kann helfen?
Gernot

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo!
Hier mal ein kleiner Anstoß. Füge der Userform eine Textbox und eine Schaltfläche hinzu. Die Schaltfläche bezeichnest Du idealer Weise mit "Datei öffnen". Wenn Du ein Datum auswählst, wird automatisch der gewünschte Dateiname in die Textbox geschrieben. Das erleichtert die Kontrolle des Dateinamens. Nach einem Klick auf die Schaltfläche wird die Userform geschloßen und die gewünschte Datei geöffnet. den Pfad zur Datei musst Du noch entsrpechend anpassen, den habe ich mit "C:\Eigene Dateien\" angegeben.
Derr passende Code folgt, einfach hinter die Userform mit dem Kalender.
Option Explicit


Private Sub Calendar1_Click()
On Error Resume Next
TextBox1.Value = Calendar1.Value & "_" & Format(Date, "dddd") & ".xls"
End Sub


Private Sub CommandButton1_Click()
Dim dateiname As String
dateiname = TextBox1.Value
Workbooks.Open Filename:="C:\Eigene Dateien\" & dateiname
Unload Me
End Sub

Und hier noch die Testtabelle: https://www.herber.de/bbs/user/35995.xls
Gruß, Rene

Beliebteste Forumthreads (12 Monate)

Datei aufrufen über Kalendersteuerelement

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datei aufrufen über Kalendersteuerelement

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread