Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
828to832
828to832
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fehlermeldung bei "Format"

Forumthread: Fehlermeldung bei "Format"

Fehlermeldung bei "Format"
25.12.2006 21:09:28
KlausL
Hallo zusammen,
ich kämpfe zurzeit mit einer Fehlermeldung bei der Funktion Format. Zu Testzwecken habe ich von der "Herber-CD" nachfolgendes Modul gezogen

Sub WennSonntagSonstMsg()
If Weekday(Date) = 1 Then
MsgBox "Heute ist Sonntag"
ElseIf Weekday(Date) = 7 Then
MsgBox "Heute ist Samstag"
Else
MsgBox "Heute ist " & Format(Weekday(Date), "dddd")
End If
End Sub

Ich erhalte die Meldung "Fehler beim Kompilieren, Falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft"
Dabei wird im Modul Format farblich hinterlegt.
Hat jemand einen Hinweis woran das liegen kann?
Bereits jetzt vielen Dank und noch schöne Feiertage.
Gruß KlausL
Anzeige

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehlermeldung bei "Format"
25.12.2006 21:43:11
Sonnenpeter
Haqllo Klaus,
habe Dein Markro bei mir "Excel 2002" getestet.

Sub WennSonntagSonstMsg()
If Weekday(Date) = 1 Then
MsgBox "Heute ist Sonntag"
ElseIf Weekday(Date) = 7 Then
MsgBox "Heute ist Samstag"
Else
MsgBox "Heute ist " & Format(Weekday(Date), "dddd")
End If
End Sub

Das Ergebnis stimmt. Die MsgBox sagt mir "Heute ist Montag"
Gruß Sonnenpeter
Anzeige
Frage noch offen..........
25.12.2006 21:45:59
Sonnenpeter
Vergessen die Frage offen zu lassen :-))))
MfG/SP
AW: Frage noch offen..........
25.12.2006 22:13:42
Sonnenpeter
Hallo nochmal,
habe mal geschaut wie ich das lösen würde.

Sub Test()
Dim Datum1, Wochentag
Datum1 = Date
Wochentag1 = Format((Datum1), "dddd")
MsgBox "Heute ist " & Wochentag
End Sub

Warum das:
If Weekday(Date) = 1 Then
MsgBox "Heute ist Sonntag"
ElseIf Weekday(Date) = 7 Then
MsgBox "Heute ist Samstag"
Else 'Ä?
Aus meiner Sicht nicht notwendig.
Noch schöne Festtage / Sonnenpeter
Anzeige
AW: Frage noch offen..........
25.12.2006 22:23:18
KlausL
Hallo Sonnenpeter,
danke für die Alternative, die Hinweise von Erich haben mich auf den richtigen Weg gebracht. Auch bei mir lautet das Ergebnis nun "Heute ist Montag"
Gruß Klaus
AW: Fehlermeldung bei "Format"
25.12.2006 21:47:08
Peter
Hallo Klaus,
bei mir (unter Excel 2000) gibt es keinen Compile-Fehler und das Makro läuft einwandfrei.
Viele Grüße Peter
Anzeige
AW: Fehlermeldung bei "Format"
25.12.2006 21:54:21
Erich
Hallo Klaus,
teste bitte mal 
sub tst()
msgbox left("abc",1)
msgbox format(1, "00")
end sub
Ich habe ein wenig den Verdacht, dass du momentan ein Problem mit Funktionen der Klasse VBA Strings hast...
Rückmeldung wäre nett! - Erich aus Kamp-Lintfort wünscht euch schöne Feiertage!
Anzeige
AW: Fehlermeldung bei "Format"
25.12.2006 21:54:51
HAW
Hallo Klaus,
auch bei mir (xl2003) kein Fehler!
Gruß Heinz
AW: Fehlermeldung bei "Format"
25.12.2006 22:00:48
Erich
Hallo Klaus,
für den Fall, dass sich mein Verdacht erhärtet, stehen hier mehr Infos:
https://www.herber.de/forum/archiv/820to824/t821593.htm
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Fehlermeldung bei "Format"
25.12.2006 22:11:07
KlausL
Hallo Erich,
danke für Deine Hinweise diese waren der Weg zum Erfolg.
Auch bei mir heißt es jetzt: Heute ist Montag
Gruß Klaus
AW: Fehlermeldung bei "Format"
25.12.2006 22:02:15
ingUR
Hallo, Klaus,
wie bereits von den Mitbeantwortern festgestellt, funktioniert die Prozedur. Es funktioniert aber auch, wenn Du nicht zusätzlich die Weekday-Funktion im Format einsetz, da die Formatmaske "dddd" als Ausgabe eines Datums den Wochetag im Klartext erzwingt:
MsgBox "Heute ist " & Format(Date, "dddd")
Du arbeitest mit EXCEL2003, so dass vielleicht die Möglichkeit besteht, dass nunmehr, die etwas eigenmutig anscheinende Kombiantion von Weekday-Funktion, die ja eigentlich ein Wert für den Wochentag liefert, mit einem Format für ein Datum, nicht mehr unterstützt wird - nur so ein gedanke, da ich momentan nicht an einer ESCEL2003-Version arbeite.
Gruß,
Uwe
Anzeige
AW: Fehlermeldung bei "Format"
25.12.2006 22:15:10
Erich
Hallo Uwe,
das ist zwar ein inhaltlicher Fehler (bei Klaus würde für heute der Wochentag vom 02.01.1900 angezeigt),
kann aber wohl keine Kompilierungsfehler verursachen.
2 ist ein gültiges Datum, wenn auch nicht das von Klaus eigentlich gewollte.
Rückmeldung wäre nett! - Erich aus Kamp-Lintfort wünscht euch schöne Feiertage!
Anzeige
AW: Fehlermeldung bei "Format"
25.12.2006 22:15:21
KlausL
Hallo Uwe,
danke Dir für die Hilfe, mein Problem ist gelöst.
Erich hat mich auf den richtigen Weg gebracht.
Gruß Klaus
AW: Fehlermeldung bei "Format"
25.12.2006 22:11:52
Herby
Hallo KlausL
keine Lösung sondern nur eine mögliche Alternative:
Tag = Weekday(Date)
Wochentag = Application.WorksheetFunction.Choose(Tag, "Sonntag", "Montag", "Dienstag", "Mittwoch", "Donnerstag", "Freitag", "Samstag")
MsgBox "Heute ist " & Wochentag
Viele Grüße
Herby
Anzeige
AW: Fehlermeldung bei "Format"
25.12.2006 22:17:44
KlausL
Hallo Herby,
danke für die Alternativlösung, durch die Hinweise von Erich konnte ich das Problem lösen.
Gruß Klaus
AW: Fehlermeldung bei "Format"
25.12.2006 22:31:08
Erich
Hallo zusammen,
mal was Nettes: 
Sub Scherz()
MsgBox Format(Date, "dddd")
MsgBox Format(Weekday(Date), "dddd")
MsgBox Format(Weekday(Weekday(Date)), "dddd")
MsgBox Format(Weekday(Weekday(Weekday(Date))), "dddd")
End Sub
(stimmt für jedes Datum...)
Erich aus Kamp-Lintfort wünscht noch schöne Rest-Feiertage!
Anzeige
deine andere Hilfe
27.12.2006 10:08:08
Jan
Hallo Erich,
ja da waren die Familien-Feiertage etwas lang, sodass ich nicht mehr in meinen Archivthread komme - Danke für deine sehr gelungene Hilfe bzgl. "spalten vergleichen ohne doppelte in neue Spalte" - faszinierende Lösung, die ich jetzt erstmal nachvollziehen muss.
Viele Grüße
Jan
Anzeige
@Jan : Danke für Rückmeldung + guten Rutsch! (oT)
27.12.2006 13:57:01
Erich
;

