Sortierung mit vorangestellten verbundenen Zellen

[Xani]

Servus Community,

ich habe mal wieder ein Problem, an dem ich mir die Zähne ausbeiße. 

Ich habe in Spalte A mehrere Zellen zusammengefasst für das jeweilige Gerät, in diesem Feld steht der Gerätename.

In den nachfolgenden Spalten sind mehrere Positionen mit Informationen zu den Geräten.

Problem ist, dass immer die neuen Geräte unten angefügt werden und ich sie nicht alphabetisch sortieren kann, da die Zellen in A verbunden sind. 

Welche Lösung gibt es dafür ? 

Ich habe eine Beispiel Datei beigefügt. 

Vielen Dank für Eure Hilfe.

Schöne Grüße

Xani

[MisterBurns]

Welche Lösung gibt es dafür ? 

Ganz ganz ganz ganz einfach. Weg mit den verbundenen Zellen. So baut man keine Tabelle auf!

Ich habe eine Beispiel Datei beigefügt. 

Hast du nicht.

[Elex]

Hi
 
Ich verstehe schon deinen Versuch der Nachfrage nach einer andern Lösung.
Aber die Lösung ist wie du vermutlich schon befürchtet hast.
„Verzichte auf Verbundene Zellen“
 
Gruß Elex

[Xani]

Oops,  vergessen hochzuladen.

Ich weiß, dass es für den Aufbau blöd ist, Problem: Das ist meine Vorgabe vom Vertrieb. Vertrieb vs. Sinnvoll....

Alles in eine lange Zeile wurde definitiv abgelehnt, da es zu unübersichtlich ist. 

[MisterBurns]

Mach eine Hilfsspalte, wo in jeder Zeile das zugehörige Gerät steht. Nach dieser kannst du sortieren und sie bei Bedarf ein- und ausblenden.

[Jockel]

...

Ich weiß, dass es für den Aufbau blöd ist, Problem: Das ist meine Vorgabe vom Vertrieb. Vertrieb vs. Sinnvoll....

Alles in eine lange Zeile wurde definitiv abgelehnt, da es zu unübersichtlich ist.

Hallo, der "Vertrieb" scheint keine Ahnung zu haben, wie man Tabellen aufbaut, um sie dann sinnvoll auszuwerten. Wenn das wirklich der Fall ist, und sich das durch die Vertriebsauswertung zieht, dann gute Nacht... Hier an dieser Tabelle wird gegen ziemlich jeden Regel der Datenverarbeitung verstoßen...

[Kuwer]

Hallo Xani,

per VBA ginge es z.B. so:

Sub SortierenVerbundeneZellenInA()
  Dim lngZ As Long
  With Cells(1).CurrentRegion
    For lngZ = 1 To .Rows.Count Step 6
      .Cells(lngZ, 1).Resize(6).UnMerge
      .Cells(lngZ, 1).Resize(6).Value = .Cells(lngZ, 1).Value
    Next lngZ
    .Sort Key1:=.Columns(1), Order1:=xlAscending, Header:=xlNo
    For lngZ = 1 To .Rows.Count Step 6
      .Cells(lngZ + 1, 1).Resize(5) = ""
      .Cells(lngZ, 1).Resize(6).Merge
    Next lngZ
  End With
End Sub

Gruß Uwe

[Xani]

Vielen Dank für Eure Hilfe. Ich versuche es noch mal mit einem klärenden Gespräch....