Office: (Office 2016) Hilfe bei Formelfindung

Hallo,
ich habe folgende Probelm:
In einer Tabelle steht zB. bei

A2 Huber und dann in B2, E2 usw. ein "X"
A3 Müller und bei C3 und H3 ein "X"

Die Stpalten B, F, G und Z haben Name zu. Raum 100. Raum 412.

Jetzt möchte ich gerne in einem neunen Tabellenblatt es so sortieren lassen, dass ich zum Schluss eine Liste habe wo steht:

Huber - Raum 100, Raum 103, Raum 312....
Müller - Raum 101, Raum 106, Raum 344.....

Gibt es hierfür eine Formel?




Vielen lieben Dank
Maria

 

Moin Maria,
es gibt dafür sicher eine Formel, ich meine mich an ein Stichwort entpivotisieren zu erinnern. Per VBA sind es knappe 20 Zeilen, die Du per Rechtsklick auf den Tabellenreiter > Code anzeigen einfügen kannst. Der Code schreibt die Raumnutzung in die selbe Tabelle ab Spalte J (definiert in der Integer s, wenn Du mehr Räume hats, kannst Du dort anpassen). Die Anzahl der Nutzer wird in der Spalte A ermittelt und Du kannst beliebig viele hinzufügen.

Viel Erfolg!

Option Explicit
Sub Raumnutzung()
Dim a As Integer, b As Integer, s As Integer, z As Integer
z = Me.UsedRange.Rows.Count
For a = 1 To z
s = 10
For b = 2 To 6
If Cells(a, b) = "x" Then
Cells(a, s) = Cells(1, b).Value
s = s + 1
End If
Next
Next
End Sub

 

Hola,
=WENNFEHLER(INDEX(Tabelle1!$B$1:$H$1;AGGREGAT(15;6;SPALTE(Tabelle1!$B$1:$H$1)-1/((Tabelle1!$A$2:$A$3=$A2)*(Tabelle1!$B$2:$H$3="x"));SPALTE(A1)));"")
Gruß,
steve1da

 

Moin Steve,
ich wusste doch, dass das auch ohne VBA geht ... Habe aber noch eine etwas verbesserte Version gebastelt, die auf jegliche Änderung bei den Xen automatisch reagiert: s muss im Bedarfsfall zweimal angepasst werden. VBA hat den Vorteil, dass ein Nutzer die Formel nicht so leicht zerschießen kann.

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a As Integer, b As Integer, s As Integer, z As Integer, u As Integer
z = Me.UsedRange.Rows.Count
u = Me.UsedRange.Columns.Count
s = 10
Range(Cells(1, u), Cells(z, u)).Clear
For a = 1 To z
s = 10
For b = 2 To 6
If Cells(a, b) = "x" Then
Cells(a, s) = Cells(1, b).Value
s = s + 1
End If
Next
Next
End Sub


Grüße

 

Und hier noch eine letzte Lösung, die auch auf zusätzliche Räume reagiert. Die Liste der genutzten Räume erscheint jeweils zwei Spalten hinter dem letzten Raum. Kopiere den Code am besten in eine leere Tabelle und füge dann in Zeile 1 ab Spalte B die Räume, in Spalte A ab Zeile 2 die Personen hinzu. Eine Reaktion siehst Du erst, wenn Du dann noch die Xe eingibst.

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a As Integer, b As Integer, s As Integer, z As Integer, u As Integer, lz As Integer

z = Me.UsedRange.Rows.Count + 1
u = Me.UsedRange.Columns.Count
lz = Cells(1, Columns.Count).End(xlToLeft).Column
s = lz + 3

On Error Resume Next
If lz > 2 Then
Range(Cells(2, u - 1), Cells(z, u)).Clear
End If

For a = 1 To z
s = lz + 3
For b = 2 To lz
If Cells(a, b) = "x" Then
Cells(a, s) = Cells(1, b).Value
s = s + 1
End If
Next
Next
End Sub

Schönen Dank für den morgendlichen Denksport ;-)
Ach ja: Ich glaube, auch Steve würde sich über eine Rückmeldung freuen ...

Grüße

 

Und so sieht die fertige Mappe mit zwei Blättern aus:


Ein Doppelklick auf übertragen und schon ist Blatt 2 fertig ...
Grüße

 

Hallo zusammen,

ist auch eine schöne Aufgabe für NACHZEILE i.V.m. LAMBDA - dafür ist natürlich xl365 notwendig:

=FILTER(WAHL({1.2};A2:A100;NACHZEILE(B2:H100;LAMBDA(l;TEXTVERKETTEN(",";1;WENN(l="x";B1:H1;"")))));A2:A100<>0)

VG, Boris

 

Moin Boris,
ich fürchte, Marias Interesse an dem Thema ist inzwischen verstorben, da sie seit knapp einer Woche nicht reagiert ...
Grüße