Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
484to488
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Funktionsfehler??

Funktionsfehler?
14.09.2004 09:21:57
Hamza
Hallo Leute,
seit Umstellung von Office 97 auf 2003 funktioniert leider mein urlaubskalender nicht mehr. Es werden sämtliche Funktionen und Makros falsch angezeigt wie z.B.

Function istFeiertag(datum, Feiertage)
istFeiertag = 1
For f = 1 To 31
If datum = Feiertage(f) Then istFeiertag = 2
Next f
End Function

oder

Function bewFeiert(Ja As Integer) As Date 'berechnet die beweglichen Feiertage
Dim D As Integer
D = (((255 - 11 * (Ja Mod 19)) - 21) Mod 30) + 21
bewFeiert = DateSerial(Ja, 3, 1) + D + (D > 48) + 6 - ((Ja + Ja \ 4 + D + (D > 48) + 1) Mod 7)
End Function

da ich díesen Kalender mit viel Mühe und viel Hilfe zusammen gestellt habe, möchte auch diesen nutzen können.
Hoffe ihr könnt mir dabei helfen.
Danke im Voraus
Gruß Hamza

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Funktionsfehler?
14.09.2004 09:51:12
Hans
Hallo Hamza,
möglicherweise hat sich Excel ebenso an der fehlenden Variablendeklaration gestört wie ich. Deine erste Funktion habe ich als Beispiel mal neu aufgebaut und eine Aufruf-Prozedur dazu gebastelt:

Function istFeiertag(Datum As Date, Feiertage() As Date) As Boolean
Dim iCounter As Integer
For iCounter = 1 To UBound(Feiertage)
If Datum = Feiertage(iCounter) Then istFeiertag = True
Next iCounter
End Function



Sub AufrufFeiertag()
Dim arrDate(1 To 3) As Date
arrDate(1) = DateSerial(2004, 28, 2)
arrDate(2) = DateSerial(2004, 14, 5)
arrDate(3) = DateSerial(2004, 16, 8)
MsgBox istFeiertag(DateSerial(2004, 14, 5), arrDate)
End Sub

Gruss hans
Anzeige
AW: Funktionsfehler?
Hamza
HaLLO Hans,
Scheint wohl zu klappen, ich müsste wohl nochmal die einzelnen Zellen bearbeiten.
Zumindestens zeigt er mir kein fehler in diesem Modul an.
Jetzt reagiert er aber nicht auf sub_open und sub_close
hab dort folgende makros

