Hallo zusammen,
ich möchte gern Werte aus meiner Tabelle an eine bestehende Textdatei anfügen.
Bei meinem Code meldet Excel immer Dateinummer falsch.
EDatei = ADMALLG.Range("O226").Value & ADMALLG.Range("O241").Value
Trennzeichen = ";"
'D = FreeFile
Open EDatei For Output As #D
'Allgemeine Daten einsetzen
For i = 12 To last_cell
If WSPDat.Cells(i, 5).Value "" And WSPDat.Cells(i, 8).Value = Marke Then
strTemp = i & Trennzeichen
For j = 5 To 19
strTemp = strTemp & WSPDat.Cells(i, j).Value & Trennzeichen
Next j
Print #1, strTemp
strTemp = ""
End If
Next i
Close #D
Was muss ich tun damit es funktioniert?
Danke im Voraus
Steffen Schmerler