Abgesehen davon dass ein höfliche Anrede und einen Gruss die Annahme einer Arbeit etwas erleichtert, verstehe ich nicht warum das nicht gleich korrekt eingegeben wird.
Dieses Format ist doch .....
Also dann:
Das wandelt jeden markierten Bereich um.
Gruss Rainer
Füge folgende SUB in ein Modul ein.
Wenn der zu berechnende Bereich markiert ist, dann wandelt die SUB den Inhalt um, wie gewünscht.
Sub Umw
For each z in Selection.Cells
x = InStr(1, z.value, "*")
if x > 0 then
z.value=Left(z.value,x-1)+Mid(z.value,x+1,len(z.value)-x)/60)
End If
Next
End Sub
Füge folgende SUB in ein Modul ein.
Wenn der zu berechnende Bereich markiert ist, dann wandelt die SUB den Inhalt um, wie gewünscht.
Sub Umw
For each z in Selection.Cells
x = InStr(1, z.value, "*")
if x > 0 then
z.value=Left(z.value,x-1)+Mid(z.value,x+1,len(z.value)-x)/60)
End If
Next
End Sub
Danke Euch beiden für Eure Hilfe.
Quinoman, Dein Skript funktioniert. Nur muss man aufpassen, dass man bei Zeiten unter einer Stunde die Stunden-Null eingibt, sonst bleibt das Skript stecken. Danke, Du hast mir sehr geholfen.
Ramses, bitte sieh das nicht als Kritik, sondern als Anregung. Vielleicht hat sich irgendwo ein Flüchtigkeitsfehler eingeschlichen. Textstrings mit Stern bleiben Texte und können nicht zusammensummiert werden. Aus 3*02 wird 3,3, (mit zwei Komma-Zeichen) und aus 4*3 wird ,5 usw.
Danke für Eure Hilfe.
Hast du als Dezimaltrennzeichen den Punkt oder das Komma ?
Wenn du den Punkt hast, ändere im Code das Komma zwischen den Anführungszeichen in einen Punkt.
Für die anderen Formate habe ich keine Erklärung ausser dass sie benutzerdefiniert sind und vorher schon existiert haben.
Mein "Numberformat" gilt nur für Zahlen.
Gruss Rainer