Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
2004to2008
2004to2008
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Datum Eintragungen - ChatGPT gescheitert

Forumthread: Datum Eintragungen - ChatGPT gescheitert

Datum Eintragungen - ChatGPT gescheitert
03.03.2025 18:07:03
Andy 99
Beispieltabelle: https://www.herber.de/bbs/user/176096.xlsx

Hallo zusammen.

Selbst ChatGPT konnte mir nicht helfen, kamen nur unsinnige Vorschlaege.

In meiner Beispieltabelle moechte ich in Spalte B Kalenderdaten angezeigt bekommen, so, wie in Spalte C manuell von mir eingetragen wurde.

Ausgangsdatum ist Feld B5
Folgende Bedingungen sollen erfuellt werden.
1. Es soll nur jedes dritte Datum angezeigt werden
2. Das Datum soll in dem Feld von der Spalte B erscheinen, wo auch in Spalte A, das entsprechende Monats/Jahr Datum steht.
3. Es soll entweder das exakte Datum plus 3 Monate angezeigt werden, also 14.08.2025, 14.11.2025, 14.02.2026
4. Oder, wie bei dem Datum 31.08.2025, lauten die folgenden Intervalle : 30.11.2025. 28.02.2026 und 31.05.2026
5. Wenn in Feld B5 kein Datum steht, soll Spalte B leer bleiben. (waere aber nicht so wichtig).

Ich hoffe, Ihr koennt mir helfen.

Bin sehr dankbar dafuer !!!

Gruss Andy
Anzeige

21
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum Eintragungen - ChatGPT gescheitert
03.03.2025 18:13:36
Onur
Nicht die Datei BESCHREIBEN, sondern sie POSTEN ...
AW: Datum Eintragungen - ChatGPT gescheitert
03.03.2025 18:31:14
Onur
Sorry -übersehen !
Anzeige
AW: Datum Eintragungen - ChatGPT gescheitert
03.03.2025 18:55:12
cysu11
Hi Andy,

vielleich so: 

Sub FillLastDayOfMonth()

    Dim ws As Worksheet

    Dim lastRow As Long

    Dim i As Long

    Dim currentDate As Date, enddate As Date

    ' Setze das aktuelle Arbeitsblatt

    Set ws = ActiveSheet

    ' Letzte verwendete Zeile in Spalte A ermitteln

    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    ' Durchlaufe jede dritte Zeile in Spalte B

    For i = 6 To lastRow

        If IsDate(ws.Cells(i, 1).Value) Then

            currentDate = ws.Cells(i, 1).Value

             enddate = DateSerial(Year(currentDate), Month(currentDate) + 1, 0)

                         ' Berechne das letzte Datum des Monats

             If enddate >= Range("B5") Then

                ws.Cells(i, 2).Value = DateSerial(Year(currentDate), Month(currentDate) + 1, 0)

                i = i + 2

            End If

        End If

    Next i

    ' Meldung nach Abschluss

    MsgBox "Daten wurden erfolgreich eingefügt!", vbInformation

End Sub

LG, Alexandra
Anzeige
AW: Datum Eintragungen - ChatGPT gescheitert
03.03.2025 19:29:58
Andy 99
Das hast du dir ja richtig große Mühe gemacht -

SUPER und vielen Dank.

Ich muss morgen das mal komplett für die ganze tabelle ausprobiern.

Ich bin richtig begeistert!!!

Jedenfalls vielen Dank!
Anzeige
AW: Datum Eintragungen - ChatGPT gescheitert
03.03.2025 19:49:05
Andy 99
SUPER

DU BIST DER HELD!!!

Funktioniert alles bestens!!
Gerne!
03.03.2025 20:00:07
Onur
Anzeige
AW: Datum Eintragungen - ChatGPT gescheitert
03.03.2025 19:09:55
Andy 99
Hallo Alexandra.

Von Makros habe ich keine Ahnung.

Kannst du mir sagen, wo ich das einfügen muss.

Und wie, wo das funktioniert?

Und wie führe ich das aus?

ich habe das Makro eingefügt und gespeichert, datei als makro gespeichert, aber auf der tabelle tut sich nichts .....
Ist wahrscheinlich einiges verkehrt von mir

Eine normale Formel wäre mir lieber

