Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
880to884
880to884
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

werte zählen

Forumthread: werte zählen

werte zählen
03.07.2007 14:36:26
Gerhard
Hallo zusammen,
wie kann ich via VBA aus meiner Datenbank (bestehend aus mehreren 1000 Datensätzen) die Spalte F
abfragen, wenn eine Stücklistennr. öfters als 1x vorkommt?
Diese Stücklistennr. sollte in die Tabelle 2 ab A1 eingetragen werden und in die Spalte B daneben die Anzahl (wie oft kommt diese Nr. in der Datenbank vor)
Vielen Dank für Eure Hilfe
Gruß Gerhard

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: werte zählen
03.07.2007 14:55:00
Rudi
Hallo,

Sub tt()
Dim wksDaten As Worksheet, wksListe As Worksheet
Dim rngC As Range, n As Integer
Set wksDaten = Sheets("Datenbank")
Set wksListe = Sheets("Tabelle2")
For Each rngC In wksDaten.Columns(6).SpecialCells(xlCellTypeConstants)
n = 0
n = WorksheetFunction.CountIf(wksDaten.Columns(6), rngC.Value)
If n > 1 Then
With wksListe
If WorksheetFunction.CountIf(.Columns(1), rngC.Value) = 0 Then
With .Cells(Rows.Count, 1).End(xlUp)
.Offset(1, 0) = rngC.Value
.Offset(1, 1) = n
End With
End If
End With
End If
Next rngC
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige