Spalten als Text formatieren
24.03.2006 14:38:15
Sebastian
hoffe es sind noch ein paar fleissige Excelprofis da. Bräuchte ein kleines bisschen Hilfe bei einem MAkro. Hab folgendes Makro im Archiv gefunden und bisschen angepasst. Das MAkro importiert eine Text Datei ins Excel. Das Problem liegt jetzt darin, dass die ersten beiden Spalten des importierten Textfiles als Text importiert werden sollen. Hoffe es kann mir jemand helfen das Makro so anzupassen, dass die ersten beiden Spalten als Text eingelesen werden. Danke.
Viele Grüße Sebastian
Sub TEXT()
strExt = "*.txt" 'Dateiextension ggf. anpassen
ZuÖffnendeDatei = Application.GetOpenFilename("Textdateien (" & strExt & "), " & strExt, Title:="Textdatei auswählen")
If ZuÖffnendeDatei = False Then Exit Sub
strPath = CurDir & "\"
If strPath = "" Then
Exit Sub
Else
ChDir strPath
strFile = Dir(strPath & strExt)
Workbooks.OpenText Filename:=strPath & strFile, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, _
Tab:=True, Semicolon:=False, Comma:=False, _
Space:=True, Other:=False, trailingMinusNumbers:=True
Sheets(1).Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
End If
End Sub