Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1252to1256
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1252to1256
1252to1256
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Umsortieren von einer Spalte in mehrere Spalten

Umsortieren von einer Spalte in mehrere Spalten
einer
Hallo Leute,
mal wieder bin ich mit meinem Latein am Ende. Ich versuche mir gerade eine halbwegs automatische Möglichkeit zu bauen meine Kontodaten in Excel einzufügen. Ich muss die Kontodaten von meinem Online Banking aus dem Browser per Copy & Paste kopieren, meine Bank ist etwas rückständig was CSV Daten angeht. Wenn ich die HTML Daten aber direkt als Tabelle in Excel einfüge, dann dauert das sehr lange (Excel rechnet bis zu 5 Minuten, bis die Daten dann auch mal als Tabelle auftauchen).
Wenn ich aber nur "Inhalte Einfügen Text", geht es direkt - dann habe ich aber keine Tabellenaufteilung mehr sondern nur eine lange Spalte mit allen Daten untereinander. Da die Daten aber mit einer gewissen Logik untereinander geschrieben werden, habe ich die Hoffnung per Marko oder per Formel, diese lange Spalte in mehrere Spalten aufteilen zu können, so dass ich am Ende eine Tabelle mit mehrer Spalten habe, in der pro Zahlungsvorgang eine Zeile "verbraucht" wird.
Die Spalte nach "Inhalte einfügen" sieht so aus (man beachte, dass pro Zahlungsvorgang die Anzahl für die Betreff Zeilen der Bank variieren kann - manchmal sind es nur 3, es können aber bis zu 10 sein).
In Klammern habe ich immer eine kurze Erklärung geschrieben.
14.03.2012 (Buchungstag)
KUNDE GMBH (nach dem Buchungstag kommt immer der Sender / Empfänger des Geldes)
BETREFF TEXT 1 (diverser Betreff Text - die Anzahl der Zeilen kann variieren)
BETREFF TEXT 2 (diverser Betreff Text - die Anzahl der Zeilen kann variieren)
BETREFF TEXT 3 (diverser Betreff Text - die Anzahl der Zeilen kann variieren)
14.03.2012 (Valutatag)
1.000,00+ (Betrag - der Eintrag endet IMMER mit dem Betrag = was danach kommt gehört in die nächste Zeile als neuer Zahlungsvorgang)
13.03.2012 (Buchungstag - Vorgang 2 - soll also in die nächste Zeile)
KUNDE2 GMBH
BETREFF TEXT 1 (diverser Betreff Text - die Anzahl der Zeilen kann variieren)
BETREFF TEXT 2 (diverser Betreff Text - die Anzahl der Zeilen kann variieren)
BETREFF TEXT 3 (diverser Betreff Text - die Anzahl der Zeilen kann variieren)
BETREFF TEXT 4 (diverser Betreff Text - die Anzahl der Zeilen kann variieren)
13.03.2012 (Valutatag)
595,00- (Betrag - der Eintrag endet IMMER mit dem Betrag = was danach kommt gehört in die nächste Zeile als neuer Zahlungsvorgang)
Hat da jemand von euch eine Idee?
Vielen Dank,
Nontacky
AW: Umsortieren von einer Spalte in mehrere Spalten
16.03.2012 23:26:16
einer
Hi,
vllt. so?
Sub multiTranformer()
    Dim sp, lz, ze As Long
    Dim sh As Worksheet
    Dim rng As Range
    Set sh = ThisWorkbook.Sheets("Tabelle1")
    With sh
        lz = .Cells(.Rows.Count, 1).End(xlUp).Row
        Set rng = .Range("A2:A" & lz)
        sp = 2: ze = 2
        For Each c In rng
            If IsNumeric(c) = False Then
                If IsDate(c) Then
                    .Cells(ze, sp).NumberFormat = "dd.mm.yyyy"
                End If
                .Cells(ze, sp) = c
                sp = sp + 1
            Else
                .Cells(ze, sp).NumberFormat = "0.00"
                .Cells(ze, sp) = c * 1
                ze = ze + 1
                sp = 2
            End If
        Next
    End With
End Sub
Code eingefügt mit http://vbahtml.origo.ethz.ch VBA in HTML 1.2
Ergebnis:
 ABCDEFGHI
