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. Kamera in Excel einbinden und per vba Fotos erstellen

    in Microsoft Excel Hilfe
    Kamera in Excel einbinden und per vba Fotos erstellen: Kamera in Excel einbinden Hallo, ich suche einen Code für eine UserForm, mit der ich die integrierte Kamera des WinPC in der UserForm anzeigen lassen kann und davon ein Bild sichern kann.
  3. Liste aller Comboboxen im Sheet

    in Microsoft Excel Hilfe
    Liste aller Comboboxen im Sheet: Hallo allerseits, Ich möchte alle Comboboxen eines Worksheets mit VBA auslesen und finde nicht den Namen der Liste in den Sheet-Eigenschaften, in der die Comboboxen gespeichert sind. Wer weiß, wo...
  4. Pivot Tabelle: Quelle per VBA verändern

    in Microsoft Excel Hilfe
    Pivot Tabelle: Quelle per VBA verändern: Hi all, gibt es eine Möglichkeit, wie ich die Quelle einer Pivot Tabelle mit einem Klick aktualisieren kann? 1) Beispiel Quelle: [Datum_Dateiname.xlsx]Tabelle1!$A:$AA 2) Beispiel wie es je nach...
  5. Auswertung aus mehreren Registern erstellen (nur die Gelbmarkierten oder mit Datum von akt. Woche)

    in Microsoft Excel Hilfe
    Auswertung aus mehreren Registern erstellen (nur die Gelbmarkierten oder mit Datum von akt. Woche): Hallo zusammen, ich arbeite mit einer Excel-Arbeitsmappe, die mehrere Tabellenblätter enthält. Jedes Blatt dokumentiert bestimmte Vorgänge, und die Struktur der Daten ist in allen Blättern...
  6. VBA in einer Zeile zu lang

    in Microsoft Excel Hilfe
    VBA in einer Zeile zu lang: Moin, mein VBA Code ist für eine Zeile zu lang. Kann mir einer helfen wie ich den auf 2 Zeilen aufteilen Kann? arrSchuhDaten = Array(Range("A6"), Range("F6"), Range("J6"), Range("A7"),...
  7. Listbox wird nicht breiter, Schriftgrösse ändert sich

    in Microsoft Excel Hilfe
    Listbox wird nicht breiter, Schriftgrösse ändert sich: Hallo, ich habe ein Formular dessen Breite ich mit der Maus ändern kann. Im Formular habe ich einen Rahmen und darin eine Listbox deren Breite an die Formularbreite angepasst wird....
  8. Kontrollkästchen aktivieren ohne VBA - wenn KK1 angekreuzt dann KK2 auch

    in Microsoft Excel Hilfe
    Kontrollkästchen aktivieren ohne VBA - wenn KK1 angekreuzt dann KK2 auch: Hallo zusammen, erstmal danke für all die Tipps und Kniffe, die ich ohne eigenen Thread gefunden und gelernt habe. Leider finde ich mein Thema nirgendwo... Aktuell habe ich zwei Spalten mit...
  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