Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Fehler bei "Date"

Fehler bei "Date"
Heinz
Hallo Leute
Habe ein Makro das bei 3 PC'S funkt. nur bei einem PC bekomme ich die Fehlermeldung bei "Date"
"Projekt oder Bibliothek nicht gefunden"
Auf allen Rechner ist Office 2003 installiert.
Wo bitte liegt bitte der Fehler ?
Gruß
Heinz
Option Explicit
' ****Automatisch zur aktuellen Kalenderwoche springen ****

Private Sub Workbook_Open()
'Application.ActivePrinter = "D231 (NRG DSm622 PCL 6) auf Ne00:"
'frmSplash.Show
Dim rng As Range
Dim iCounter As Integer
Sheets("WoMat").Activate
Set rng = Range("A:A").Find(Date, LookAt:=xlWhole)
If Not rng Is Nothing Then
iCounter = 0
Do Until rng.Offset(iCounter, 1).Value = "Kalenderwoche"
iCounter = iCounter + 1
Loop
End If
'ActiveWindow.ScrollRow = rng.Row + iCounter
Set rng = Nothing
End Sub

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Fehler bei "Date"
15.09.2009 13:15:59
xr8k2
Hallo Heinz,
schau mal ob bei dem betreffenden Rechner im VBA-Projekt der Verweis auf "Visual Basic for Applications" (das ist die Datei VBE6.DLL) korrekt gesetzt ist.
Gruß,
xr8k2
AW: Fehler bei "Date"
15.09.2009 13:24:17
Heinz
Hallo xr8k2
Kannst du mir bitte näher Erklären zu dieser Vorgangsweise ?
Bei Verweise VBArojekt ist "Visual Basic for Applications" angeklickt.
Heinz
Anzeige
AW: Fehler bei "Date"
15.09.2009 13:41:26
Heinz
Hallo
Habe es nun gefunden.
Der Verweis ist richtig eingestellt.
Gruß Heinz
AW: Fehler bei "Date"
15.09.2009 14:28:12
xr8k2
Hallo Heinz,
kann trotzdem eigentlich nur ein Verweisproblem sein ... Was ist den in der Verweisliste noch so alles angehakt?
Ersetze zur Not mal in deinem Code das Date durch die komplette Klassenangabe:
VBA.DateTime.Date
Was passiert denn dann?
Gruß,
xr8k2
Anzeige
AW: Fehler bei "Date"
15.09.2009 19:21:50
Heinz
Hallo xr8k2
Kann erst morgen ab 14:00 Uhr in der Arbeit wieder testen.
Werde dann Meldung erstatten.
Einstweilen recht herzlichen Dank
Gruß
Heinz
AW: Fehler bei "Date"
16.09.2009 13:57:29
Heinz
Hallo xr8k2
Super Tip mit den Verweisen
Habe nun mit den anderen PC's die Verweise verglichen und genau so gesetzt.
Nun funktioniert es auf allen PC's.
Recht herzlichen DANK
Gruß
Heinz
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Infobox / Tutorial

Fehlerbehebung bei "Date" in Excel VBA


Schritt-für-Schritt-Anleitung

  1. Öffne das VBA-Editor-Fenster:

    • Drücke ALT + F11, um das VBA-Editor-Fenster zu öffnen.
  2. Überprüfe die Verweise:

    • Gehe zu ExtrasVerweise.
    • Suche nach "Visual Basic for Applications" (VBE6.DLL) und stelle sicher, dass dieser Verweis aktiviert ist.
  3. Testen des Codes:

    • Ersetze im Code Date durch VBA.DateTime.Date, um zu prüfen, ob das Problem weiterhin besteht.
  4. Fehlermeldungen beachten:

    • Wenn der Fehler "Projekt oder Bibliothek nicht gefunden" erscheint, könnte es an fehlenden Verweisen liegen.

Häufige Fehler und Lösungen

  • Fehler: "Projekt oder Bibliothek nicht gefunden":

    • Dies deutet oft auf ein Problem mit den Verweisen hin. Überprüfe alle aktivierten Verweise im VBA-Projekt.
  • Fehler beim Kompilieren:

    • Wenn der Code nicht kompiliert, kann das auch an falschen Datentypen oder nicht definierten Variablen liegen. Achte darauf, dass alle Variablen korrekt deklariert sind.

Alternative Methoden

  • Verwendung von Now anstelle von Date:
    • Wenn das Problem bei Date auftritt, kannst du auch Now verwenden, um das aktuelle Datum und die Uhrzeit zu erhalten.
Set rng = Range("A:A").Find(Now, LookAt:=xlWhole)
  • Anpassung der regionalen Einstellungen:
    • Stelle sicher, dass die regionalen Einstellungen des Betriebssystems auf dem betroffenen PC mit denen der anderen PCs übereinstimmen.

Praktische Beispiele

Hier ein einfaches Beispiel, wie du das Datum in Excel VBA verwenden kannst:

Sub BeispielDatum()
    Dim rng As Range
    Set rng = Sheets("Blatt1").Range("A:A").Find(VBA.DateTime.Date, LookAt:=xlWhole)
    If Not rng Is Nothing Then
        MsgBox "Datum gefunden in Zeile: " & rng.Row
    Else
        MsgBox "Datum nicht gefunden."
    End If
End Sub

Dieses Skript sucht in der Spalte A nach dem aktuellen Datum und gibt die Zeilennummer aus, wenn es gefunden wird.


Tipps für Profis

  • Regelmäßige Überprüfung der Verweise:

    • Überprüfe regelmäßig die Verweise in deinen Excel VBA Projekten, insbesondere nach Updates oder Installationen neuer Software.
  • Dokumentation der VBA-Projekte:

    • Halte eine Dokumentation über verwendete Verweise und spezifische Einstellungen, um künftige Probleme schneller beheben zu können.

FAQ: Häufige Fragen

1. Was ist der Grund für die Fehlermeldung "Projekt oder Bibliothek nicht gefunden"? Die Fehlermeldung weist in der Regel auf einen fehlenden oder falsch gesetzten Verweis im VBA-Projekt hin.

2. Wie kann ich sicherstellen, dass meine VBA-Projekte auf mehreren PCs funktionieren? Achte darauf, dass alle PCs die gleichen Verweise und Excel-Versionen verwenden. Ein Abgleich der Verweis-Einstellungen kann helfen.

3. Was kann ich tun, wenn ich die Fehlermeldung trotz korrekter Verweise weiterhin erhalte? Überprüfe, ob die VBA-Dateien auf dem betroffenen PC beschädigt sind oder ob die Excel-Installation korrekt ist. Manchmal kann auch eine Neuinstallation von Office helfen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige