Ganz grundlegender fehler mit For Each-Schleife: datentyp unverträglich
Verfasst: Di 5. Sep 2023, 22:27
Hallo
In allen Varianten, auch den allereinfachsten und mit jungfräulicher calc-Tabelle, gibt die For Each Schleife sofort den Fehler
aus, ohne überhaupt weiterzukommen. Grundlage ist untenstehender Makrocode. Hab schon über Stunden mit GPT und klassischer Suchfunktion versucht einen Fehler zu finden. Weiß hier jemand mehr?
In allen Varianten, auch den allereinfachsten und mit jungfräulicher calc-Tabelle, gibt die For Each Schleife sofort den Fehler
Code: Alles auswählen
"Unzulässiger Wert oder Datentyp
Datentypen unverträglich"
Code: Alles auswählen
Sub Formatierung()
Dim Doc As Object
Dim PlanSheet As Object
Dim PlanRange As Object
Dim PlanCell As Object
' Die aktive Arbeitsmappe (Dokument) erhalten
Doc = ThisComponent
' Tabellenblatt "Plan" erhalten
PlanSheet = Doc.Sheets.getByName("Plan")
' Bereich in "Plan" von A1 bis E5 erhalten
PlanRange = PlanSheet.getCellRangeByName("A1:E5")
' Schleife durch den gesamten Plan-Bereich
For Each PlanCell In PlanRange
' Prüfen, ob der Inhalt der Zelle ein gültiges Datum ist
If IsDate(PlanCell.getValue()) Then
' Hier können Sie Ihre Formatierungs- und Beschriftungslogik einfügen
' Beispiel: PlanCell.setValue("Gültiges Datum gefunden")
End If
Next PlanCell
End Sub