Strings in Excel zerlegen

17/06/2008 - 13:59 von wilpito | Report spam
Hallo Zusammen

ich habe das Problem, das ich in Excel aus einer externen DAtei Strings
einklesen muss. Die Strings haben das Format DAteiname:wert1:wert2:wert3
Abhàngig vom Dateinamen sind die nachfolgenden 3 Werte in unterschiedliche
Zellen einzutragen.
Nachflgende Funktion habe ich aus eienr VBA Applikation zusammengesetzt.

Die Funktion funktioniert so nicht und meldet Laufzeitfehlet 424

Public Sub test()
strText = "Apfelkuchen.txt:100:10:2"
' Fixer Ausschnitt
MsgBox "Anfang = " & strText.Substring(0, 4)
' Der Teil vor dem ersten :
MsgBox "Datei" & strText.Substring(0, strTxt.IndexOf(":"))
' der Teil nach dem ersten :
MsgBox "REST:" & strText.Substring(strTxt.IndexOf(":") + 1)
End Sub

Was mache ich falsch? oder muss hier erst noch irgend ein Modul geladen
werden?
 

Lesen sie die antworten

#1 Claus Busch
17/06/2008 - 14:50 | Warnen spam
Hallo Wilpito,

hier sind Realnamen gerne gesehen und erhöhen die Antwortbereitschaft.

Am Tue, 17 Jun 2008 04:59:00 -0700 schrieb wilpito:

ich habe das Problem, das ich in Excel aus einer externen DAtei Strings
einklesen muss. Die Strings haben das Format DAteiname:wert1:wert2:wert3
Abhàngig vom Dateinamen sind die nachfolgenden 3 Werte in unterschiedliche
Zellen einzutragen.
Nachflgende Funktion habe ich aus eienr VBA Applikation zusammengesetzt.

Die Funktion funktioniert so nicht und meldet Laufzeitfehlet 424

Public Sub test()
strText = "Apfelkuchen.txt:100:10:2"
' Fixer Ausschnitt
MsgBox "Anfang = " & strText.Substring(0, 4)
' Der Teil vor dem ersten :
MsgBox "Datei" & strText.Substring(0, strTxt.IndexOf(":"))
' der Teil nach dem ersten :
MsgBox "REST:" & strText.Substring(strTxt.IndexOf(":") + 1)
End Sub



Warum trennst du nicht mit Excel-Bordmitteln? Markiere die Spalte und
gehe auf Daten => Text in Spalten. Gebe dort als Trennzeichen den
Doppelpunkt an.


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Ähnliche fragen