Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1164to1168
1164to1168
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zählenwenn mit 2 Bereichen mit VBA

Forumthread: Zählenwenn mit 2 Bereichen mit VBA

Zählenwenn mit 2 Bereichen mit VBA
Dietmar
Hallo zusammen,
mit einer Excelformel bekomme ich es hin, aber leider nicht mit VBA.
Wie lautet derIf-Code wenn ich 2 Bereiche darauf überprüfen möchte, ob in ihnen eine Zahl Wenn dies der Fall ist, dann soll eine msgbox darauf hinweisen.
Die Formel wäre z.B: 
=Zählenwenn(A2:A19;"
Danke vorab für einen Tipp
Viele Grüße
Dietmar aus Aachen
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zählenwenn mit 2 Bereichen mit VBA
12.07.2010 23:01:00
Ramses
Hallo
Sub herber_Countif()
With Application.WorksheetFunction
If .CountIf(Range("A2:A19"), " 0 Then
MsgBox "Da ist was kleiner als 0", vbInformation + vbOKOnly, "Fehler"
End If
End With
End Sub

Gruss Rainer
Super! Danke!
12.07.2010 23:39:58
Dietmar
Hallo Rainer,
mal wieder ein Volltreffer!
Herzlichen Dank, genau so brauchte ich es.
Gute Nacht
Dietmar aus Aachen
Anzeige
sowiet ok, wie wenn bestimmtes Sheet gemeint ist?
12.07.2010 23:46:03
Dietmar
Hallo Rainer,
doch noch eine Frage:
Wie müsste der Code lauten, wenn die Überprüfung das spezifische Sheet noch benennen muss, weil es nicht aus dem Active.Sheet heraus überprüft wird? Sagen wir das Sheet heißt "Umsatz"
Vielen Dank erneut!
Dietmar aus Aachen
Bezug auf bestimmte Tabelle, so ok?
13.07.2010 00:07:23
Dietmar
Hallo Rainer,
habe mal getüftelt, wie der Bezug auf eine bestimmte Tabelle lauten müsste.
So funtkioniert es.
Aus Fachmanns-Sicht auch ok?
Danke für kurze Rückmeldung
Dietmar aus Aachen
Sub ZaehlenWenn_VBA()
With Application.WorksheetFunction
If .CountIf(Sheets("Tabelle1").Range("A2:A19"), " 0 Then
MsgBox "Da ist was kleiner als 0", vbInformation + vbOKOnly, "Fehler"
End If
End With
End Sub

Anzeige
Perfekt o.w.T.
13.07.2010 09:09:39
Ramses
...
DANKE fürs Feedback! oT
13.07.2010 09:11:59
Dietmar
...
Tabelle als Variable angeben...
13.07.2010 09:23:55
Tino
Hallo,
Du könntest die Tabelle als Variable angeben und diese im Code verbauen.
Sub ZaehlenWenn_VBA()
Dim oWs As Worksheet
Set oWs = Sheets("Tabelle1")
With Application.WorksheetFunction
If .CountIf(oWs.Range("A2:A19"), " 0 Then
MsgBox "Da ist was kleiner als 0", vbInformation + vbOKOnly, "Fehler"
End If
End With
End Sub

Hat den Vorteil,
sollte sich der Tabellenname ändern brauchst Du es nur einmal bei der Variablen machen.
Oder noch besser finde ich den Codenamen der Tabelle (so mache ich es),
den findest Du im VBA in der Explorerleiste bei Deiner Tabelle außerhalb der Klammer.
Hat den Vorteil du kannst die Tabelle im Excel umbenennen und der Code funktioniert immer noch.
Sub ZaehlenWenn_VBA()
Dim oWs As Worksheet
Set oWs = Tabelle1
With Application.WorksheetFunction
If .CountIf(oWs.Range("A2:A19"), " 0 Then
MsgBox "Da ist was kleiner als 0", vbInformation + vbOKOnly, "Fehler"
End If
End With
End Sub

Gruß Tino
Anzeige
Deine 2. Variante gefälllt mir ...
13.07.2010 09:29:45
Dietmar
Hallo Tino,
es geht wohl alles immer noch ein bischen besser :-)
Mir gefällt insbesondere die 2. Variante. Die werde ich mir mal sofort merken.
DANKE! und noch einen schönen Tag!
Viele Grüße
Dietmar aus Aachen
;

Forumthreads zu verwandten Themen

Application.Quit oder WB.close ???
Dirk

allo miteinander,
brauche bitte von Euch mal einen Rat, -Tip, oder einfach nur Hilfe.
Habe bei einer meiner Dateien ein Application.quit eingebaut, weil wenn Bedingung nicht erfüllt ist soll sich die komplette Mappe und die Tabellen die mit dieser zusammen arbeiten automatisch schließen...
01.09.2008 13:04:50
Thread-ID: 1006409
6 Beiträge
offset? mit Combo oder Listbox aber wie?
Thomas

Hallo und einen schönen guten Tag
Bitte um Hilfe.
Offset aber wie?
Ich möchte 2 List- oder Combofelder aus einer UserForm mit Werten der aktiven Zeile füllen, die ich dann mit Hilfe der List oder Combobox ändere.
z.B.
A5 oder A6 oder A150 u.s.w.
B5 oder B6 oder B150 u....
16.09.2008 11:37:00
Thread-ID: 1010027
6 Beiträge
Anzeige
LZF 1004 Anwendungs- oder objektdefinierter Fehler
Himmelsbach

Hallo zusammen,
Ich habe ein kleines Problem beim Einfügen eines Kommentars in ein Zelle.
Der Code lautet:
Sub vergleichen () dim icolmax as integer dim irowmax as integer dim icol as integer dim irow as integer dim kommentar$ icolmax = 16 irowmax = thisworkbook.worksheets("IASEK...
20.10.2008 20:20:00
Thread-ID: 1017794
6 Beiträge
Anzeige
WENN/ODER Funktion
Dessin

Guten Abend
ich möchte gerne wissen, wieviele ODER-Fragen in eine WENN Funktion eingebunden werden können.
folgendes Beispiel:
Grundfunktion: wenn (X=wahr,dann A1 sonst B1)
meine Frage: wenn (oder(C1={"x";"y"};D1={"x";"y"});A1;B1)
C1 ist eine ODER Frage die ich, wie ich w...
27.10.2008 20:15:00
Thread-ID: 1019734
3 Beiträge
Wenn-Oder Formel über VBA funktioniert nicht
sharky1000

Hallo,
ich habe eine etwas komplexere Wenn-Oder Formel erstellt, welche ich über VBA in eine Zelle einfügen möchte.
Formel in E2:
=WENN(ODER(LINKS(D2;2)="M1";LINKS(D2;2)="M2";LINKS(D2;2)="M3";LINKS(D2;2)="M4";LINKS(D2;2)="M5"); LINKS(D2;1);WENN(LINKS(D2;2)="NM";LINKS(D2;2);WENN(LIN...
06.11.2008 14:11:01
Thread-ID: 1022285
7 Beiträge
Bedingte Formatierung oder VBA?
maruseru

Hallo werte Profis
Irgendwie raff ich es heute nicht
Habe eine Spalte mit Artikel Nummern. Jeweils das erste Zeichen ist = Produkte Typ.
A976164
A980602
B181645
B491942
F199587
F215047
F224410
G224410
F232634
Ich möchte nun anhand des ersten Zeich...
27.11.2008 14:09:45
Thread-ID: 1028367
7 Beiträge
wenn-oder-Funktion
Meli

Hallo,
ich habe hier das Beispieldatei eingefügt: https://www.herber.de/bbs/user/57552.xls
Ich verstehe nicht, was an meiner Formel ~=WENN(ODER(F8>1200;G8>1200;Z8>1200;F8 Ich möchte nämlich in Spalte AB, dass es eine 1 erscheint, wenn in Spalte F, G oder Z die Werte höher als...
11.12.2008 16:03:45
Thread-ID: 1032094
7 Beiträge
Schaltflächen oder Image Beispiele
Walter

Hallo Zusammen,
erst mal ALLEN ein gesundes neues Jahr !!!
Ich such Schaltflächen oder Image Beispiele, hatte mal in Google gesucht, leider
nichts gefunden,
vielleicht hat jemand eine Beispielmappe,
mfg Walter
01.01.2009 13:10:00
Thread-ID: 1036231
9 Beiträge
Anzeige
Excel-Bug oder was?
Andreas

Hallo,
Haben seit gestern folgendes Problem, welches auch schon zu
"Schäden" geführt hat. Sonst hätte ich es ja auch nicht bemerkt.
Excel-Problem nach Update von MS Office Kompatibilitätspack 2007
Wenn eine Exceldatei *.xls (2003) über Extras - Schutz - Arbeitsmappe schützen
...
16.01.2009 12:09:00
Thread-ID: 1040524
3 Beiträge
Anzeige
Sprachblase oder MsgBox bei Label
Leon

Hi Zusammen
Ist es überhaupt möglich, eine Art MsgBox oder eher wie eine Sprachblase anzuzeigen wenn ich über ein
Label mit der Maus fahre?
Gruß
Leon
31.01.2009 23:00:00
Thread-ID: 1045779
12 Beiträge
prüfen ob ganze Zeilen oder Spalten
Anna

Hallo
ich würde gerne einen markierten Bereich, der als Range einer Funktion übergeben wird, überprüfen, ob ganze Zeilen oder Spalten ausgewählt sind.
Wie kann man das machen?
Vielen Dank schon im Voraus!
05.02.2009 09:55:00
Thread-ID: 1047308
3 Beiträge
Variable oder Prozedur anstelle eines Moduls
tco99


Hallo zusammen,
ich habe eine Frage:
ich hatte ein Makro, was ich per Schaltfläche startete. Dann habe ich im VBA-Editor ein Modul angelegt und ihm einen passenden Namen ("Filtern") gegeben. Das Makro habe ich ausgeschnitten und in dieses Modul eingefügt. Eigentlich habe ich jetzt...
06.02.2009 11:06:47
Thread-ID: 1047667
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige