Hallo zusammen
Ich habe einen Exceldownload aus unserem SharePoint. Damit diese Daten "sauber" durch das Makro laufen, habe ich ein Tabellenblatt "Bastel-File" in welchem ich schon viele der Werte mittels Formeln richtig stellen kann.
In den Datums-Spalten (I & J) werden im SharePoint zum Teil keine Datum angegeben, sprich diese Werte sind leer (Zelle blanc). Die leeren Datumsfelder werden mir im Bastel-File mit dem Wert 00.01.1900 ausgegeben. Ich habe mit verschiedensten Formatierungen (*13.01.2001, oder Benutzerdefiniert TT,MM,YYYY;@, Werte in eine andere Spalte schreiben und mittels Werte einfügen wieder zurück, etc.).
Das komisch ist, wenn ich manuell mittels der Excelfunktion die Werte 00.01.1900 mit "" ersetze, also lösche, funktioniert es.
Wenn ich das im Makrorecorder aufzeichne und das dann einbaue, funktioniert das wieder nüscht.
Vielen Dank für eure Mithilfe und nen Tipp wo ich mir selber auf dem Schlauch stehe.
Arnold
'Blendet Tabellenblatt ein
Sheets("Bastel-File").Visible = True
'Variablen deklarieren
Sheets("Bastel-File").Select
Range("A2:AD2").Select
Selection.AutoFill Destination:=Range("A2:AD1500"), Type:=xlFillDefault
Range("A2:AD1500").Select
'Formeln werden gelöscht
Range("A3:AE1500").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Zeile 2 wird mittels Werte einfügen kopiert, damit die Formel nicht gelöscht wird
Rows("2:2").Select
Selection.Copy
Rows("3:3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Datumswert 00.01.1900 wird gelöscht
Range("I3:J1500").Select
Cells.Replace What:="00.01.1900", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
'End With