Fehler bei vba excel format?

Computer: Software & Programmierung Visual Basic
#1

hallo,

ich hab ein vba programm geschrieben in vba excel 02. Jetzt hab ich das ganz auf meinen Lapotop für vba excel 07 gestestet. soweit so gut. Hab ein paar codes umgeschriebn und alles funktioniert super.

blos wenn ich jetzt die datei vom laptop wieder zurück auf den pc schiebe und öffnen will kommt folgende Fehlermeldung.

„Fehler beim Komplimiern
Projekt oder Bibliothek nicht gefunden“
und das wort „Format“ vom code wird makiert:

Dim sQuote As String
sQuote = „Datum/Uhrzeit: "
lblzeit.Caption = sQuote & Format$(Now, „ddddd, hh:mm“) & " Uhr“

Das komische ist das ich hier absolut nix geändert habe und bisher dieser teil ohne problem geht.

Hatte schon jemand ein ähnliches Problem oder seht ihr in dem Code einen Fehler?
der ganze Programmcode ist so ein bisschen zu lang um zu posten.

danke für eure hilfe
michael

#2

hallo bibs,

Dim sQuote As String
sQuote = „Datum/Uhrzeit: "
lblzeit.Caption = sQuote & Format$(Now, „ddddd, hh:mm“) & "
Uhr“

Mit VBA kenn ich mich an sich überhaupt net aus, aber der Eintrag ddddd, hh:mm würde so in Excel nicht funktionieren. Der ausgeschriebene Wochentag wird in Excel als dddd (deutsch TTTT) notiert. Da ist also meiner Meinung nach ein d zuviel.

Gruß Alex

#3

oh stimmt… hat bis jetzt immer funktioniert… aber ist einleuchtend.

das komische ist das ich 2 mal die Datei hab, einmal die wo ich an excel 07 angepasst habe und einmal die von früher… und der Teil ist bei beiden total gleich, blos das jetzt bei dem angepassten code diese komische fehlermeldung kommt

danke alex

mfg
michael

#4

Hallo Alex,

lblzeit.Caption = sQuote & Format$(Now, „ddddd, hh:mm“) & "
Uhr"

der Eintrag ddddd, hh:mm würde so in Excel nicht funktionieren.

der funktioniert:

Sub tt()
MsgBox Format$(Now, „ddddd, hh:mm“)
End Sub

Der ausgeschriebene Wochentag wird in Excel als dddd (deutsch
TTTT) notiert. Da ist also meiner Meinung nach ein d zuviel.

Im Gegensatz zu sonstigem Verhalten ist Excel da sehr tolerant, wenn du magst kannst du ja in den Formaten bei Excel mit TT, TTT, TTTT, TTTTT, TTTTTT usw. mal rumspielen.
Gilt auch für dd, ddd usw. in vba.

Analog dazu mit MM, MMM, MMMM usw.

@Anfrager(in), überprüfe/vergleiche mal die Verweise in beiden Versionsmappen.

Gruß
Reinhard

#5

Grüezi bibs

blos wenn ich jetzt die datei vom laptop wieder zurück auf den
pc schiebe und öffnen will kommt folgende Fehlermeldung.

„Fehler beim Komplimiern
Projekt oder Bibliothek nicht gefunden“
und das wort „Format“ vom code wird makiert:

Dim sQuote As String
sQuote = „Datum/Uhrzeit: "
lblzeit.Caption = sQuote & Format$(Now, „ddddd, hh:mm“) & "
Uhr“

Hatte schon jemand ein ähnliches Problem oder seht ihr in dem
Code einen Fehler?

Prüfe im VBA-Editor unter Extras/Verweise die Einträge.
Dort gibt es mit Sicherheit solche, die als ‚Nicht vorhanden‘ gekennzeichnet sind - entferne diese, speichere und schliese die Mappe und teste dann erneut.

#6

Hallo Bibs.

Versuche bitte 'mal das Folgende

Dim sQuote As String
 sQuote = "Datum/Uhrzeit: "
 lblzeit.Caption = sQuote & Microsoft.Format(Now, "ddddd, hh:mm") & " Uhr"

oder

Dim sQuote As String
 sQuote = "Datum/Uhrzeit: "
 lblzeit.Caption = sQuote & VBA.Format(Now, "ddddd, hh:mm") & " Uhr"

Hatte schon jemand ein ähnliches Problem oder seht ihr in dem
Code einen Fehler?

Ja, hatte ich schon 'mal, weiß aber leider nicht mehr genau, wie ich’s gelöst hatte.

VG
Carsten