Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 11:09:53
for Schleife lässt leere Zeilen bei Abfrage mit Bedingung
18.04.2024 10:30:26
bedingte Formatierung lange Zahlen
18.04.2024 09:22:48
VBA Filter in intelligenter Tabelle funktioniert nicht
18.04.2024 08:54:52
automatisches übertragen von Daten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1580to1584
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
1580to1584
1580to1584
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bitte VBA-Formel ändern

Bitte VBA-Formel ändern
26.09.2017 12:10:26
Lorenz
Hallo, Mahlzeit!
Wie müsste die Formel lauten, daß z. B. nur ein "o" (kleingeschrieben) gezählt wird.
mit:
Application.Evaluate("SUMPRODUCT(ISNUMBER(FIND(""o""," & strRef & "))*1)") wird auch Z.B. "Zoo", "Koos" "CMos" ect. als gefunden, berechnet".
Es soll also alleinig ein Zelleintrag mit klein "O" gezählt werden.
vielen Dank im voraus
Lorenz

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

Betreff
Datum
Anwender
Anzeige
AW: Bitte VBA-Formel ändern
26.09.2017 12:18:12
Daniel
HI
naja, wenn du nur Zellen zählen willst, in denen genau "o" steht, dann tuts auch ein einfaches:
Sumproduct((""o""=" & strRef & ")*1)
oder noch einfacher CountIf(" & strRef & ",""o"")
das muss man dann auch nicht kompliziert mit Evaluate berechnen, sondern kann es direkt ausführen
Worksheetfunction.CountIf(Range(strRef), "o")
Gruß Daniel
AW: Bitte VBA-Formel ändern
26.09.2017 12:52:41
Lorenz
Hi Daniel
Danke f. die Tipps.
Evaluate hatte ich übernommen wo ich Probleme hatte aus (in UF) Probleme hatte!
mit:
Worksheetfunction.CountIf(Range(strRef), "o") hattest du vollkommen recht!!!
Funktioniert wunderbar.
Grüße Lorenz
Anzeige
AW: kleine Einschränkung
26.09.2017 13:46:15
Daniel
HI
aber beachte: das CountIf unterscheidet nicht zwischen Groß- und Kleinschreibung.
dh ein "O" wird genauso gezählt wie ein "o".
wenn das ein Problem ist müsstest du die Lösung von Rudi nehmen.
Excact/Identisch ist der Vergleich, welcher Groß/Kleinschreibung berücksichtigt.
Gruß Daniel
AW: kleine Einschränkung
26.09.2017 16:16:14
Lorenz
Hallo Daniel,
Genau, auf dies bin ich beim Probieren draufgekommen.
Vielen Dank für den weiteren Hinweis.
Grüße Lorenz
AW: Bitte VBA-Formel ändern
26.09.2017 12:20:03
Rudi
Hallo,
sumproduct(exact(" &strref &",""o"")*1)"
Gruß
Rudi
AW: Bitte VBA-Formel ändern
26.09.2017 12:56:09
Lorenz
Hallo Rudi
Danke für Tipp,
Funktioniert Einwandfrei
Aber wegen der "Kürze" hab ich Worksheetfunction.CountIf(Range(strRef), "o") verwendet
Grüße Lorenz
Anzeige
@ Rudi Bitte Erweiterung
26.09.2017 16:29:36
Lorenz
Hallo Rudi
Nochmals Danke für deinen Tipp.
Ist es unverschämt von mir um eine Erweiterung zu bitten?
Und zwar nach dem Motto:
If Len(Zelleintrag)=1 Then sumproduct(exact(" &strref &",""O"")*8)"
If Len(Zelleintrag)=2 Then sumproduct(exact(" &strref &",""OO"")*10)"
Ist dies möglich, weil ich schaff's nicht.
Grüße
Lorenz
unverschämt nicht, aber ...
26.09.2017 22:07:03
Rudi
Hallo,
... ich habe keine Ahnung, worauf du hinaus willst.
Gruß
Rudi
AW: unverschämt nicht, aber ...
27.09.2017 12:06:30
Lorenz
Hallo Rudi
Danke für die "Rück"Meldung, aber inzwischen (in der Nacht) lief der erstellte Code auf einmal richtig.Ich hatte zwei verschiedene Summengruppen erstellt. In die eine Gruppe wird ein Eintrag mit "I" mit hochgezählt. In die andere Gruppe wird ein Eintrag mit "II" hochgezählt. Anfänglich wurden in der einen Gruppe bei beiden Einträgen, nämlich der mit beiden Einträgen hochgezählt. In diesem Fall wollte ich vorher prüfen ob ein oder zwei Zeichen in der Zelle vorhanden sind, um dies zu differenzieren.
Es werden obendrein mit den verschiedenen Zeichen, jeweils andere Werte aufsummiert. z. B. I steht für 12, "II" aber für 8 usw.
Anzeige

