Auswertung Parkraumerhebung

Guten Morgen Zusammen,

vielleicht kann mir jemand von euch weiterhelfen. Ich sitze momentan an meiner Master-Thesis, in der es um ein Parkraumkonzept geht.
Hierzu erfolgte eine Kennzeichen-Erhebung. In dieser wurde zwischen legalem und illegalem Parken unterschieden. Das illegale Parken wurde wiederum in kein Ticket, Ticket abgelaufen, Ticket unleserlich und falschparken unterteilt.
Meine Auswertung erfolgt über Excel, wobei ich gerne feststellen möchte, welches Kennzeichen von wann bis wann legal und illegal (ggf. abgelaufenes Ticket) geparkt wurde und der Grund des illegalen Parkens (siehe Excel Datei).

https://www.herber.de/bbs/user/163972.xlsx

Eine Formel zur Zusammenfassung aller Kennzeichen habe ich durch =SORTIEREN(EINDEUTIG(ZUSPALTE(C14:BD25;1))) hinbekommen...

Weiß jemand zufällig, wie ich die Excel-Formeln eingeben muss, um diese Ergebnisse am Ende der Tabelle zu erhalten? Ich stehe diesbezüglich auf dem Schlauch.

Ich bedanke mich schonmal vielmals im Voraus.

Viele Grüße
Daniel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Daniel!

Das sollte machen, was du willst:

Sub Parkräume_eintragen()

    Dim rng As Range

    Dim legal As Range

    Dim n_legal As Range

    Dim Kennz As Range

    Dim gef As Range

    Dim nächste_Zeichen_bereich As Range

    Dim i As Long

    Dim sp_such As Long

    Dim txt_join As String

    

    Set rng = Range("BH13#")

    Set legal = Range("C14:BD19")

    Set n_legal = Range("C20:BD25")

    

    For Each Kennz In rng

        '=====================================================================

        Set gef = legal.Find(Kennz)

        Kennz.Offset(0, 2) = WorksheetFunction.CountIf(legal, Kennz)

        

        If Not gef Is Nothing Then

            Kennz.Offset(0, 3) = Cells(11, gef.Column).Text

            i = 0

            Do

                Kennz.Offset(0, 4) = Cells(12, gef.Column + i).Text

                i = i + 2

                sp_such = gef.Offset(0, i).Column

                Set nächste_Zeichen_bereich = Range(Cells(14, sp_such), Cells(19, sp_such))

                txt_join = WorksheetFunction.TextJoin(",", 1, nächste_Zeichen_bereich)

            Loop While InStr(txt_join, Kennz) > 0

        End If

        

        '=====================================================================

        Set gef = n_legal.Find(Kennz)

        Kennz.Offset(0, 5) = WorksheetFunction.CountIf(n_legal, Kennz)

        

        If Not gef Is Nothing Then

            

            Kennz.Offset(0, 6) = Cells(11, gef.Column).Text

            Kennz.Offset(0, 8) = gef.Offset(0, 1)

            i = 0

            Do

                Kennz.Offset(0, 7) = Cells(12, gef.Column + i).Text

                i = i + 2

                sp_such = gef.Offset(0, i).Column

                Set nächste_Zeichen_bereich = Range(Cells(20, sp_such), Cells(25, sp_such))

                txt_join = WorksheetFunction.TextJoin(",", 1, nächste_Zeichen_bereich)

            Loop While InStr(txt_join, Kennz) > 0

        End If

        '=====================================================================

    Next Kennz

End Sub

Viel Erfolg,

Gruß, MCO

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Auswertung Parkraumerhebung

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread