VBA CountIf

Hallo zusammen,
ich stehe mal wieder vor einem Problem.
Ich bekomme 1x im Monat eine Excel Datei, für die ich gerne ein Skript schreiben würde. Das Skript soll Daten aus der Tabelle erfassen, und zusammengefasst auf einem zweiten Tabellenblatt speichern.
1)


Sub Autofilter()
Set ZielSheet = Sheets.Add(after:=Tabelle1)
ZielSheet.Name = "Infos_zu_Datensatz"

2) Nun meine erste Frage: Ich würde gerne eine eine CountIf Funktion nutzen, um zu zählen wie viele Elemente es allgemein in Spalte C gibt, und außerdem wie viele Elemente jeweils mit dem Inhalt "x" und "y" in Spalte C enthalten sind.
--> Output in der Tabelle 2 soll dann in etwa sein:
Gesamt: 300
X: 170
Y:130
3) Eine Auflistung welche verschiedenen Typen es in Spalte D gibt.
Beispiel Inhalte Spalte D: Peter,Peter,Dieter,Tim
--> Output Typen: Peter,Dieter,Tim (doppelte sollen ignoriert werden, und nur 1x in dem Output auftauchen)"
Vielen Dank im Voraus!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Teillösung

16.01.2023 13:16:08

MCO

AW: VBA CountIf

16.01.2023 14:06:23

ChrisL

AW: VBA CountIf

16.01.2023 14:34:49

Paul

AW: VBA CountIf

16.01.2023 14:39:13

ChrisL

AW: VBA CountIf

18.01.2023 07:26:38

Paul

AW: VBA CountIf

18.01.2023 08:40:07

ChrisL

Sub t() Dim QuellSheet As Worksheet, ZielSheet As Worksheet Dim i As Long, Zaehler As Long Set QuellSheet = ActiveSheet Set ZielSheet = Sheets.Add(after:=Tabelle1) ZielSheet.Name = "Infos_zu_Datensatz" With QuellSheet ZielSheet.Range("A1") = WorksheetFunction.CountA(.Columns(3)) ZielSheet.Range("A2") = WorksheetFunction.CountIf(.Columns(3), "x") ZielSheet.Range("A3") = WorksheetFunction.CountIf(.Columns(3), "y") For i = 1 To .Cells(.Rows.Count, 4).End(xlUp).Row If WorksheetFunction.CountIf(.Range("D1:D" & i), .Cells(i, 4)) = 1 Then Zaehler = Zaehler + 1 Next i ZielSheet.Range("A4") = Zaehler End With End Sub

Sub t() Dim QuellSheet As Worksheet, ZielSheet As Worksheet Dim i As Long Set QuellSheet = ActiveSheet Set ZielSheet = Sheets.Add(after:=Tabelle1) ZielSheet.Name = "Infos_zu_Datensatz" With QuellSheet ZielSheet.Range("A1") = WorksheetFunction.CountA(.Columns(3)) ZielSheet.Range("A2") = WorksheetFunction.CountIf(.Columns(3), "x") ZielSheet.Range("A3") = WorksheetFunction.CountIf(.Columns(3), "y") For i = 1 To .Cells(.Rows.Count, 4).End(xlUp).Row If WorksheetFunction.CountIf(.Range("D1:D" & i), .Cells(i, 4)) = 1 Then _ ZielSheet.Cells(.Rows.Count, 2).End(xlUp).Offset(1) = .Cells(i, 4) Next i End With End Sub

For tt = 2 To .Cells(.Rows.count, 50).End(xlUp).Row If WorksheetFunction.CountIf(.Range("AX1:AX" & tt), .Cells(tt, 50)) = 1 Then _ ZielSheet.Cells(.Rows.count, 17).End(xlUp).Offset(1) = .Cells(tt, 50) Next tt

s = Application.Match("Bemerkungen", .Rows(1), 0) For tt = 2 To .Cells(.Rows.Count, s).End(xlUp).Row If WorksheetFunction.CountIf(.Range(.Cells(2, s), .Cells(tt, s)), .Cells(tt, s)) = 1 Then _ ZielSheet.Cells(.Rows.Count, 17).End(xlUp).Offset(1) = .Cells(tt, s) Next tt

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

167 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA CountIf

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

167 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread