Fun-Soft - Programmierforum

Autor

Thread - Seiten: > 1 <

000
06.04.2004, 14:45 Uhr
~Benny
Gast

Ich habe eine List mit Kontakten und Firmen.

spalte A: Firma

Ich muss wissen wieviele Firmen in der Liste stehen, also muss ich die doppelten ausfiltern.

Bsp:

A1 = "Müller GmbH"
A2 = "Müller GmbH"
A3 = "Schmiedt GmbH"

Ich brauch einen Zähler der mir jetzt 2 Firmen ausgibt (die Anzahl reicht).

Ich muss immer nur die Zelle direkt darunter vergleichen, wenn dann kommen sie untereinander vor.

Kann mir jemand helfen, ich habe eigentlich keine Ahnung was VBA angeht, aber programmieren schon. Denke es ist nicht aufwendig, habe auch mal rumprobiert komme mit makros aufzeichen jedoch nicht weit.

Bitte um Hilfe

Grüßer Benny

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

001
06.04.2004, 22:59 Uhr
~MF
Gast

Hallo,

versuche mal das Macro, habe es schnell getippt.

Hinweis:

Range("A" & i).Select <- muss auf die Spalte angepasst werden!

Hier Spalte A

Visual Basic:

Sub test()
Dim i As Long
Dim Anzahl As Long
Dim Lasttext As String
Dim Leerzähler As Long
Do
    i = i + 1
    Range("A" & i).Select
    If Len(ActiveCell.FormulaR1C1) > 0 Then
        If ActiveCell.FormulaR1C1 <> Lasttext Then
            Anzahl = Anzahl + 1
            'Text grün einfärben...
            ActiveCell.Font.Color = vbGreen
        End If
        Lasttext = ActiveCell.FormulaR1C1
    Else
        Leerzähler = Leerzähler + 1
    End If

Loop Until Leerzähler > 10 ' Schleife bis 10 Felder keine Daten mehr kommen....

Range("D" & 1).Select
MsgBox "Anzahl Einträge: " & Anzahl
End Sub

Bearbeitung von Pablo:

Bitte, VB Tags selber benutzen!

Dieser Post wurde am 06.04.2004 um 23:29 Uhr von Pablo editiert.

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

Seiten: > 1 < [ Visual Basic 6.0 / VBA ]

ThWBoard 2.73 FloSoft-Edition
© by Paul Baecher & Felix Gonschorek (www.thwboard.de)

Anpassungen des Forums
© by Flo-Soft (www.flo-soft.de)

Sie sind Besucher: