Office: (Office 365) VBA Stapelspeicher Fehler

Hi,
ich möchte gern die Funktion DateSerial verwenden. Leider bekomme ich den Stapelspeicher Fehler. Könnte mir da bitte jemand mir helfen?


Function DateSerial()
Worksheets("2023").Activate

Dim v, c, a, m As Integer


v = ActiveCell.Value
c = ActiveCell.Column

If c = 12 Or c = 16 Then
m = DateSerial(Year(v), Month(v), 1)
MsgBox m
End If
End Function

 

benutze keinen VBA Befehl zur Bezeichnung der Funktion

 

Hallo Lukas,
neben dem von Hajo mit Recht gerügten Fehler darfst du m nicht als Integer vereinbaren, es wird ja ein Wert vom Typ Date erzeugt. Also

Code:

Function MyDateSerial()
Dim v, c, a As Integer, m As Date
Worksheets("2023").Activate
v = ActiveCell.Value
c = ActiveCell.Column
If c = 12 Or c = 16 Then
m = DateSerial(Year(v), Month(v), 1)
MsgBox m
End If
End Function

Gruß der ALteDresdner

 

Vielen Dank euch zwei!

Ich hätte noch eine Frage, kann ich in die Function MyDateSerial die WorkDay Function einfügen?

 

Und ich sehe gerade leider, kommen leider nicht die richtigen Werte raus...

 

HAllo,
kannst Du:

Code:

Function MyDateSerial()
Dim v, c, a As Integer, m As Date
Worksheets("2023").Activate
v = ActiveCell.Value
c = ActiveCell.Column
If c = 12 Or c = 16 Then
m = WorksheetFunction.WorkDay(DateSerial(Year(v), Month(v), 1), 10)
MsgBox "Zahltag ist 10 Arbeitstage nach dem 1. des Monats: " & m
End If
End Function

Gruß der ALteDresdner

 

Ist als Frage etwas dürftig...

 

Hi,

so ganz nebenbei: VBA ist nicht so wie andere Programmiersprachen. Jede Variable muss getrennt dimensioniert werden.

Dim a, b, c As Integer dimensioniert nur c als Integer und a und b als Variant. Korrekt wäre Dim a As Integer, b As Integer, C As Integer.

Mal ganz davon abgesehen, dass man bei Integer aufpassen muss, dass dies nur von ca. -32.000 bis +32.000 geht. Also besser als Long definieren. Integer statt Long zu verwenden war bei 16-Bit-Prozessoren noch sinnvoll. Aber seit dem Pentium sind diese Zeiten vorbei.

Und was die "richtigen Werte" anbelangt: ich vermute, dass in ActiveCell kein vollständiges Excel-Datum steckt. Mal ganz davon abgesehen, dass man ActiveCell nur in begründeten Ausnahmefällen verwendet.