Makro Ändern-> Export txt der Markierung
10.09.2013 11:12:30
Fabio
über das Netz habe ich das Makro (siehe unten) gefunden. Der Exportiert die Spalte 2 und 4. Kann mir das Makro bitte jemand abändern, so das er nicht sie Spalte 2 und 4 exportiert, sondern den Bereich, den ich markiert habe?
Das wäre Klasse!
Danke sehr
Fabi
Sub Dateiexport()
'falls die Zieldatei noch nicht vorhanden ist,
'wird sie erstellt
Dim Datei As String, Text As String
Dim Zeile As Long
Dim zeigen
On Error GoTo Fehler
'Zieldatei festlegen
Datei = ThisWorkbook.Path & "\" & ThisWorkbook.Name & ".txt"
Open Datei For Output As #1 'Zieldatei öffnen
For Zeile = 1 To 10
'reinschreiben
Print #1, Cells(Zeile, 2) & " " & Cells(Zeile, 4)
Next Zeile
Close #1 'Zieldatei schließen
zeigen = Shell(Environ("windir") & "\notepad.exe " & Datei, 1)
Exit Sub
Fehler:
Close #1
MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
& "Beschreibung: " & Err.Description _
, vbCritical, "Fehler"
End Sub