Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1192to1196
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Spalten exportieren

Spalten exportieren
George
Hallo liebe Forumsteilnehmer,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Spalten exportieren
16.01.2011 21:22:24
Siegor
Hallo,
nimm http://www.asap-utilities.com damit kannst Du in viele Formate exportieren und hast noch eine Fülle von weiteren Funktionen.
Gruß
Siegor
AW: Spalten exportieren
16.01.2011 21:48:08
George
Hi Siegor,
vielen Dank für den Hinweiß. Dieses Add in war mir nicht bekannt. Werde ich mich auf jeden Fall näher anschauen. Ich benötige allerdings für dieses Problem ein reine VBA Lösung. Vielen Dank nochmal.
Gruss
George
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige