ich habe ein seltsamen Zeitformat 28.02. 15:23
welches von Zeitfunktionen nicht als Zeit erkannt wird
und also mit anderen Zeiten nicht verglichen werden kann.
Ich möchte aber das ein Makro erkennt das der Tag 28.02 ist.
Ist das machbar?
Rolf
schreib mal ein eine Nachbarzelle (A1=Dein Wert)
=A1+1
Wenn als Ergebnis #WERT erscheint, dann liegt dein Wert als Text vor und kannst ihn nicht weiterverwenden.
Du musst dann im Makro die Zahlen extrahieren, die zum Datum gehören, allerdings hast du natürlich keine Jahreszahl, und die anderen Zahlen welche die Zeit darstellen.
Diese Extrahierten Werte mit DateSerial() umwandeln und dann sollte es gehen.
Gruss Rainer
für die Tabelle:
Eine neue Spalte einfügen:
=LINKS(A1;5) & " " & RECHTS(A1;5)
und nach unten kopieren. Anschliessend die Spalte markieren, kopieren, Bearbeiten - Inhalte einfügen - Werte.
Dann hast du unveränderliche Grunddaten.
IM Makro genauso:
Schleife für 100 Zellen erstellen:
For i = 1 to 100
Cells(i,1) = Left(Cells(i,1),5) & " " & Right(cells(i,1),5)
Next i
Gruss Rainer
ich war gestern ab 6 Uhr nicht mehr im Forum,... private verpflichtungen :-))
Verwende diese Formel in der Tabelle:
=TEXT(LINKS(A1;5);"TT.MM.JJJJ") & " " & TEXT(RECHTS(A4;5);"HH:MM")
Und für das Makro
Sub test()
ActiveCell.Value = DateValue(Left(Range("A4"), 5) & " " & TimeValue(Right(Range("A4"), 5)))
End Sub
Gruss Rainer
ich war gestern ab 6 Uhr nicht mehr im Forum,... private verpflichtungen :-))
Verwende diese Formel in der Tabelle:
=TEXT(LINKS(A1;5);"TT.MM.JJJJ") & " " & TEXT(RECHTS(A4;5);"HH:MM")
Und für das Makro
Sub test()
ActiveCell.Value = DateValue(Left(Range("A4"), 5) & " " & TimeValue(Right(Range("A4"), 5)))
End Sub
Gruss Rainer
die Formel macht genau das gleiche wie das Makro und funktioniert sicher.
Du musst bloss die Bezüge richtig anpassen :-)
Sub test()
Dim i As Integer
For i = 1 To Range("A65536").End(xlup).Row
'Die 1 in Cells steht für die Spalte A
Cells(i,1).Value = DateValue(Left(Cells(i,1), 5) & " " & TimeValue(Right(Cells(i,1), 5)))
Next i
End Sub
Gruss Rainer
was ist daran seltsam ?
Sub test()
Dim i As Integer
For i = 1 To Range("A65536").End(xlup).Row
'Die 1 in Cells steht für die Spalte A
Cells(i,1).Value = TimeValue(Right(Cells(i,1), 5)))
Next i
End Sub
Gruss Rainer