Forumthreads zu verwandten Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Anzeige
Arbeitsblätter zählen und Ergebnis verarbeiten
Botti

Hallo Leute,
heute habe ich wieder mal ein einfaches Problem für Euch, an dem ich aber nicht weiter kommen:
Ich möchte die Arbeitsblätter in meiner Arbeitsmappe zählen. Das ist ja kein Problem (ThisWorkbook.sheets.count).
wenn das makro mehr als ein Arbeitsblatt zählt (also das Erge...
07.08.2008 19:11:30
Thread-ID: 1000078
8 Beiträge
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Häufigkeitslücken
Michi

Hallo,
google spuckt Zu "Excel" und "Häufigkeitslücken" lediglich 3 Treffer aus, die nicht gerade brauchbar für meine Aufgabe sind.
Ich muss für 3 Variablen eine Typisierung mit einer Häufigkeitslücke durchführen.
Hiermit bin ich fast gänzlich überfragt. Mit Quantilen hatte ich das...
11.08.2008 10:29:00
Thread-ID: 1000742
2 Beiträge
Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
Makro beenden bei Option "Schliessen"
Jürgen

Hallo Excel-Profis
ich habe folgenden Code in ein Makro eingebaut:
'Drucken mit Vorschau
Application.ActivePrinter = "\\dataserv\HP LaserJet 5L AV auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
Hier wird der Standard-Drucker an...
11.08.2008 12:39:00
Thread-ID: 1000811
9 Beiträge
Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
"Bild von Excel-Kamara" variabel...
Excel-Kamara"

Hi Experten,
einen Bereich (Zellen, Bild, Grafik...) mit der Excel-Kamara "fotografieren" und in eine andere Excelmappe einfügen ist kein Problem.
Bei mir werden Ecxel_Vorlagen ausgefüllt und unter fortlaufender Dateinummer abgespeichert, zB. QR000123, QR000124, QR000125 usw. Alle Datei...
12.08.2008 10:33:28
Thread-ID: 1001116
4 Beiträge
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge
Anzeige
"Workbook"-Zugriff auf AddIn
Stefan

Hallo,
wie kann man auf eine Arbeitsmappe, z.B. auf Worksheets der Mappe zugreifen, wenn diese als AddIn gespeichert und geöffnet wird (egal ob installiert oder nicht) ?
Wo finde ich die geöffnete AddIn-Mappe, nicht in in der Workbooks-Auflistung, und wenn das AddIn nicht installiert is...
12.08.2008 21:23:00
Thread-ID: 1001316
6 Beiträge
mit VBA, VBA & Button's löschen
Remo

Hy Leute,
Ich möchte mit einem Button alle Button's und VBA löschen...
Geht das?
13.08.2008 08:16:00
Thread-ID: 1001365
6 Beiträge
ein Sheet "unlöschbar" machen
Daniel

Hallo zusammen!
Hätte mal wieder ne Frage!
kurz zur Info: Ich möchte ein Sheet in einer Arbeitsmappe per Mako unlöschbar, unbeschreibbar etc. machen und das ganze auch wieder aufheben....
Das mit dem unbeschreibbar geht auch ganz gut mit ThisWorkbook.Sheets(2).Protect password:="xx...
13.08.2008 11:11:00
Thread-ID: 1001439
9 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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