300 Forumthreads zu ähnlichen Themen

"wenn, dann, sonst" - Frage
Oliver

Hallo,
kleines Problem,
=WENN($I$4=4;4;0) liefert mir den Wert "0"
Jetzt habe ich diese Formel folgendermaßen abgeändert:
=Wenn((Istfehler(A1);"";Wenn($I$=4;4;0))
... dies liefert mir wieder den Wert "0", obwohl Istfehler(A1) erfüllt wird -confused-
Nun meine Frage,...
11.09.2008 10:23:00
Thread-ID: 1008998
16 Beiträge
Anzeige
Formel wenn dann sonst ...
Uwe

Hallo, Gemeinde ..
Mir stellt sich folgende Herausforderung:
ich möchte in einer Liste Fahrtkosten berechnen. Der Arbeiter bekommt von km 1 bis km 10 0,36€ pro km (einfach). ab dem 11 km bekommt der Arbeiter 0,40€.
Wie bekomme ich eine Formel hin, die das berechnet, wenn
- der A...
31.10.2008 11:20:00
Thread-ID: 1020821
10 Beiträge
wenn/dann/sonst???
m-andi

Hallo zusammen,
in VBA bin ich noch ein Depp,
ich bräuchte bitte eure Hilfe.... das Problem ist folgendes:
Ich habe in einem Feld (J24) entweder tags, nachts, immer oder nie stehen,
Bei Tags soll es in die Felder G29 und G45:G52 ein "ja" schreiben, in die Felder G30:G44 ein "ne...
15.11.2008 13:30:42
Thread-ID: 1024753
4 Beiträge
Anzeige
VBA, Notiz ein- und wieder ausblenden
Burghard

Hallo ins Netz,
ich möchte mit Knopfdruck ein Textfeld (mit Inhalt, es existiert schon) oder ein Autoformat (z.B. Gefaltete Ecke) auf dem Blatt an einer bestimmten Stelle für 1 Minute plazieren und danach soll es wieder verschwinden. Also kopieren und dann automatisch die Kopie wieder lösc...
01.12.2008 09:08:18
Thread-ID: 1029158
2 Beiträge
IF/ELSE in Excel (Porto anhand Gewicht berechnen)
Thomas

Hallo zusammen,
ich erstelle gerade ein Bestellformular mit Excel 2007 und möchte ein IF/ELSE Abfrage erstellen, die im Großen und Ganzen anhand eines bekannten Gewichtes die Preisliste von DHL abbildet.
Das ganze würde ich so oder so ähnlich formulieren:
if ($gewicht_kg >...
30.01.2009 12:55:49
Thread-ID: 1045369
5 Beiträge
Andere Schreibweise für Formel in VBA
MAS

Einen wunderschönen guten Abend,
ich muss in einem Tabellenblatt einige Formeln per VBA erzeugen.
Mit Hilfe des Makrorecorders müsste ich diesen String erzeugen - die Formel ist allerdings nur recht schwer lesbar
Würde gerne schöne Zellbezeichnungen angeben - was muß ich denn dazu...
04.03.2009 16:56:56
Thread-ID: 1056514
5 Beiträge
VBA Code if or then nicht richtig
andreas

Hallo zusammen,
habe hier in einer Anwendung einen kleine Code bei dem wird der Systembenutzer abgefragt, das funktioniert. Jetzt soll folgendes passieren, wenn der Benutzer "Andreas" oder "martin2" ist, soll Spalte "f:G" eingeblendet sein, bei allen anderen Systembenutzern soll Spalte "F:G...
13.05.2009 11:25:25
Thread-ID: 1074763
9 Beiträge
VBA: abfragen, ob benannte Tabelle vorhanden ist
André

Moin zusammen,
wie kann ich per VBA abfragen, ob in einem Tabellenblatt bereits eine "benannte Tabelle" definiert ist?
Ich erstelle die Tabelle mit
Worksheets("Datensätze").ListObjects.Add(xlSrcRange, rg, , xlYes).Name = "Datenbereich"
Läuft das Makro dann ein weiteres mal, kom...
12.06.2009 14:18:00
Thread-ID: 1080995
2 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
15
2
9
3
4
1
4
4
8
1
5
4
6
4
5
5
7
8
8
1
1
11
5
5
2