Office: Probleme mit einer Deklaration

Hier ein Auszug aus einer Speichern-Anweisung:

Private Sub Speichern_Click()
Dim Z As Long
If AB.ListIndex = 0 Then
Z = Sheets("AD").[C65536].End(xlUp).Row + 1
Else
Z = ZB.Value
End If


Dim j As Integer
If AB.ListIndex = 0 Then
j = "Ãœbersicht-" & Year(Date)
Else
j = "Ãœbersicht-" & Sheets("AD").Cells(Z, 256)
End If

If IsNumeric(ArtNr1) Then
Sheets("AD").Cells(Z, 6) = CDbl(ArtNr1.Value)
End If
etc. ..........

Sheets("j").Cells(Z + 10, 3) = Datum.Value
etc. .........


Laufzeitfehler 13 wird bei Anweisung:
Sheets("j").Cells(Z + 10, 3) = Datum.Value
angezeigt.

Weiß nicht warum?
Benötige Hilfe.
Deklaration falsch?
Euer timi

 

Hallo timi,

ich nehme zuerst einmal an, dass die Variablen "AB", "ZB", "ArtNr1", "Datum" auf Modulebene deklariert sind (mit den korrekten Typen bzw. Objektklassen), da sie in der Sub "Speichern_Click" nicht deklariert sind.

Ich wundere mich, dass Du nicht spätestens in der Zeile j = "Übersicht-" & Year(Date) bzw. j = "Übersicht-" & Sheets("AD").Cells(Z, 256)
einen Error 13 (Typen unverträglich) erhalten hast, da Du dort versuchst, der integer-deklarierten Variablen "j" einen String zuzuweisen ("Übersicht-...").

Was mit der Long-deklarierten Variablen "Z" in den ersten paar Zeilen Deines Makros passiert, kann ich nicht beurteilen, weil ich nicht weiß, was in den entsprechenden Arbeitsblattzellen steht (String oder numerischer Wert).

 

Hmmm... Was ist denn die Eigenschaft "value" des Objekts "datum"? Oder ist "datum" gar kein Objekt, sondern eine Variable?

Ich würd's mal hier und in den anderen ähnlichen Zeilen mit

Code:

Sheets("j").Cells(Z + 10, 3).Value = Datum

versuchen. Vielleicht ist es das ja. Aber ohne "option explicit" am Anfang und Zeigen der gesetzten Deklarationen (alle DIM-Zeilen) kann man da, wie Exl auch schon schrieb, nur viel raten.

Gruß, Michael