Datumsangabe - Methode des RO konnt nicht ausgeführt werden

Forumthread: Datumsangabe - Methode des RO konnt nicht ausgeführt werden

02.08.2024 14:09:20

Chris

Hallo Forum,

per u. a. Code berechne ich alle Tagen zwischen zwei Datumsangaben.
Hierbei steht das Anfangsdatum in C2, das Enddatum in D2:



With ActiveSheet

i = 2

.Range("O2").Value = .Range("C2").Value

.Range("O" & i).DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:= _

xlDay, Step:=1, Stop:=.Range("D2"), Trend:=False

i = i + 1

end with

Der Code läuft, solange ich Anfangs-/Enddatum manuell eingebe.
Werden die Datumsangaben aus einer Textbox in die beiden Zellen kopiert, funktioniert der Code nicht und bricht mit der Fehlermeldung ab:
"Die Data-Series Methode des Range-Objekts konnte nicht ausgeführt werden"

Aus der Textbox in das Sheet kopiere ich mit folgendem Code:



Sub Copy

Sheets("Datum").Cells(2, 3).Value = Userform1.TextBox2.Value

Sheets("Datum").Cells(2, 4).Value = Userform1.TextBox3.Value

End sub

Was muss man ändern?

Gruß
Chris

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Datumsangabe - Methode des RO konnt nicht ausgeführt werden

02.08.2024 14:20:35

Onur

Sub Copy

   Sheets("Datum").Cells(2, 3).Value = CDate(Userform1.TextBox2)

   Sheets("Datum").Cells(2, 4).Value = CDate(Userform1.TextBox3)

End sub

AW: Datumsangabe - Methode des RO konnt nicht ausgeführt werden

02.08.2024 20:14:43

daniel

HI
dein DataSeries braucht natürlich ein Datum in der Zelle.
Wenn du ein Datum in eine Textbox eingibst und dann per VBA den Wert in eine Zelle schreibst, erkennt Excel das nicht als Datum, weil nicht du den Text in die Zelle schreibst, sondern ein Makro und wenn das Makro das macht, dann müsste der Datumswert im amerikanischen Format in die Zelle geschrieben werden, damit Excel ihn als Datum erkennt.

eine mögliche Lösung hat Onur dir beschrieben, in dieser wandelst du den Textboxtext in ein Datum um und übergibst das der Zelle.

eine andere mögliche Lösung ist, dass du Excel mitteilst, dass es die folgende Eingabe nicht amerikanisch, sondern deutsch interpretiert werden soll und dann wird dein Datum auch erkannt:

Sub Copy

Sheets("Datum").Cells(2, 3).FormulaLocal = Userform1.TextBox2.Value

Sheets("Datum").Cells(2, 4).FormulaLocal = Userform1.TextBox3.Value

End sub

Beliebteste Forumthreads (12 Monate)

Datumsangabe - Methode des RO konnt nicht ausgeführt werden

Forumthread: Datumsangabe - Methode des RO konnt nicht ausgeführt werden

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread