00.01.1900
17.02.2023 10:50:47
UweD
habe schon gegoogelt und die Tipps von dort versucht, ohne Erfolg
- mit einem lange Makro werden einige Daten aus mehreren Dateien zusammengetragen...
- Dabei entstehen unter anderem über einen Sverweis Nullen.
- Eine der Spalten ist als Datum dargestellt also steht dort 00.01.1900
| Arbeitsblatt mit dem Namen 'EX' | ||
| E | F | |
| 1 | Inventory up to (Date) | Remarks |
| 2 | 31.12.2022 | nsnsn |
| 3 | 21.04.2023 | kezez |
| 4 | 00.01.1900 | 0 |
| 5 | 10.03.2023 | tetete |
| 6 | 00.01.1900 | 0 |
Diese "Nullen" sollen per Ersetzen gelöscht werden
habe verschiedene Befehle versucht. :-(
Mit dem ersten Part werden die als Null dargestellen Zellen in F geleert, aber in Spalte E nicht
Sub dgdg()
With ActiveSheet
.Cells.Replace What:="0", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2 'Klappt für F
.Cells.Replace What:="00.01.1900", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
.Cells.Replace What:=CDbl("00.01.1900"), Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
End With
End Sub
Wie bekomme ich die weg
https://www.herber.de/bbs/user/157878.xlsm
LG UweD