Code funktioniert auf eigenem aber nicht fremdem P
01.08.2017 22:21:38
reiner
nachfolgend ein Auszug aus einem -auf meinem PC- funktionierenden Programmcode.
Auf einem fremden PC hingegen gibt es eine Fehlermeldung wegen Format
der Code wandelt sowohl eine serielle Zahl in ein Datum als auch in eine Uhrzeit um.
With lstDatenlogger
.List(.ListCount - 1, 3) = Format(Cells(i + 1, 3), "hh:mm") & " Uhr" 'Uhrzeit
End With
txtAnfang.Text = Range("B2").Value & " " & Format(Cells(2, 3), "hh:mm") & " Uhr" 'Uhrzeit
txtEnde.Text = Range("B" & Zeilenanzahl).Value & " " & Format(Cells(Zeilenanzahl, 3), "hh:mm") _
& " Uhr" 'Uhrzeit
Was muss ich tun damit der Code auch auf einem fremden PC läuft, bzw. gibt es eine andere Möglichkeit der Umwandlung die erst gar nicht zu einer Fehlermeldung führt?
mfG
reiner
Anzeige