Trotzdem vielen Dank für deine Mühe!!!
Anzeige
AW: Datum Eintragungen - ChatGPT gescheitert
03.03.2025 19:13:07
cysu11
Hi Andy,

mit ALT+F11 öffnet sich der VBA Editor.
Dann links auf einer der TAbellen klicken und rechte Maustaste und Modul einfügen.
Dann im Modul den Code einfügen. Fenster schließen.
Dann mit ALT + F8 das Makrofenster aufrufen das Makro auswählen und ausführen.
Die Date muss als .xlsm gespeichert sein dann...

LG, Alexxandra
Anzeige
AW: Datum Eintragungen - ChatGPT gescheitert
03.03.2025 19:25:56
BoskoBiati
Hi,

in B6 diese formel und nach unten ziehen: 

=WENN(A6$B$5-TAG($B$5)+1;"";WENN($B$5-TAG($B$5)+TAG(A6)=A6;$B$5;WENN(ZEILE()-VERWEIS(9;1/($B$5:$B5>"");ZEILE($B$5:$B5))=3;WENN($B$5=MONATSENDE($B$5;0);MONATSENDE(B3;3);EDATUM(B3;3));"")))


Gruß

Edgar
AW: Datum Eintragungen - ChatGPT gescheitert
03.03.2025 19:33:55
Andy 99
Hallo Edgar.

Du hast dir ebenfalls viel Mühe gemacht - vielen Dank!!!

Echt super, vor allen Dingen dann, wenn es funktioniert!!
Anzeige
AW: Datum Eintragungen - ChatGPT gescheitert
03.03.2025 19:23:21
Andy 99
Super !!!!!, irgendwie hat das mit Alt F8 und ausführen doch funktioniert.

Wie bekomme ich das makro auf die ganze tabelle, B6 bis O62 ???

Ggf. muss ich tabelle nach rechts sowieso erweitern.

Vielen Dank schonmal !!!
Anzeige
AW: Datum Eintragungen - ChatGPT gescheitert
03.03.2025 19:25:13
cysu11
Hi Andy,

dazu müsste ich die Datei sehen...

LG, Alexandra
AW: Datum Eintragungen - ChatGPT gescheitert
03.03.2025 19:47:40
cysu11
Hi Andy,

die habe ich schon gesehen aber ich weiß nicht was du vorhast? soll da in alle Spalten eingetragen werden, oder alle 2 Spalten, oder?

LG, Alexandra
Anzeige
AW: Datum Eintragungen - ChatGPT gescheitert
03.03.2025 19:51:33
Andy 99
In die Zeile 5 sollen weitere, beliebige Datumsangaben eingetragen werden und die jeweiligen Spalten dann das Ergebnis anzeigen
AW: Datum Eintragungen - ChatGPT gescheitert
05.03.2025 19:03:22
cysu11
Hi Andy,

probiere auch mal das hier: 

Sub FillLastDayOfMonth2()

    Dim ws As Worksheet

    Dim lastRow As Long, lastColumn As Long

    Dim i As Long, y As Long

    Dim currentDate As Date, enddate As Date

    ' Setze das aktuelle Arbeitsblatt

    Set ws = ActiveSheet

   ' Letzte verwendete Zeile in Spalte A ermitteln

    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    lastColumn = ws.Cells(5, ws.Columns.Count).End(xlToLeft).Column

    ' Durchlaufe jede dritte Zeile in Spalte B

    For y = 2 To lastColumn

    For i = 6 To lastRow

'    If wr = 1 Then

'    i = i + 2

'    End If

        If IsDate(ws.Cells(i, 1).Value) Then

            currentDate = ws.Cells(i, 1).Value

            enddate = DateSerial(Year(currentDate), Month(currentDate) + 1, 0) ' Letzter Tag des Monats

            ' Iteriere durch die Spalten

                If enddate >= ws.Cells(5, y).Value Then

                    ws.Cells(i, y).Value = enddate

                    i = i + 2

                End If

        End If

    Next i

    Next y

    MsgBox "Daten wurden erfolgreich eingefügt!", vbInformation

End Sub


LG, Alexandra
Anzeige
AW: Datum Eintragungen - ChatGPT gescheitert
05.03.2025 20:09:19
Andy 99
Vielen Dank Alexandra - werde ich ausprobieren.
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum