Hallo,
so, jetzt letzter Versuch.
Ich habe dir vorhin schon geschrieben, dass es auf die Punkte vor den Range-Objekten ankommt. Nur dann ist korrekt auf das Tabellenblatt referenziert, dass in der With Klammer angegeben wird.
Und für die Zukunft:
Es macht keinen Sinn, hier 5 Codezeilen einzustellen mit dem Hinweis "erhalte ich einen Fehler". Wer soll mit diesem Code-Schnipsel denn was anfangen. Dann auch kein Hinweis zum Fehler und zur Codezeile in der dieser auftaucht.
Du machst es einem nicht leicht dir zu helfen.
With Worksheets("Zusammenstellung_Umsatz")
If .Range("A13").Value = "" Then
.Range("A13").Value = dateaus
Else
.Cells(.Cells(.Rows.Count, "A").End(xlUp).Row + 1, "A").Value = dateaus
End If
End With
Gruß Werner
|