Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
616to620
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
616to620
616to620
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Array: Gleiche zusammenfassen/zählen

Array: Gleiche zusammenfassen/zählen
01.06.2005 10:28:04
PeterP
Hallo,
leider neige ich dazu, eher umständlichen Code zu schreiben, was unnötig Zeit kostet ;-),daher frage ich lieber mal bei Euch an:
Wie würdet Ihr in einem Array gleiche Werte zusammenfassen?
Also z.b.
Array:
1 a
2 b
3 b
4 b
5 X
6 X
7 a
soll ergeben (gleiche zusammenfassen und Anzahl ablegen)
a 2
b 3
X 2
Gruß&Dank
Peter

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Array: Gleiche zusammenfassen/zählen
01.06.2005 13:00:43
bst
Mahlzeit Peter,
versuch's mal auf hiermit:
Option Explicit

Type TmyCount
    item As String
    count As Integer
End Type

Sub x()
    Dim icount As Integer
    Dim acount() As TmyCount
    Dim a(7) As String
    Dim i As Integer, index As Integer
    
    a(1) = "a": a(2) = "b": a(3) = "b": a(4) = "b": a(5) = "X": a(6) = "X": a(7) = "a"
    
    icount = -1
    For i = 1 To 7
        index = IsInArray(icount, acount, a(i))
        If index < 0 Then
            icount = icount + 1
            ReDim Preserve acount(icount)
            acount(icount).item = a(i)
            acount(icount).count = 1
        Else
            acount(index).count = acount(index).count + 1
        End If
    Next
    
    For i = 0 To UBound(acount)
        Debug.Print acount(i).item, acount(i).count
    Next
End Sub

Function IsInArray(icount As Integer, acount() As TmyCount, ele As String)
    Dim i As Integer
    IsInArray = -1
    For i = 0 To icount
        If acount(i).item = ele Then
            IsInArray = i
            Exit Function
        End If
    Next
End Function

Gruß, Bernd
Anzeige
AW: Array: Gleiche zusammenfassen/zählen
09.06.2005 13:31:00
PeterP
Hallo Bernd,
danke für den Code, sobald ich dazukomme wird er eingebaut!
Gruß
Peter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige