hier meine beispiel-datei, das reicht im grunde genommen schon
aus, außer, daß ich gerne eine spalte hätte für ausgaben und
eine für einnahmen (im moment sind alle umsätze in einer
spalte) und der text in der betreffzeile besteht aus mehreren
tabs was ursprünglich wohl Absätze gewesen sind beim
online-banking.
http://www.badongo.com/file/10970605
Hi Karsten,
es ist nicht erkennbar ob die Daten entstanden sind als du einfach die csv geöffnest hast und die Tabelle war so da, oder ob du da manuell im Textkonvertierungsassistenten etwas tum mußtest.
Dieses Manuelle hättest du dir sparen können wenn du mir eine unverexcelte csv Datei geschickt hättest.
Du brauchst ein zweites Tabellenblatt, hinter dem vorhandenen, so daß dein vorhandenes das Blatt1 ist und das neue Blatt2.
Beim Text habe ich nur den Teil genommen der vor den mehrfach Leerzeichen stand, Sonderzeichen wie Tabs waren nicht erkennbar im Text. Anzunehmenderweise hast du bzw. der Konvertierer sie entfernt.
So sieht ja Blatt1 aus:
Tabellenblatt: C:\DOKUME~1\ICHALS~1\LOKALE~1\Temp\[CHK\_147.xls]!CHK\_147
│ A │ B │ C │
──┼───────────┼─────────────────────────────────────────────────┼─────────┤
1 │ 10.6.2008 │ HERR HANS PETER │ 550 │
──┼───────────┼─────────────────────────────────────────────────┼─────────┤
2 │ 4.6.2008 │ KARTE 0 AUSZAHL GELDAUTOMAT-AUSLAND │ -37,79 │
──┼───────────┼─────────────────────────────────────────────────┼─────────┤
3 │ 3.6.2008 │ HALLO LIFE VERSICHERUNG ZAHLUNGSBELEG 105655536 │ -109,27 │
──┴───────────┴─────────────────────────────────────────────────┴─────────┘
Zahlenformate der Zellen im gewählten Bereich:
A1:A3
haben das Zahlenformat: T.M.JJJJ
B1:B3,C1:C3
haben das Zahlenformat: Standard
Nach Durchlauf des Makros sieht dann Blatt2 so aus:
Tabellenblatt: C:\DOKUME~1\ICHALS~1\LOKALE~1\Temp\[CHK\_147.xls]!Tabelle1
│ A │ B │ C │ D │ E │
──┼──────────┼──────┼────────┼────────┼─────────────────────────────────────────────────┤
1 │ Datum │ Plus │ Minus │ Ist │ Vorgang │
──┼──────────┼──────┼────────┼────────┼─────────────────────────────────────────────────┤
2 │ 01.01.08 │ │ │ 12,35 │ Übertrag │
──┼──────────┼──────┼────────┼────────┼─────────────────────────────────────────────────┤
3 │ 10.06.08 │ 550 │ │ 562,35 │ HERR HANS PETER │
──┼──────────┼──────┼────────┼────────┼─────────────────────────────────────────────────┤
4 │ 04.06.08 │ │ 37,79 │ 524,56 │ KARTE 0 AUSZAHL GELDAUTOMAT-AUSLAND │
──┼──────────┼──────┼────────┼────────┼─────────────────────────────────────────────────┤
5 │ 03.06.08 │ │ 109,27 │ 415,29 │ HALLO LIFE VERSICHERUNG ZAHLUNGSBELEG 105655536 │
──┴──────────┴──────┴────────┴────────┴─────────────────────────────────────────────────┘
Zahlenformate der Zellen im gewählten Bereich:
A1:A5
haben das Zahlenformat: TT.MM.JJ
B1:B5
haben das Zahlenformat: Standard
C1:C5,D1:smiley:5,E1:E5
haben das Zahlenformat: 0,00
Tabellendarstellung erreicht mit dem Code in FAQ:2363
Alt+F11, Einfügen–Makro, Code reinkopieren, Editor schließen.
Makrostart durch Extras–Makro–Makro…
Option Explicit
'
Sub Konto()
Dim Zei1 As Long, Zei2 As Long, wks2 As Worksheet, Dummy() As String
Set wks2 = Worksheets(2)
wks2.Columns("C:E").NumberFormat = "0.00"
wks2.Columns("A:A").NumberFormat = "dd/mm/yy"
With Worksheets(2)
.Range("A1:E1") = Split("Datum Plus Minus Ist Vorgang")
.Range("A2") = Format("01.01.2008", "dd/mm/yy")
.Range("E2") = "Übertrag"
.Range("d2") = 12.35
End With
Zei2 = 3
With Worksheets(1)
For Zei1 = 1 To .Range("A" & Rows.Count).End(xlUp).Row
wks2.Cells(Zei2, 1) = .Cells(Zei1, 1)
Dummy = Split(.Cells(Zei1, 2), " ")
wks2.Cells(Zei2, 5) = Dummy(0)
wks2.Cells(Zei2, 2 - (.Cells(Zei1, 3)
Gruß
Reinhard