Format und Str klauen Punkte

Sub tt() Dim a a = 5.5 MsgBox Len(Format(a)) '3 MsgBox Len(Str(a)) '4 MsgBox Format(a) '5,5 MsgBox Str(a) '5.5 a = "27.2.2009" MsgBox Format(a) '2722009 MsgBox Str(a) '2722009 End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub atst() MsgBox 3.9 * 1.1 MsgBox MalEinsKommaEins(3.9) ' 3.9 wird zu Long MsgBox CLng(3.9) MsgBox MalEinsKommaEins(4) End Sub Function MalEinsKommaEins(lngZ As Long) As Double MalEinsKommaEins = 1.1 * lngZ End Function

Dankeschön erstmal für alle Antworten,
ich habe es gerade erstmal überflogen und muß das nochmal in Ruhe durchgehen.
Passend zum Thema Dezimaltrennzeichen stieß ich vor Tagen bei der Recherche nach etwas absolut anderem auf den nachfolgenden Link wo u.A. dieses steht:
*************************************************************************************
Damit das Einlesen einer CSV- Datei wie oben beschrieben mit dem angegebenen Semikolon als
Trennzeichen funktioniert, kann man bei Excel97, Excedl2000 und Excel2002 durch das Einfügen eines
DWORD Namens VBAAlwaysLoadUS (Wert = 0) in der Registry unter
HKCU\Software\Microsoft\Office\9.0\Excel\Options
*************************************************************************************
Quelle: http://www.supportnet.de/fresh/2005/9/id1158805.asp
Da ich hier in Jahren noch nie einen Hinweis auf diesen Registry-Eintrag sah mutmaße ich das klappt nicht oder es kennt keiner. Probiert habe ich es noch nicht.
Ich stelle die Frage auf noch offen damit sie eher gefunden wird nicht weil ich dazu noch etwass wissen will, das kommt ggfs. erst wenn ich den Registry-Eintrag getestet habe :-).
Schönes WE wünscht
Reinhard

Hallo,
ich kenne dies mit der Registrierung so.
Beispiel:

Option Explicit

'Reg. vor einlesen Bearbeiten **************************************************** 
Sub Registrierung_Aendern()
Dim MerkRegEinstellung As String

'leser der Reg.- einstellung, um diese wieder zurücksetzen zu können 
MerkRegEinstellung = RegLesen

Call Registrierung_Bearbeiten("TabDelimited")      'entsprechenden Wert übergeben 
    
        'Datei einlesen 
        '... 
        '... 

Call Registrierung_Bearbeiten(MerkRegEinstellung)  'Zustand wieder herstellen 
End Sub

'Lesen der Registrierung ********************************************************** 
Private Function RegLesen() As String
Dim objShell As Object
Dim sRegName As String
Set objShell = CreateObject("WScript.Shell")
    sRegName = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Text\Format"
    RegLesen = objShell.RegRead(sRegName)
End Function



'Registrierung bearbeiten ********************************************************* 
Sub Registrierung_Bearbeiten(strValue$)
Dim strComputer$, strKeyPath$, strValueName$
Dim objReg As Object
Const HKEY_LOCAL_MACHINE = &H80000002
    
    strComputer = "."
    Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
    strKeyPath = "SOFTWARE\Microsoft\Jet\4.0\Engines\Text"
    strValueName = "Format"
    strValue = strValue
    objReg.SetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strValue

End Sub

Es gibt aber auch noch die Möglichkeit über Schema.ini zu arbeiten und
die Registrierung ganz in Ruhe lassen oder auch wenn man keinen Zugriff auf die Reg. Hat.
Bei Gelegenheit werde ich mir den Link von Dir näher anschauen.
Ich lass Deinen Beitrag für die anderen offen.
Gruß Tino und ein schönes Wochenende an alle

Beliebteste Forumthreads (12 Monate)

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread