11.10.2019, 15:35
Hallo Zusammen,
anhand einer Msg-Box mit Buttons JA oder Nein wird in einem Extramodul bzw. Extrasub "DatumMonat" einer Variable "AuswerteMonat" ein bestimmter Wert mit IF-Kriterien zugewiesen. Diesen Wert möchte ich in einem anderen Modul bzw. anderem Sub "Test123" verwenden.
Aber keine Chance. Habe die Variable Public anstatt dim definiert. Da kommt nur der Wert 0 raus anstatt ein korrektes Datum.
anhand einer Msg-Box mit Buttons JA oder Nein wird in einem Extramodul bzw. Extrasub "DatumMonat" einer Variable "AuswerteMonat" ein bestimmter Wert mit IF-Kriterien zugewiesen. Diesen Wert möchte ich in einem anderen Modul bzw. anderem Sub "Test123" verwenden.
Aber keine Chance. Habe die Variable Public anstatt dim definiert. Da kommt nur der Wert 0 raus anstatt ein korrektes Datum.
Code:
Sub DatumMonat()
Dim Antwort As VbMsgBoxResult
Dim Meldung As String
Dim AuswerteMonat As Date
Meldung = "Auswertung für den Vormonat?"
Antwort = MsgBox(Meldung, vbYesNo + vbQuestion, "VBA-Tutorial")
If Antwort = vbNo Then
AuswerteMonat = Date
ElseIf Antwort = vbYes Then
If Month(Now()) = 1 Then
AuswerteMonat = DateSerial(year(Now()) - 1, 12, 1)
Else
AuswerteMonat = DateSerial(year(Now()), Month(Now()) - 1, Day(Now()))
End If
End If
TEST123 (AuswerteMonat)
End Sub
Code:
Sub TEST123()
With Sheets("Gesamt")
.Cells(1, 1) = AuswerteMonat
End With
End Sub