Spalten Vergleichen mit Werte als Resultat

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

public sub Aepfel_zaehlen() dim a as integer dim b as integer dim i as integer a=(Cells(Rows.Count, "BT").End(xlUp).Row) for i=1 to a if cells(i,"BT")=Apfel then b=b+1 end if next i msgbox "es sind" & b & "Äpfel in der Spalte BT" End Sub

public sub Aepfel_zaehlen() dim a as integer dim b as integer dim i as integer a=worksheets("Tabelle1").Cells(Rows.Count, "BT").End(xlUp).Row 'Mit worksheets("...") 'wählst du das Tabellenblatt aus for i=1 to a if worksheets("Tabelle1").cells(i,"BT")="Apfel" then b=b+1 end if next i worksheets("Sheet").cells(1,"A")="Es sind" & b & "Äpfel in Spalte BT vorhanden." End Sub

Achso. Jetzt habe ich dich verstanden :D
dann sollte das Makro so lauten:


public sub Aepfel_zaehlen()
dim a as integer
dim b as integer
dim i as integer
a=worksheets("Tabelle1").Cells(Rows.Count, "BT").End(xlUp).Row 'Mit worksheets("...")
'wählst du das Tabellenblatt aus
for i=1 to a
if worksheets("Tabelle1").cells(i,"BT")="Apfel" _
and worksheets("Tabelle1").cells(i,"S")"Apfel" then
b=b+1
end if
next i
worksheets("Sheet").cells(1,"A")="Es sind" & b & "Äpfel in Spalte BT vorhanden."
End Sub

In dem If-Befehl


worksheets("Tabelle1").cells(i,"S")"Apfel"

ergänzen.
Jetzt zählt das Makro nur die Äpfel die in Spalte BT stehen, ohne diejenigen die in der gleichen Zeile auch in Spalte S stehen.

Ich habe ein Book mit zwei Sheets Tabelle1 und Stat. Im Sheet Tabelle 1 gibts x spalten; die bedeutenden Spalten heissen S = Obst und Spalte BT = Korb
In der Spalte Obst stehen verschiedene Ausdrücke wie Apfel, Orange und Birnen.
In der Spalte Korb stehen Voll leer und auch Apfel. Somit gibts also, duplikate von Apfel in der Spalte S und BT.
Jetzt, sollten die Anzahl der Einträge "Apfel" aufgelistet werden, die einzig in der Spalte BT erscheinen und nicht in der Spalte S.
Mt Zählenwenn und Vergleich hab ichs nicht geschafft. Es sollten also, die Spalten verglichen werden und einzig die Anzahl Apfel erscheinen, die in BT und nicht in S erscheinen
Das Resultat sollte in der Tabelle Stat in der Zelle D2 als Zahl erscheinen
Danke für einen möglichen Pfad

Beliebteste Forumthreads (12 Monate)

Spalten Vergleichen mit Werte als Resultat

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

318 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spalten Vergleichen mit Werte als Resultat

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

318 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread