Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Via Makro Elemente in Spalte zählen

Forumthread: Via Makro Elemente in Spalte zählen

Via Makro Elemente in Spalte zählen
04.04.2003 18:13:37
Mike E.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Via Makro Elemente in Spalte zählen
04.04.2003 20:52:42
ChrisL

Hallo Mike

Will nicht ausschliessen, dass es noch effizienter ginge, aber sollte funktionieren.

Gruss
Chris


Option Explicit

Private Sub CommandButton1_Click()
Dim AnzahlZeilen As Long, Zaehler As Long, i As Long, ii As Long
Dim Suchbegriff As String

AnzahlZeilen = Range("B65536").End(xlUp).Row
Range("C2:C" & AnzahlZeilen).ClearContents

For i = 2 To AnzahlZeilen
Zaehler = 0
Suchbegriff = Cells(i, 2)

If Cells(i, 3) = "" Then

For ii = 2 To AnzahlZeilen
If Cells(ii, 2) = Suchbegriff Then Zaehler = Zaehler + 1
Next ii

For ii = 2 To AnzahlZeilen
If Cells(ii, 2) = Suchbegriff Then Cells(ii, 3) = Zaehler
Next ii

End If

Next i
End Sub

Anzeige
Re: Via Makro Elemente in Spalte zählen
04.04.2003 20:56:27
Mike E.

Hallo Chris,

ich bin beeindruckt.
Super vielen Dank für deine Mühe

Einen schönen Abend wünscht
Mike

Re: Via Makro Elemente in Spalte zählen
04.04.2003 21:14:21
PeterW

Hallo Mike,

wenn Dich ein Zählenwenn im Makro nicht stört geht es beispielsweise so:

Gruß
Peter

Re: Via Makro Elemente in Spalte zählen
04.04.2003 21:17:38
Mike E.

Hallo Peter,


Auch eine feine Lösung. Meinen Dank auch dir!!
Nein, "ZählenWenn"...damit wollte ich lediglich zum Ausdruck bringen, dass ich keine Excel-Formel brauchte.

Viele Grüße und besten Dank
Mike

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige