Laufzeitfhler 424
17.10.2016 09:05:54
Hans
an der Stelle kommt ein Laufzeitfehler 424 "Objekt erforderlich"
Range("RechnungsDatum") = Date: NumberVBA.Format = "dd/mm/yyyy"
Was kann hier der Grund sein?
Hier das Makro in Auszügen
Sub Rechnung_Auswahl()
Dim AuftragsMax As Long
If WorksheetFunction.CountIf(Workbooks("Auftrag.xls").Sheets("Daten").Range("B:B"), _
ThisWorkbook.Sheets("Eingabe Endkunde").Range("RechnungsNr")) > 0 Then
MsgBox "Rechnungsnummer existiert schon"
Exit Sub
End If
' 05.01.2009 -- Falls Auftragsnummer leer. Neue Anlegen
If Range("spe8") = "" Then
Windows("Auftrag.xls").Activate
Sheets("Daten").Select
AuftragsMax = Application.WorksheetFunction.Max(Range("A:A")) + 1
Windows("Erfassung.xls").Activate
Range("spe8") = AuftragsMax
Range("AuftragsDatum") = Date: NumberFormat = "dd/mm/yyyy"
End If
End Sub
Hans