Bereich unter Überschrift ausfindig machen und transponieren

16.04.2025 11:32:36

Kalldorn

Hallöchen,

folgendes Problem, ich habe eine Excel mit 2 Arbeitsblättern ("Rollenzuordnung bereinigt" und "Userzuordnung").
Im ersten (Rollenzuordnung) sind in Spalte A die Rollennamen, in Spalte B irgendwelche Beschreibungen und ab Spalte C (C2,C3,C4,C5....) sollen dann die User aufgelistet werden, die die entsprechende Rolle haben.
Dazu soll der Rollenname des aktiven Felds im Arbeitsblatt "Userzuordnung" gesucht werden. Hier sind die Rollen allerdings in der ersten Zeile aufgelistet und die Usernamen jeweils darunter (also A2,B2,C2 usw). Die hätte ich dann gerne kopiert und hinter die jeweilge Rolle bei "Rollenzuordnung bereinigt" kopiert.
Hoffe man kann mir so weit folgen :)

Eine Beispieldatei kann ich leider nicht bieten, aus Datenschutzgründen :)

Danke schonmal fürs Lesen!

AW: Bereich unter Überschrift ausfindig machen und transponieren

16.04.2025 11:51:12

Kalldorn

Habs jetzt irgendwie gelöst, aber schön ist das nicht. Vor allem gehts kaputt, wenn unter der Rolle nur ein einzelner Name steht. Aber es funktioniert irgendwie



Dim RollenName As String



RollenName = ActiveCell

Worksheets("Userzuordnung").Activate

'With Sheets("Userzuordnung").Range("A1:DM600")

Cells.Find(What:=RollenName, After:=ActiveCell, _

        LookIn:=xlFormulas2, LookAt:=xlPart, SearchOrder:=xlByRows, _

        SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate



ActiveCell.Offset(1, 0).Select

Range(Selection, Selection.End(xlDown)).Select

    Application.CutCopyMode = False

    Selection.Copy

Sheets("Rollenzuordnung bereinigt").Select

ActiveCell.Offset(0, 2).Select

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _

        False, Transpose:=True

End Sub


Dim RollenName As String

RollenName = ActiveCell
Worksheets("Userzuordnung").Activate
'With Sheets("Userzuordnung").Range("A1:DM600")
Cells.Find(What:=RollenName, After:=ActiveCell, _
        LookIn:=xlFormulas2, LookAt:=xlPart, SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate

ActiveCell.Offset(1, 0).Select
Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
Sheets("Rollenzuordnung bereinigt").Select
ActiveCell.Offset(0, 2).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
End Sub

AW: Bereich unter Überschrift ausfindig machen und transponieren

16.04.2025 11:52:31

Onur

Poste eine Datei mit imaginären Namen - das ganze geht auch nur mit einer einzigen FORMEL.

AW: Bereich unter Überschrift ausfindig machen und transponieren

16.04.2025 12:36:14

GerdL

Moin

Sub test()



    Dim RollenName As String, Q As Range, Z As Range

    

    RollenName = Application.InputBox("Überschrift", "Einträge kopieren", Type:=2)

    

    Set Z = Sheets("Rollenzuordnung bereinigt").Cells(2, 3)

    Set Q = Sheets("Userzuordnung").Range("A1:DM1").Find(What:=RollenName, After:=Sheets("Userzuordnung").Cells(1, 1), _

            LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _

            SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

    If Not Q Is Nothing Then

        Q.Offset(1).Resize(Application.CountA(Q.Parent.Columns(Q.Column))).Copy

        Z.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _

            False, Transpose:=True

        Application.CutCopyMode = False

    End If

    

End Sub

Gruß Gerd

AW: Bereich unter Überschrift ausfindig machen und transponieren

16.04.2025 11:51:17

Onur

Eine Beispieldatei kann ich leider nicht bieten, aus Datenschutzgründen ?
Deswegen heisst sie ja auch Beispieldatei, weil man sensible Daten vorher ersetzt hat.

AW: Bereich unter Überschrift ausfindig machen und transponieren

16.04.2025 12:11:28

daniel

HI

in C2: =MTRANS(FILTER(Userzuordnung!$A$2:$X$99;Userzuordnung!$A$1:$X$1=A2))&""
diese Formel dann nach unten ziehen

für X und 99 die jeweilige Endzeile und -spalte einsetzen.

Gruß Daniel

Bereich unter Überschrift ausfindig machen und transponieren

Forumthread: Bereich unter Überschrift ausfindig machen und transponieren

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Bereich unter Überschrift ausfindig machen und transponieren

Forumthread: Bereich unter Überschrift ausfindig machen und transponieren

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread