Weiter unten konnte mir soweit geholfen werden das daß Makro zumindestens schoneinmal läuft.
Jetzt wird aber die .txt Datei in Excel erzeugt oder die Pfadangabe ist nicht korrekt. Ich suche schon seit Stunden eine Lösung für das Problem im web. Ich möchte einfach nur einen Bereich einer Tabelle in eine stink normale txt Datei exportieren. Folgendes Makro habe ich aus der Faq:
Sub Export()
Dim rng As Range
Dim iFile As Integer, iRow As Integer, iCol As Integer
Dim sFile As String, sTxt As String
Set rng = Range("A1").CurrentRegion
sFile = Application.Path & "\testtext.txt"
iFile = FreeFile
Open sFile For Output As iFile
For iRow = 1 To rng.Rows.Count
For iCol = 1 To rng.Columns.Count
sTxt = sTxt & Cells(1, 1).Value & vbTab
Next iCol
sTxt = Left(sTxt, Len(sTxt) - 1)
Print #iFile, sTxt
sTxt = ""
Next iRow
Close iFile
Workbooks.OpenText _
FileName:=sFile, _
DataType:=xlDelimited, _
Tab:=True, _
semicolon:=False, _
comma:=False, _
Space:=False, _
other:=False
MsgBox "Weiter"
ActiveWorkbook.Close savechanges:=False
Kill sFile
End Sub
--------------
Es wäre wirklich super wenn mir einer helfen könnte
gruß
Carsten *deramverzweifelnist*