214.03.201214.03.2012KUNDE GMBHBETREFF TEXT 1BETREFF TEXT 2BETREFF TEXT 314.03.20121000,00 
3KUNDE GMBH13.03.2012KUNDE2 GMBHBETREFF TEXT 1BETREFF TEXT 2BETREFF TEXT 3BETREFF TEXT 413.03.2012-595,00
4BETREFF TEXT 1        
5BETREFF TEXT 2        
6BETREFF TEXT 3        
714.03.2012        
81.000,00+        
913.03.2012        
10KUNDE2 GMBH        
11BETREFF TEXT 1        
12BETREFF TEXT 2        
13BETREFF TEXT 3        
14BETREFF TEXT 4        
1513.03.2012        
16595-        
17         

Jetzt kannst Du die Spalte A noch löschen, ich habe sie zur Kontrolle drin gelassen.
Gruß
Jochen
Anzeige
AW: Umsortieren von einer Spalte in mehrere Spalten
21.03.2012 10:00:28
einer
Hallo Jochen,
das funktioniert sehr gut. Jetzt habe ich natürlich eine Sache nicht genug präzisiert. Die Beträge sollen am Ende immer in der gleichen Spalte landen, so dass ich sie summieren kann. Im besten Fall direkt in die Spalte nach dem ersten Datum und danach der ganze Betreff Text, etc.
Kriegst Du das auch hin?
Vielen Dank
AW: Umsortieren von einer Spalte in mehrere Spalten
21.03.2012 10:07:45
einer
Hallo Jochen,
eine weitere Sache ist mir noch aufgefallen. In den Betreff Zeilen können manchmal auch Zahlen stehen, manche Kunden geben da Referenznummern an, ohne dass wir danach fragen. Sobald so eine Zahl im Betreff vorkommt, verruscht die automatische Aufteilung von Dir.
Kann man das lösen, oder ist das damit nicht mehr machbar?
Viele Grüße,
Nontacky
Anzeige
AW: Umsortieren von einer Spalte in mehrere Spalten
21.03.2012 17:57:33
einer
Hallo
ja natürlich läßt sich das lösen.
z.B. so:
Sub multiTranformer()
 Dim sp, lz, ze As Long
 Dim sh As Worksheet
 Dim rng As Range
 Set sh = ThisWorkbook.Sheets("Tabelle1")
 With sh
 lz = .Cells(.Rows.Count, 1).End(xlUp).Row
 Set rng = .Range("A2:A" & lz)
 sp = 4: ze = 2
 For Each c In rng
 If IsNumeric(c) = False Then
 If IsDate(c) Then
 .Cells(ze, sp).NumberFormat = "dd.mm.yyyy"
 End If
 .Cells(ze, sp) = c
 sp = sp + 1
 Else
 If Right(CStr(c), 1) = "+" Or Right(CStr(c), 1) = "-" Then
 .Cells(ze, 3).NumberFormat = "0.00"
 .Cells(ze, 3) = c * 1
 ze = ze + 1
 sp = 4
 Else
 .Cells(ze, sp).NumberFormat = "0.00"
 .Cells(ze, sp) = c * 1
 ze = ze + 1
 sp = 4
 End If
 End If
 Next
 End With
