Office: (Office 365) VBA Stapelspeicher Fehler

Helfe beim Thema VBA Stapelspeicher Fehler in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hi, ich möchte gern die Funktion DateSerial verwenden. Leider bekomme ich den Stapelspeicher Fehler. Könnte mir da bitte jemand mir helfen? Function... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Lukas2011, 14. Dezember 2022.

  1. Lukas2011 Neuer User

    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
     
    Lukas2011, 14. Dezember 2022
    #1
  2. Hajo_Zi
    Hajo_Zi Erfahrener User
    benutze keinen VBA Befehl zur Bezeichnung der Funktion

    VBA Stapelspeicher Fehler GrußformelVBA Stapelspeicher Fehler Homepage
     
    1 Person gefällt das.
  3. AlterDresdner Erfahrener User
    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
     
    AlterDresdner, 14. Dezember 2022
    #3
    1 Person gefällt das.
  4. Lukas2011 Neuer User

    VBA Stapelspeicher Fehler

    Vielen Dank euch zwei!

    Ich hätte noch eine Frage, kann ich in die Function MyDateSerial die WorkDay Function einfügen?
     
    Lukas2011, 14. Dezember 2022
    #4
  5. Lukas2011 Neuer User
    Und ich sehe gerade leider, kommen leider nicht die richtigen Werte raus...
     
    Lukas2011, 14. Dezember 2022
    #5
  6. AlterDresdner Erfahrener User
    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
     
    AlterDresdner, 14. Dezember 2022
    #6
  7. AlterDresdner Erfahrener User
    Ist als Frage etwas dürftig...
     
    AlterDresdner, 14. Dezember 2022
    #7
  8. HKindler
    HKindler Erfahrener User

    VBA Stapelspeicher Fehler

    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.
     
    HKindler, 19. Dezember 2022
    #8
Thema:

VBA Stapelspeicher Fehler

Die Seite wird geladen...
  1. VBA Stapelspeicher Fehler - Similar Threads - VBA Stapelspeicher Fehler

  2. zeilenweise Zellen per VBA verbinden

    in Microsoft Excel Hilfe
    zeilenweise Zellen per VBA verbinden: Guten Morgen zusammen, ich möchte beginnend ab der Zeile/Zelle A29 den Bereich A29:E29 per MERGE verbinden sowie jeweils zeilenweise eine individuelle Anzahl an Zeilen im jeweils gleichen Bereich...
  3. VBA Summe bilden

    in Microsoft Excel Hilfe
    VBA Summe bilden: Hallo zusammen, in meiner per VBA generierten Tabelle mit unterschiedlicher Anzahl Zeilen möchte ich in Spalte D die Summe bilden, als von D1 bis Dx. Meine Formel bei 12 Zeilen:...
  4. [VBA] CSV einlesen, mit zeilennummer

    in Microsoft Excel Hilfe
    [VBA] CSV einlesen, mit zeilennummer: Hallo zusammen, ich versuche eine CSV einzulesen, das klappt recht gut. Jedoch wrüde ich gerne ein Zeilennummer (ID, Messpunkt) vor meine Daten schreiben lassen. doch wie mache ich das ohne...
  5. Per VBA Zeilen einfügen und danach in diese Texte kopieren

    in Microsoft Excel Hilfe
    Per VBA Zeilen einfügen und danach in diese Texte kopieren: Hallo zusammen, ich möchte im 1. Schritt via VBA-Code eine bestimmte, variable Anzahl Zeilen (der Wert wird immer im Reiter "Data" in der Zelle S32 ermittelt) in einem anderen Reiter namens...
  6. VBA Code für Zeilen ausblenden einblenden mit JA/Nein

    in Microsoft Excel Hilfe
    VBA Code für Zeilen ausblenden einblenden mit JA/Nein: Hallo, habe eine Exceltabelle, bei der ich bei einer Zelle eine Ja/Nein abfrage mache, wenn in der Zelle Nein steht, dann soll ein bestimmter Zeilenbereich, den ich definieren möchte, ausgeblendet...
  7. Excel Range als Bild in Word einfügen

    in Microsoft Excel Hilfe
    Excel Range als Bild in Word einfügen: Hallo, ich möchte gerne per Makro in einem Wordtemplate Mustergrafiken, die als Platzhalter dienen durch Bereiche in meiner Exceldatei ersetzen, die ich als Bild einfüge. Per Hand mache ich das...
  8. VBA Verlust der Muttersprache (Mid)

    in Microsoft Access Hilfe
    VBA Verlust der Muttersprache (Mid): Hallo, If Len(Me.TxMat) = 10 And IsNumeric(Me.TxMat) Then Me.TxMat = Left(Me.TxMat, 4) & "." & mID(Me.TxMat, 5, 2) & "." & Right(Me.TxMat, 4) End IfDieser Codeschnipsel soll aus 1234567890 in...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden