Zellen von Spalte in Zeile kopieren
Hallo zusammen,
Ich musseine liste von Daten sortieren. Ich versuche gerade die verbrauchte Leistung einer Bäckerei zu ermitteln. nach anfrage beim Energieversorger habe ich jetzt ein komplettes Jahr mit der verbrauchten Leistung im 15 minuten Takt bekommen. Das problem ist, dass die ganze latte senkrecht untereinander steht.
also
01.01.2007 00:00 4,3
01.01.2007 00:15 4,7
01.01.2007 00:30 5,2
usw. ich hätte jetzt lieber, wenn die ganze liternei in einer reihe steht, damit ich das ganze auch vernünftig auswerten kann. also etwa so:
00:00 00:15 00:30
01.01.2007 4,3 4,7 5,2
02.01.2007 ......
ist sowas mit einem Makro machbar?
ich brauche bitte dringend hilfe fdafür.
Vielen Dank schonmal, Gruß, eco
Antwort schreiben
Antwort 1 von varginator vom 17.03.2020, 13:21 Options
Hallo eco,
ich gehe mal davon aus, da du es nicht näher beschrieben hast, dass die daten von zelle a1 an nach unten stehen.
Hier mal ein Beispiel:
Die daten werden in der Spalte D bis Anzahl_pro_Tag geschrieben
option explicit
Dim aktdatum As Date
Dim aktzeile As Integer
Dim ausgzeile As Integer
Dim ausgspalte As Integer
Sub trennen()
ausgzeile = 4
ausgspalte = 4
aktzeile = 1
Do Until Cells(aktzeile, 1) = ""
aktdatum = Left(Cells(aktzeile, 1), 10)
Cells(ausgzeile, 3) = aktdatum
Do Until Left(Cells(aktzeile, 1), 10) <> aktdatum
Cells(ausgzeile, ausgspalte) = Mid(Cells(aktzeile, 1), 12, 5)
Cells(ausgzeile + 1, ausgspalte) = Right(Cells(aktzeile, 1), Len(Cells(aktzeile, 1)) - 17)
ausgspalte = ausgspalte + 1
aktzeile = aktzeile + 1
Loop
ausgzeile = ausgzeile + 3
ausgspalte = 4
Loop
End Sub
kann gerne noch verändert werden
Gruß Simon
ps. Löscht bisher noch nicht die bestehenden zellen
Antwort 2 von Casimann vom 19.03.2020, 20:46 Options
Hallo ecolog,
ist denn der 15 Minuten Takt wichtig für dich oder reicht auch der Verbrauchswert pro Tag? Das würde die Tabelle erheblich verkleinern.
Hat man dir wirklich die Daten für das ganze Jahr 2007 in dieser Form geschickt.......grins? Da kann man ja den Verbrauch pro Brot auswerten.
Gruß
Casi
Hallo varginator,
wenn das so funktioniert bin ich echt beeindruckt.
Antwort 3 von Casimann vom 19.03.2020, 21:03 Options
ecolog,
ich bin erst selbst nicht drauf gekommen.
Du kannst doch eine Pivot Tabelle erstellen.
Ich habe mir gerade mal einen Ausschnitt deiner Daten erstellt und eine Pivot Tabelle erstellt. Hat ungefähr eine Minute gedauert !!!
Gruß
Casi
Antwort 4 von Casimann vom 19.03.2020, 21:10 Options
ecolog,
ich bins nochmal.
Wichtig ist, dass die Ursprungsdaten eine Überschrift haben.
Dann schiebst du das Kästchen mit der Datumsüberschrift bei der Pivot-Tabelle in die "Zeile" und das Kästchen mit der Uhrzeit in die "Spalte". In das Feld Daten kommt das Kästchen mit dem Verbrauch.
So wie diese Daten geliefert worden sind, kannst du mit der Pivot-Tabelle quasi alles auswerten was du willst.
.......also unbedingt erstmal so probieren.......
Gruß
Casi
Antwort 5 von varginator vom 20.03.2020, 08:08 Options
Hallo Casimann,
deine Idee mit der Pivot-Tabelle ist nicht schlecht *klatsch*
aber um diese zu verwirklichen muss man zuerst die Zelleninhalte in 3 verschiedene Zellen aufteilen. Sonst kann man keine Pivot-Tabelle erstellen.
Gruß Simon
Antwort 6 von Casimann vom 21.03.2020, 18:47 Options
Hallo varginator,
ich nehme an der erste Wert steht in A1, dann schreibe in
B1 =LINKS(A1;10)
C1 =TEIL(A1;12;5)
D1 =RECHTS(A1;3)
dann runterkopieren und alles wird gut.
Gruß
Casi
Antwort 7 von rainberg vom 22.03.2020, 06:08 Options
Hallo zusammen,
um die Idee von Casi zu verwirklichen, würde ich die Funktion "Text in Spalten" verwenden.
Gruss
Rainer