Office: Formatierung einer Variablen ändern

Hi,

ich habe ein Makro programmiert, dass aus einer Zelle eine Uhrzeit (die automatisch als Uhrzeit formatiert wird)
kopiert und auf Variable 'Uhrzeit' (als String definiert) schreibt.
Per SaveAs wird die Datei dann abgespeichert und die Variable 'Uhrzeit' soll
im Dateinamen stehen.
Mein Problem ist, dass der Zelleninhalt in der Variablen als Dezimalzahl auf die Variable 'Uhrzeit' gespeichert wird.
12:00 entspricht dem Wert 0,5 usw. Ich brauche aber eine Uhrzeit im Dateinamen.
Ich müsste also irgendwie die Formatierung von Uhrzeit auf Text ändern, dann müsste es funktionieren!
Die Doppelpunkte ersetze ich mit Replace.


Ich hoffe ich konnte es klar erläutern!

Grüße,
Egon

:)

 

Hallo
so? Zeit steht in A1
Code:

gruss hary

 

Hi,

ich glaub ich hab mein Problem noch nicht richtig erklärt, ich versuchs mal mit dem Code.

In Zelle A1 steht eine Uhrzeit, z.B. 18:00. Die Zelle wird von einem Automaten beschrieben und die Formatierung steht dann direkt auf Uhrzeit.

Dann passiert folgendes:

PHP:

         Dim Uhrzeit As String

'restlicher Code

Uhrzeit = Cells(1,1)

Uhrzeit = Replace(Uhrzeit, ":", "'") 'Hier werden : durch ' ausgetauscht, da keine : im Dateinamen zulässig sind.

ActiveWorkbook.SaveAs Filename:="C:Dateiname " & Uhrzeit & ".xlsx"


 

Ich greife mal die Lösung von oben auf...
Code:

 

Es funktioniert!
Vielen Dank!