Thema Datum  Von Nutzer Rating
Antwort
14.12.2016 10:19:36 Julia
NotSolved
14.12.2016 11:04:41 BigBen
NotSolved
14.12.2016 11:23:39 Julia
NotSolved
Blau VBA Listenverarbeitung - Zähler
 14.12.2016 18:56:01 Mackie
NotSolved

Ansicht des Beitrags:
Von:
Mackie		 Datum:
14.12.2016 18:56:01		 Views:
589		 Rating:
     
Antwort:
  Ja
Thema:
VBA Listenverarbeitung - Zähler

Public Sub Kunde()

    Const max = 100
    Dim id(max) As Variant
    Dim la(max) As Variant
    found = 0
    For Z = 2 To max
        v = Cells(Z, 5)
        If v <> "" Then
            ex = False
            For nr = 1 To found
                If v = id(nr) Then ex = True
            Next nr
            If ex = False Then
                found = found + 1
                id(found) = Cells(Z, 5).Value
            End If
        End If
    Next Z
    anzid = found
    ex = False: found = 0
    For Z = 2 To max
        ex = False:
        v = Cells(Z, 6)
        If v <> "" Then
            For n = 1 To found
                If Cells(Z, 6) = la(n) Then ex = True
            Next n
            If ex = False Then
                found = found + 1
                la(found) = Cells(Z, 6).Value
            End If
        End If
    Next Z
    anzla = found: found = 0
    For z1 = 1 To anzid
        Cells(z1 + 1, 9) = id(z1)
        sp = 9
        For z2 = 1 To anzla
            anz = 0
            For Z = 2 To max
                v = Cells(Z, 5)
                Rem Stop
                If v = id(z1) Then
                    If Cells(Z, 6) = la(z2) Then anz = anz + 1
                End If
            Next Z
            a$ = Str(anz)
            If anz <> 0 Then
                sp = sp + 1
                Cells(z1 + 1, sp) = la(z2) + "(" + Right$(a$, Len(a$) - 1) + ")"
            End If
        Next z2
    Next z1
End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
14.12.2016 10:19:36 Julia
NotSolved
14.12.2016 11:04:41 BigBen
NotSolved
14.12.2016 11:23:39 Julia
NotSolved
Blau VBA Listenverarbeitung - Zähler
 14.12.2016 18:56:01 Mackie
NotSolved