Sub Auto_Open()
Set ML = Application.CommandBars("Worksheet Menu Bar")
' Name für neues Menü wird gesetzt
Set U1 = ML.Controls.Add(Type:=msoControlPopup, Before:=10)
U1.Caption = "&Zeitenplaner"
U1.Tag = "Zeitenplaner" ' dient zur eindeutigen Identifizierung des Menüs
' neues Untermenü wird hinzugefügt
Set Punkt = U1.Controls.Add(Type:=msoControlPopup)
With Punkt
.Caption = "Eingabe"
End With
Set U2 = Punkt ' Variable für das 2. Untermenü wird gesetzt
'Neuer Menüeintrag im 2.Untermenü
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&Januar"
.OnAction = "formular1"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&Februar"
.OnAction = "formular2"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&Maerz"
.OnAction = "formular3"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&April"
.OnAction = "formular4"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&Mai"
.OnAction = "formular5"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&Juni"
.OnAction = "formular6"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&Juli"
.OnAction = "formular7"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&August"
.OnAction = "formular8"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&September"
.OnAction = "formular9"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&Oktober"
.OnAction = "formular10"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&November"
.OnAction = "formular11"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&Dezember"
.OnAction = "formular12"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U1.Controls.Add(Type:=msoControlPopup)
With Punkt
.Caption = "Drucken Urlaubskalender"
End With
Set U2 = Punkt
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&Januar"
.OnAction = "januarK"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&Februar"
.OnAction = "februarK"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&Maerz"
.OnAction = "MärzK"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&April"
.OnAction = "aprilK"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&Mai"
.OnAction = "MaiK"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&Juni"
.OnAction = "juniK"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&Juli"
.OnAction = "juliK"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&August"
.OnAction = "augustK"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&September"
.OnAction = "septemberK"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&Oktober"
.OnAction = "oktoberK"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&November"
.OnAction = "novemberK"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&Dezember"
.OnAction = "dezemberK"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&alle Monate"
.OnAction = "zwölf_Blätter_Druck"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U1.Controls.Add(Type:=msoControlPopup)
With Punkt
.Caption = "Drucken Stundenzettel"
End With
Set U2 = Punkt
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&Januar"
.OnAction = "januarS"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&Februar"
.OnAction = "februarS"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&Maerz"
.OnAction = "märzS"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&April"
.OnAction = "aprilS"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&Mai"
.OnAction = "maiS"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&Juni"
.OnAction = "juniS"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&juli"
.OnAction = "Makro3"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&August"
.OnAction = "augustS"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&September"
.OnAction = "septemberS"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&Oktober"
.OnAction = "oktoberS"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&November"
.OnAction = "novemberS"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&Dezember"
.OnAction = "dezemberS"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U1.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&Tagesansicht"
.OnAction = "Tagesansicht"
.Style = msoButtonIconAndCaption
.FaceId = 2103
End With
Set Punkt = U1.Controls.Add(Type:=msoControlPopup)
With Punkt
.Caption = "Monatsansicht"
End With
Set U2 = Punkt ' Variable für das 2. Untermenü wird gesetzt
'Neuer Menüeintrag im 2.Untermenü
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&Januar"
.OnAction = "JanuarA"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&Februar"
.OnAction = "FebruarA"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&Maerz"
.OnAction = "MärzA"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&April"
.OnAction = "AprilA"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&Mai"
.OnAction = "MaiA"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&Juni"
.OnAction = "JuniA"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&Juli"
.OnAction = "JuliA"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&August"
.OnAction = "AugustA"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&September"
.OnAction = "SeptemberA"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&Oktober"
.OnAction = "OktoberA"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&November"
.OnAction = "NovemberA"
.Style = msoButtonIconAndCaption
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&Dezember"
.OnAction = "DezemberA"
.Style = msoButtonIconAndCaption
End With
' Weiterer Eintrag im 1.Untermenü
Set Punkt = U1.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&Jahresansicht"
.OnAction = "Jahresansicht"
.Style = msoButtonIconAndCaption
.FaceId = 2103
End With
Set Punkt = U1.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&Jahresvergleich"
.OnAction = "Jahresvergleich"
.Style = msoButtonIconAndCaption
.FaceId = 2103
End With
Set Punkt = U1.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&Kalender"
.OnAction = "Urlaubskalender"
.Style = msoButtonIconAndCaption
.FaceId = 2103
End With
Sheets("Kalender").Select
Application.DisplayFullScreen = True
Application.DisplayFormulaBar = False
Toolbars(1).Visible = False
Toolbars(2).Visible = False
With ActiveWindow
.DisplayHeadings = False
.DisplayWorkbookTabs = False
End With
Call januar
Dim strWks As String
strWks = InputBox(Prompt:="Bitte Passwort eingeben:", Default:="")
If strWks <> "kron" Then
Set ML = Application.CommandBars("Worksheet Menu Bar")
On Error Resume Next ' Fehlerbehandlung
ML.FindControl(Tag:="Zeitenplaner").Delete
MsgBox "Falsches Passwort"
Else
For I = 1 To Sheets.Count
Sheets(I).Protect ("kron")
Next I
End If
End Sub



Sub Auto_Close()
Set ML = Application.CommandBars("Worksheet Menu Bar")
On Error Resume Next ' Fehlerbehandlung
ML.FindControl(Tag:="Zeitenplaner").Delete
Application.DisplayFullScreen = False
Toolbars(1).Visible = True
Toolbars(2).Visible = True
With ActiveWindow
.DisplayHeadings = True
.DisplayWorkbookTabs = True
End With
For I = 1 To Sheets.Count
Sheets(I).Protect ("kron")
Next I
End Sub

Gruß Hamza
Anzeige
AW: Funktionsfehler?
Hamza
es muss doch irgendwie an den office versionen liegen
warum mein kalender nicht mehr funktioniert,
anders kann ich mir das nicht erklären
gruß hamza

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige