Thema Datum  Von Nutzer Rating
Antwort
Rot TXT erzeugen
24.03.2023 11:38:36 Mike
NotSolved
24.03.2023 11:54:39 Mase
NotSolved
24.03.2023 17:12:44 Gast01287
NotSolved

Ansicht des Beitrags:
Von:
Mike
Datum:
24.03.2023 11:38:36
Views:
586
Rating: Antwort:
  Ja
Thema:
TXT erzeugen
Hallo zusammen, 
Ich hoffe, jemand kann mir einen Tipp geben.
Beim Ausführen des Makros wird ein Laufzeitfehler 13 (Typenkonflikt) ausgegeben.
Dies kommt dann bei der Codezeile Print #1, Cells(i, 1).Value & " " & Cells(i, 2).Value vor.

Was muss ich ändern, oder habe ich etwas übersehen?
Besten Dank für eure Hilfe.



???????Sub TXT_erzeugen() 

Dim strDateiname As String, strPath As String Dim i As Long, lngZeile As Long strPath = "C:..\" 'Speicherpfad eintragen strDateiname = "txt_dateiname.txt" 'Dateinamen mit Dateiendung eintragen lngZeile = Range("A" & Rows.Count).End(xlUp).Row Open strPath & strDateiname For Output As #1 For i = 1 To lngZeile     Print #1, Cells(i, 1).Value & " " & Cells(i, 2).Value Next i Close #1 End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot TXT erzeugen
24.03.2023 11:38:36 Mike
NotSolved
24.03.2023 11:54:39 Mase
NotSolved
24.03.2023 17:12:44 Gast01287
NotSolved