title image


Smiley Eben doch dynamisch ! Grrrrrrrrr....
Hallo UdoIch habe mich jetzt extra nochmals in der MS Newsgruppe versichert. Es ist eben doch so, wie ich vor knapp einer Woche geantwortet habe.Die Zahl welche Du da verwenden musst, ist installationsabhängig. So ist es z.B. auf meinem Desktop die 9 und auf dem Laptop die 7.Hier nochmals die Schleife um die richtige Zahl sauber zu ermitteln:Küss die Hand.Silvia WidmerSub Testl()'MS-DOS Text mit Layout'Wir kommen jetzt zur Ermittlung der Zusatzzahl For Each x In Application.FileConverters On Error Resume Next If x.FormatName = "MS-DOS Text mit Layout" Then Bingo = MsgBox("Die Zusatzzahl lautet heute: " & x.OpenFormat) Exit For End If Next On Error GoTo 0 Documents.Open FileName:="c:\config.sys", Format:=x.OpenFormatEnd Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: