title image


Smiley Re: Umlaute als Sonderzeichen
Hallo xl'chen



der Quelltext ist:



Set origin = Workbooks.Add



Workbooks.OpenText FileName:= _

TBName, origin:=xlMSDOS, _

StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _

ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True,Comma:=False _

, Space:=False, Other:=False, TrailingMinusNumbers:=True



ActiveWorkbook.Worksheets(1).Copy before:=origin.Worksheets(1)

Workbooks(TBshort).Close savechanges:=False



origin.Activate





Danke CK

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: