VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: Emre	Datum: 03.06.2015 21:45:53	Views: 1074	Rating:	Antwort:
Thema: VBA und Regulärer Ausdruck
Also mein Code ist der hier: Sub Export() Dim flag As Boolean Dim i As Integer 'open the file for writing Open "C:\Users\User\Desktop\Test.txt" For Output As #4 flag = True i = 2 'keeps going until the end of the file is reacheed While flag = True 'check if the current cell has data in it If Cells(i, 1) <> "" Then 'write the data to the file Write #4, Cells(i, 1) 'go to next cell i = i + 1 Else 'if the last row has been reached exit the loop flag = False End If Wend 'close the file Close #4 End Sub hab den im Internet gefunden. Wie gesagt ist alles in Notepad und ich weiß nicht wie ich das zu Notepad++ umändern soll.

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