Inhalte per VBA exportieren : Format
22.02.2006 10:12:24
viktor
Also ich habe einen wunderbaren code von Ramses, einem eifrigen Boardmitglied bekommen, der mir daten (Koordinaten) aus Excel exportiert. Dafür bin ich sehr dankbar, aber ich wollte den Code noch meinen Bedürfnissen anpassen. Vielleicht kann mir da jemand helfen, teilweise habe ich es ja schon geschafft:
StartRow = Selection.Range("A1").Row
StartCol = Selection.Range("A1").Column
'Schleifenparameter
selRow = Selection.Rows.Count
selCol = Selection.Columns.Count
For i = StartRow To StartRow + selRow
tmpExpText = " N "
For n = StartCol To StartCol + selCol - 1
tmpExpText = tmpExpText & Cells(i, n).Text & myDiv
Next n
'Exportfile auf erforderliche Länge bringen
If Len(tmpExpText) < maxExpCol Then
For n = Len(tmpExpText) To maxExpCol
tmpExpText = tmpExpText & myDiv
Next n
End If
expText = expText & tmpExpText & vbCrLf
Next i
Dieser Code bringt mir das folgende Ergebnis: (8 leerzeichen vor und 6 nach "n"; wird im forum nicht dargestellt)
N -45919,09 237271,93
N -45888,55 237281,97
N -45829,05 237284,95
N -45835,08 237270,95
N -45825,10 237275,22
N
Ich bräuchte aber folgende Ausgabe:(8 leerzeichen vor und 6 nach "n"; wird im forum nicht dargestellt)
Anfang****
1 -45919,09 237271,93
2 -45888,55 237281,97
3 -45829,05 237284,95
4 -45835,08 237270,95
5 -45825,10 237275,22
Also erstens die Kopfzeile (Anfang****), dann anstatt immer nur "N" eine fortlaufende Zeilennummer, und das letzte N (wo rechts keine Koordinaten mehr sind) weg.
Das "N" habe ich jetzt nur so als Verdeutlichung hineingenommen, mir ist schon klar daß man mit dem jetzt statischen String nicht das gewünschte Ergebnis erreichen kann.
Was müsste man ändern? Ich bin für jede Hilfe sehr sehr dankbar!!!
Schönen Tag,
Viktor