Hallo,
ich benutze ein Makro, welches mir den inhalt der Spalten bis zum Ende der Zeile in eine Textdatei mit Trennzeichen exportiert
Sub ZuordnungErstellenAlsTextDatei()
Dim lngRow As Long ' Zeilenzähler
Dim lngLastRow As Long ' genutzte Zeilenzahl
Dim intColumn As Integer ' Spaltenzähler
Dim strPfad As String ' Pfad zur Datei
Dim strName As String ' Name der Textdatei
Dim strValue As String ' temporäre Aufnahme der Werte einer Zeile
strPfad = ActiveWorkbook.Path & "\"
strName = "Zuordnung.txt"
Close
' Sheets("Hilfstabelle").Select
Open strPfad & strName For Output As #1
With ActiveSheet
lngLastRow = .Cells(Rows.Count, 1).End(xlUp).Row
'For lngRow = 3 To lngLastRow
For lngRow = 3 To lngLastRow
'For intColumn = 1 To Cells(lngRow, 1).End(xlToRight).Column
For intColumn = 1 To Cells(lngRow, 1).End(xlUp).Column
MsgBox strValue
Next
Print #1, strValue
strValue = ""
Next lngRow
End With
Close
End Sub
Nun möchte ich gerne, nur vereinzelnde Spalten exportieren.
Zum Beispiel Spalte A und C jeweils bis zum Ende mit Trennzeichen getrennt
Leider kann ich keine gescheite Lösung finden, und meine VB Kenntisse sind noch sehr dürftig.
Vielleicht kann mir jemand bitte bei meinen Anliegen helfen.
Besten Dank!
|