VBA: Spalte A beim Export nebeneinander anzeigen
05.06.2015 21:23:10
Emre
brauche wieder Mal eure Hilfe. Und zwar habe ich eine Tabelle in Excel mit mehreren Spalten. Ich muss aber nur die Spalte A dieser Tabelle nach Notepad++ exportieren. Dazu habe ich den Code auch bereits. Wenn die SPalte A exportiert ist öffnet sich die Datei automatisch, aber nur nicht in Notepad++ sondern im normalen Notepad. Das ändert sich auch nicht, weiß da jemand näheres dazu?
Sub Export()
Dim Datei As String, i As Long, flag As Boolean
Dim zeigen
Datei = Environ("Userprofile") & "\Desktop\Test.txt"
Open Datei For Output As #1
flag = True
i = 1
'keeps going until the end of the file is reacheed
While flag
'go to next cell
i = i + 1
'check if the current row is not hidden
If Not Rows(i).Hidden Then
'check if the current cell has data in it
If Cells(i, 1) "" Then Print #1, Cells(i, 1) Else flag = False
End If
Wend
Close #1
zeigen = Shell(Environ("windir") & "\notepad.exe " & Datei, 1)
End Sub
Mein nächstes Problem ist, die exportierten Werte in Spalte A sollten nicht untereinander, sondern nebeneinander mit einem Semikolon getrennt stehen. Dazu habe ich auch ein Code gefunden, der das aber in Excel macht und dazu noch die erste Zeile mitnimmt, die ich gar nicht brauche.
Sub ph_Transpose()
Dim wks As Worksheet
Dim rngA As Range, i As Long
Set wks = Worksheets.Add
With Tabelle3 'anpassen
On Error Resume Next
With .Range("A:A")
For Each rngA In .ColumnDifferences(.Find("")).Areas
With rngA.Resize(, 1)
i = i + 1
wks.Cells(i, 1).Resize(, .Columns(1).Rows.Count) = _
WorksheetFunction.Transpose(.Columns(1))
wks.Cells(i, 1) = .Cells(1)
End With
Next
End With
End With
End Sub
Gruß Emre