Office: Excel Sortierung mehrerer Datensätze aus Zeilen in neue Spalten

Hallo liebes Forum,

dies ist mein erster Beitrag hier und ich hoffe dass ich meine Frage klar genug formulieren kann.

Ich habe das Problem, dass ich von einem Gerät eine Excel Liste bekomme, bei der verschiedene Messergebnisse zu einem Gerät (siehe Spalte A (Inventarnummer)) untereinander geschrieben werden. Mein Problem ist, dass ich in dieser Form die Daten nicht weiter verarbeiten kann. Die Daten müssen pro Gerät in einer Zeile stehen. Ich habe das auf einem Screenshot einmal aufgemalt.

Gibt es eine einfache Lösung um die Zeilen, die die gleiche Inventarnummer haben, einfach hintereinander zu sortieren? Wichtig wäre auch dass diese Spalten nach Ihrer Messart richtig sortiert werden, da nicht jedes Gerät gleich gemessen wurde. (Bei manchen Geräten wurde zum Beispiel nur ein Isolationswiderstand gemessen, aber nichts anderes. Bei anderen gibt es 3 gemessene Werte, wiederum bei anderen 4, etc...) Ich bräuchte also jeweils eine Spalte für RISO, UISO, GA, usw. in die dann je nach Vorhandensein einsortiert wird, oder eben nicht.

Ich wäre für jede Art von Hilfe wirklich sehr Dankbar, da mein Dokument 500 Zeilen hat, was per Hand zu sortieren sehr lange dauern würde.

Liebe Grüße
Flo

Hier noch der Screenshot in groß: http://i.imgur.com/A2G4B4z.png

 

Hi,

besser wäre es, wenn du anstelle eines Bildes die Mappe hochlädst, denn du hast ja schon die Zeit investiert sie zu erstellen - mit einem Bild kann Excel leider nichts anfangen.

Bis später,
Karin

 

Hallo Karin,

vielen Dank für deine schnelle Antwort. Im Anhang findest du meine Mappe!

Liebe Grüße
Flo

 

Hi Flo,

versuche es mal mit diesem Makro:

Code:

Sub Transponieren()
   Dim lngZeile As Long
   Dim lngStart As Long
   Dim intSpalte As Integer
   intSpalte = 9
   lngStart = 1
   Dim arrWerte
   Application.ScreenUpdating = False
   For lngZeile = 1 To IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
      If Cells(lngZeile, 1) = Cells(lngZeile + 1, 1) Then
         ReDim arrWerte(0 To 2)
         arrWerte = Range(Cells(lngZeile + 1, 4), Cells(lngZeile + 1, 6))
         Cells(lngStart, intSpalte).Resize(, 3) = arrWerte
         Range(Cells(lngZeile + 1, 2), Cells(lngZeile + 1, 8)).ClearContents
         intSpalte = intSpalte + 3
         Erase arrWerte
      Else
         intSpalte = 9
         lngStart = lngZeile + 1
      End If
   Next lngZeile
   Range(Cells(1, 3), Cells(lngZeile, 3)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
   Application.ScreenUpdating = True
End Sub

Bedenke aber, dass es einige Zeit dauert, bis alle Daten umgeschrieben sind.

Bis später,
Karin

 

Hallo Karin, vielen Dank für deine Hilfe! Das klappt auch fast, nur sortiert das Skript die Werte nicht richtig untereinander. (Bspw. die 525 V sollten in der Theorie immer untereinander stehen.

 

Hi,

in deinem Bild war so eine Forderung nicht ersichtlich - dort ging es nur darum, die mehrfachvorhandenen Zeilen in Spalten hintereinander aufzuführen.

Bis später,
Karin