Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1164to1168
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
1164to1168
1164to1168
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
Anzeige
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

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

330 Forumthreads zu ähnlichen Themen

Inputbox Schriftart oder Farbe verändern
Gunter

Hallo Zusammen,
ich habe eine Inputbox, über die eine Passwortabfrage gesteuert wird. Leider ist das Passwort im Eingabefeld zu sehen. Ist es möglich den Text z.B. in der Schriftart "Wingdings" zu formatieren, oder
die Schriftfarbe in weiss, damit das Passwort nicht mehr zu sehen ist?
28.08.2008 15:32:00
Thread-ID: 1005474
7 Beiträge
Anzeige
Zugriff auf Access-DB über DAO oder ADO
Armin

Hallo,
ich hätte eine allgemeine Frage zum Zugriff auf Access-Datenbanken.
Welche Zugriffsmethode auf eine Access-DB würdet Ihr generell empfehlen: ADO oder DAO?
Gibt es in der Praxis Vor- oder Nachteile für die eine oder andere Zugriffsweise?
Vielen Dank für Euere Meinungen und...
03.09.2008 14:28:55
Thread-ID: 1007110
2 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
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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
5
1
5
5
2
6
6
6
8
2
11
2
2
3
8
4
3
15
3
16
5
4
2
1