Bei Übernahme Telnr aus CSV fällt führende 0 weg
14.03.2006 17:03:13
Heinzs
mit folgendem Code lese ich eine CSV Datei ein:
Application.DisplayAlerts = False
fn = gn_path + "\" + gn_sheet + ".csv"
Workbooks.Open Filename:=fn
Range("A:A").TextToColumns , DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, Semicolon:=True, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
Cells.Copy
ActiveWorkbook.Close SaveChanges:=False
Workbooks(gn_datei).Sheets(gn_sheet).Activate 'Mappenname ggf.anpassen
Columns("A1:IV65536").Select
Cells.PasteSpecial
Application.DisplayAlerts = False
In Spalte B der einzulesenden CSV befindet sich eine Telefonnummer: z.B.: 02325999999.
Nach Einlesen der CSV Datei befindet sich in der entsprechenden Spalte die Telefonnummer OHNE die führende 0, d.h. 2325999999.
Wer weiß Rat?
Vielen Dank für Hilfe.
MfG,
Heinz