End Sub
[size=9]Code eingefügt mit [url=http://vbahtml.origo.ethz.ch]VBA in HTML 1.2[/url] ([url=http://vbahtml.origo.ethz.ch] Hilfe zum Programm)[/url][/size]
Aber dabei rutscht der gewünschte Wert in die Spalte 2 oder 3 (ich hab sie mal zur besseren Dartstellung in die Spalte drei gelegt. und der Rest wird dann in Spalte 4 ff abgelegt. Grund ist natürlich die Tatsache, dass es völlig unbekannt ist wieviele Spalten jeder "zerpfückte Datensatz" benötigt.
Gruß
Jochen
Anzeige
AW: Umsortieren von einer Spalte in mehrere Spalten
22.03.2012 11:27:22
einer
noch ein wenig mehr... 
Sub multiTransform()
Dim sp, lz, ze As Long
Dim sh As Worksheet
Dim rng As Range
Set sh = ThisWorkbook.Sheets("Tabelle1")
With sh
lz = .Cells(.Rows.Count, 1).End(xlUp).Row
Set rng = .Range("A2:A" & lz)
sp = 3: ze = 2
For Each c In rng
If IsNumeric(c) = False Then
If IsDate(c) Then
.Cells(ze, sp).NumberFormat = "dd.mm.yyyy"
End If
.Cells(ze, sp) = c
sp = sp + 1
Else
If Right(CStr(c), 1) = "+" Or Right(CStr(c), 1) = "-" Then
.Cells(ze, 3).NumberFormat = "0.00"
.Cells(ze, 3) = c * 1
Else
.Cells(ze, sp).NumberFormat = "0.00"
.Cells(ze, sp) = c * 1
End If
ze = ze + 1
sp = 3
End If
Next
End With
sh.Range("C2:C65536").Copy _
Destination:=sh.Cells(2, sh.Range("C2").CurrentRegion.Columns.Count + 4)
sh.Columns(3).Delete
End Sub

Gruß
Jochen
Anzeige
AW: Umsortieren von einer Spalte in mehrere Spalten
21.03.2012 10:00:33
einer
Hallo Jochen,
das funktioniert sehr gut. Jetzt habe ich natürlich eine Sache nicht genug präzisiert. Die Beträge sollen am Ende immer in der gleichen Spalte landen, so dass ich sie summieren kann. Im besten Fall direkt in die Spalte nach dem ersten Datum und danach der ganze Betreff Text, etc.
Kriegst Du das auch hin?
Vielen Dank
AW: Umsortieren von einer Spalte in mehrere Spalten
21.03.2012 10:00:35
einer
Hallo Jochen,
das funktioniert sehr gut. Jetzt habe ich natürlich eine Sache nicht genug präzisiert. Die Beträge sollen am Ende immer in der gleichen Spalte landen, so dass ich sie summieren kann. Im besten Fall direkt in die Spalte nach dem ersten Datum und danach der ganze Betreff Text, etc.
Kriegst Du das auch hin?
Vielen Dank
Anzeige

310 Forumthreads zu ähnlichen Themen

Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Anzeige
Zeilenmerkmale in Spalten umwandeln
MG_Learning

Hallo zusammen!
Ich habe keine Ahnung, wie ich aus folgender Tabellenstruktur: Beispiel:
A B C
London 20 Kinos
London 50 Gaststätten
London 10 Einkaufscentren
Paris 18...
17.08.2008 18:31:50
Thread-ID: 1002449
4 Beiträge
Jede 2te Zeile in eine Spalte kopieren
Eddie

Guten Morgen @ all
Ich habe mal wieder ein kleines problem :-)
Ich würde gerne Daten, die alle in einer Spalte sind auteilen.... dazu soll entweder der 1,3,5,7.... oder 2,4,6,8 ... Wert immer in die danebenliegende Spalte kopiert werden
IST:
Hallo
Hello
Gut
Good
...
20.08.2008 07:52:00
Thread-ID: 1003065
6 Beiträge
Anzeige
Letzte gefüllte Zeile in einem Feld anzeigen
Hendrik

Hallo zusammen,
bei einer Exceltabelle, die aus ca. 40 freien Zeilen besteht, die sich über die Zeit füllen, soll in Zeile 41 immer die Zahl der letzten gefüllten Zeile angezeigt werden.
Ist das möglich?
Danke im voraus!
Hendrik
28.08.2008 18:36:42
Thread-ID: 1005564
4 Beiträge
nur eine der Spalten darf gefüllt sein
Simon

Hallo,
ich habe glaube ich eine einfache Frage, komme aber nicht drauf Sie selbst zu lösen:
ich habe 4 Spalten: ja; nein; mehr Menge; weniger Menge
dahinter möchte ich eine 5te Spalte Kontrolle setzen. In dieser soll eine Fehlermeldung erscheinen falls mehr als eine Spalte ausgefüll...
01.09.2008 16:15:00
Thread-ID: 1006502
8 Beiträge
Spalten in Zeilen anhängen
Jörg

Hallo zusammen,
in einer Tabelle mit ~1000 Artikeln in Spalte A stehen jeweils in den Spalten B-M die 12 zum Artikel gehörenden Monatswerte des Verbrauchs.
Ich brauche diese Daten jetzt so angeordnet, dass weiterhin alle Artikel in Spalte A stehen, jedoch die einzelnen Monatswerte unter...
01.09.2008 18:03:42
Thread-ID: 1006570
11 Beiträge
Zeilenhöhe und Spaltenbreite in cm - Makro anlegen
Sandra

Wie lege ich ein Makro an - für oben genannte Funktion?
DANKE!!!
02.09.2008 13:53:00
Thread-ID: 1006781
9 Beiträge
Häufigkeit einer Uhrzeit aus einer Spalte
wolfgang

Hallo Leute
Ich habe eine Spalte mit einer menge Uhrzeiten und möchte die Häufigkeit einer Uhrzeit ( wie oft ist eine eintrag vorhanden)zum Beispiel zwischen 08:00 und 17:00!! Ich weiß das für euch sicher ein leichtes ist jemanden wie mir zu helfen!
Schon jetzt besten Dank für eure Mühe...
02.09.2008 14:57:58
Thread-ID: 1006808
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
3
3
5
2
3
7
10
8
8
1
3
3
1
1
2
9
2
2
2
4
4
4
2
5