Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
880to884
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
880to884
880to884
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige