ich habe eine Tabelle mit den Spalten A-H und einer unbestimmten Anzahl an Zeilen.
Ich möchte nun die Spalten A-F, bis zu letzten Zeile als Txt Datei speichern oder alternativ in ein
neues Blatt kopieren.
Bei meiner Recherche bin ich auf folgendes Makro gekommen, was mir sehr gut gefallen hat.
Bei der Ausführung werden allerdings nur zwei Zeilen kopiert und gespeichert. Kann mir jemand
behilflich sein was hier geändert werden muss.
Vielen Dank
George
Nachfolgend der Code aus dem Forum
Sub export_selected_Range_and_save_as_TXT()
'(C) by Ramses
'Exportiert einen ausgewählten Bereich in ein zu definierendes Textfile
Dim i As Integer, n As Integer, maxExpCol As Integer, QE As Integer
Dim StartRow As Integer, StartCol As Integer, selRow As Integer, selCol As Integer
Dim myC As Range
Dim expFolder As String, expFileName As String
Dim myDiv As String, tmpExpText As String, expText As String
'Maximal zu exportierende Spalten
'Dieser Parameter ist anzupassen, um unterschiedliche Bereich
'in ein einheitliches Exportformat zu bringen
maxExpCol = 25
'Default Pfad incl abschliessendem Backslash
expFolder = "C:\Temp\"
'Standard Name für TextExportFile
expFileName = "Koordinaten.txt"
'Ab hier keine Änderungen mehr vornehmen
'Trennzeichen für das Textfile
myDiv = ";"
If Selection.Columns.Count > maxExpCol Then
MsgBox "Maximal zu exportierende Spaltenzahl überschritten"
Exit Sub
End If
'Starbereich festlegen
StartRow = Selection.Range("A1").Row
StartCol = Selection.Range("A1").Column
'Scheifenparameter initialisieren
selRow = Selection.Rows.Count
selCol = Selection.Columns.Count
For i = StartRow To StartRow + selRow
tmpExpText = ""
For n = StartCol To StartCol + selCol
tmpExpText = tmpExpText & Cells(i, n).Text & myDiv
Next n
'Exportfile auf erforderliche Länge bringen
If Len(tmpExpText) "" Then
QE = MsgBox("Sollen die Daten an die existierende Datei angehängt werden," & vbCrLf & _
"oder soll die Datei überschrieben werden ?" & vbCrLf & vbCrLf & _
"JA = Anhängen" & vbCrLf & "NEIN = Datei überschreiben" & vbCrLf & "ABBRECHEN = _
Abbrechen", _
vbYesNoCancel + vbCritical + vbDefaultButton1, "Exportverhalten definieren")
If QE = vbCancel Then Exit Sub
If QE = vbYes Then
'Daten anhängen
Open expFileName For Append As #1
Print #1, expText
Close #1
Else
'Daten überschreiben
Open expFileName For Output As #1
Print #1, expText
Close #1
End If
Else
'Daten erstmalig schreiben
Open expFileName For Output As #1
Print #1, expText
Close #1
End If
MsgBox "Daten exportiert"
End Sub