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

VBA Zellenvergleich und Zählen

VBA Zellenvergleich und Zählen
30.01.2006 10:15:18
Dave
Hallo,
in Spalte B sollen die untereinander liegenden Namen verglichen werden, wenn die in Spalte C untereinander liegenden Straßennamen auch gleich sind sollen die gleichen gezählt werden bis entweder der Name oder die Straße sich ändert, wenn dies geschieht soll in Spalte f die Anzahl der gleichen Datensätze. Schaut euch am Besten die Beispieldatei an.
https://www.herber.de/bbs/user/30503.xls
Danke schon im voraus
Dave

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Zellenvergleich und Zählen
30.01.2006 10:35:34
HermannZ
Hallo Dave;
folgende Formel in erste zelle Spalte F;
{=WENN(SUMME(N(A2:E2=A3:E3))=5;"";ANZAHL2($E$2:E2)-SUMME($G1:G$2))}
und herunter kopieren.
Hinweis; geschweifte Klammern nicht eingeben sondern formel mit Shift-Srtg-Enter abschliessen.
gruß hermann
AW: VBA Zellenvergleich und Zählen
30.01.2006 11:39:42
sven
hallo dave,
ich hatte ebend das gleiche problem und habe dafür kurzerhand ein kleines makro programmiert.
----------------------------------

Sub anzahl()
Dim zaehler
Dim i
Dim letzezelle
Range("A1").Select
letzezelle = WorksheetFunction.CountIf(Sheets(1).Range("B:B"), "<>")
letzezelle = letzezelle + 4
zaehler = 1
For i = 6 To letzezelle
If Cells(i, 1) = Cells(i + 1, 1) Then
zaehler = zaehler + 1
End If
If Cells(i, 1) <> Cells(i + 1, 1) Then
Cells(i, 31) = zaehler
zaehler = 1
End If
Next i
End Sub

---------------------------------------------------
Anzeige
AW: VBA Zellenvergleich und Zählen
30.01.2006 14:03:09
Dave
Hallo,
die Lösung von Sven hat leider nicht funktioniert. Die Lösung von Hermann habe ich geändert ($F1:F$2)) dann hats funtioniert. Danke euch beiden
Viele Grüße
Dave

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige