|
Hallo, ich habe folgendes Problem:
in einer Liste die ich von einer externen Schnittstelle bekomme steht das Datum im Format :
jeweils mit 08:00 und 17:00 Uhr
Ich benötige aber :
Dies Änderung möchte ich mit folgendem Makro ändern:
Sub Makro1()
'
' Makro1 Makro
'
Range("A1:B1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Replace What:=" 17:00", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" 08:00", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.NumberFormat = "d/m;@"
End Sub
Dies klappt beim Aufzeichnen des Makros auch perfekt. Führe ich nun das Makro in einer neuen Liste aus, werden nicht alle Daten umgeändert:
|
Anfang |
Ende |
|
28 Juni 2017 |
8.1 |
|
28 Juni 2017 |
29 Juni 2017 |
|
29.8 |
29.8 |
|
03 Juli 2017 |
30.8 |
|
03 Juli 2017 |
30.8 |
Auch ein multiplizieren mit "1" führt als Makro zu keiner Veränderung, maunell aber schon?
habe auch ein Makro mit "F2 & Enter" probiert, aber das dauert zu lange und ist keine schöne Lösung.
Vielleicht hat jemand einen Tipp?
Vielen Dank
Holger
|