Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1596to1600
1596to1600
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

alle x in einer Zeile zählen

Forumthread: alle x in einer Zeile zählen

alle x in einer Zeile zählen
19.12.2017 11:00:42
nilo
Hi,
ich versuche in einer kompletten Zeile 1 die x zu zählen, sobald mehr als ein x eingetragen wurde soll ein Fehler erscheinen.
Sollte man dazu sowas in der Art nutzen:
ActiveSheet.Range.End(xlUp).Row.Value("x").Count
Das ist sicherlich falsch, aber Count gibt mir doch die Summe oder?
LG
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: aVBA zählenwenn
19.12.2017 11:06:23
hary
Moin 
If Application.CountIf(Rows(1), "x") > 1 Then
MsgBox "zuviel"
End If

gruss hary
AW: aVBA zählenwenn
19.12.2017 11:16:28
nilo
DANKE Hary es funktioniert!
wie kann man das letzte eingegebene x löschen (nachdem die Meldung "Zuviel" kommt)? Kann man das hier noch miteinbauen?
AW: aVBA zählenwenn
19.12.2017 11:26:28
nilo
funktioniert das mit clearcontents?
Anzeige
AW: VBA zählenwenn oder Datengueltigkeit
19.12.2017 12:01:49
hary
Moin
Einfacher ist es mit Daten/Datenueberpruefung/Benutzerdefiniert und da diese Formel rein:
=ZÄHLENWENN($A$1:$H$1;"x") $H$1 anpassen wie weit du es brauchst.
oder du nimmst gleich das Worksheet_Change Ereigniss, wirkt gleich beim eintragen.
Code in den Code der Tabelle. Rechtsklick auf den Reiter/Code anzeigen. 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Row = 1 Then
If Application.CountIf(Rows(1), "x") > 1 Then
MsgBox "zuviel"
Application.Undo
End If
End If
End Sub

gruss hary
Anzeige
AW: VBA zählenwenn oder Datengueltigkeit
19.12.2017 12:13:08
nilo
DANKE! Application.Undo ist genau das was ich gebraucht habe, wieder etwas gelernt danke Hary!
AW: aVBA zählenwenn
19.12.2017 11:28:48
Bernd
Servus,
mit Target.Value="" nach der MsgBox erweitern.
Grüße, Bernd
AW: aVBA zählenwenn
19.12.2017 11:32:00
nilo
Hi Bernd danke für deine Antwort. Aber wenn ich das so mache wie du es gesagt hast, dann löscht er den Eintrag erst wenn ich nochmal auf die Zelle klicke und nochmal die MsgBox akzeptiere..erst dann ist es weg. Würde es direkt nach der Fehlermeldung gerne "löschen" ohne nochmal drauf klicken zu müssen :D
DANKE.
Anzeige
AW: aVBA zählenwenn
19.12.2017 11:34:32
Bernd
dann davor :-)

Forumthreads zu verwandten Themen

Syntax für Summe aus mehreren Blättern
friedolin

Hallo Forum,
ich möchte aus mehreren Blättern, die da heißen " 01.01. , 02.01. 03.01. " usw. die Summe der Spalte D40 (immer gleich) in ein neues Blatt ermitteln. Habe schon einiges probiert, aber die Syntax macht Probleme.
diese Formel funktioniert nicht! =Summe(01.01. : 31.01. !D40...
18.08.2008 14:55:54
Thread-ID: 1002612
7 Beiträge
Anzeige
Umwandlung text nach zahlen bei Formulareingabe
Dieter

Hallo miteinander,
ich habe ein Problem mit der umwandlung von Text nach Zahlen. In meinem Formular habe ich Textfelder definiert, in dem eigentlich nur Zahlen eingetragen werden. Nun sollen diesen Werte in einer Zelle abspeichern und weitere Berechnung durchführen, leider werden diese Zahl...
26.08.2008 19:48:34
Thread-ID: 1004910
4 Beiträge
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Anzeige
Suche in Text mit mehreren Suchkriterien
Christian

Hallo Forum,
ich möchte prüfen, ob ein Text mindestens einen Text aus einer Liste enthält.
Bsp: enthält der Text
"das ist die Liste der gelieferten Früchte: Apfel, Birnen"
einen der Texte enthält:
"Banane", "Kirsche", "Birnen"
in dem Fall ja. Ich brauche keine Position...
14.01.2009 11:32:00
Thread-ID: 1039544
10 Beiträge
Zahlen in Text umwandeln
Thomas

Liebe Excelianer
Ich fülle per Excel ein Formular aus, welches ich anschliessend auf einen Check drucke. Darauf gibt es ein Feld mit einem Total, welches unten in Textform übertragen werden muss (Betrag in Worten).
Was kann ich tun, damit diese Zahl automatisch in Buchstaben umgewandelt...
01.04.2009 23:23:30
Thread-ID: 1066161
16 Beiträge
Texte aus anderem Tabellenblatt kopieren
Stefan

Hallo zusammen,
in einer Tabelle habe ich mir im Tabellenblatt 'Umwandeln' für verschiedene Textmanipulationen Formeln eingerichtet. Die Texte, die verändert werden sollen (Artikelbezeichungen) bekomme ich in Form einer Exceltabelle und ich ziehe mir das Tabellenblatt 'Artikel' als neues Ta...
22.04.2009 23:35:00
Thread-ID: 1070529
3 Beiträge
Summe aus einer Tabelle mit mehreren Kriterien
Erik

Hallo zusammen,
momentan verzweifel ich an einem Problem in Excel.
Die Tabelle hat das folgende Format
Europe: 1 = Ja und 0 = nein
Europe Type Size Price
1 x S 19
1 y L 145
0 x S 291<...
10.06.2009 13:50:10
Thread-ID: 1080478
4 Beiträge
Summen aus mehreren Dateien bilden
Rudolf

Hallo Excel-Freunde,
ich habe z.b. 50 Dateien, die sich alle in einem Ordner befinden und fortlaufend nummeriert sind (also 1.xls, 2.xls usw..
In allen Dateien befindet sich ein Arbeitsblatt mit dem gleichen Aufbau. Ich möchte nun in einer weiteren Datei mit dem gleichartig aufgebauten...
28.06.2009 19:07:21
Thread-ID: 1084895
3 Beiträge
Anzeige
Autofilter über mehrere Tabellenblätter
Burk

Hallo,
ich habe mehre Blätter in einer Mappe mit jeweils einer großen Liste
Gibt es die Möglichkeit Datensätze mit einem bestimmten Feldeintrag über mehre Blätter hinweg gleichzeitig herauszufiltern, wie es der Autofilter mit einer Tabelle macht?
Vielleicht mit VBA?
Bin für alle...
02.07.2009 11:17:06
Thread-ID: 1085862
5 Beiträge
Anzeige
Excel 2002 Summen aus Listen mehrerer Datenblätter
Hagen

Hallo,
ich hoffe einer von euch kann mir helfen.
Ich bin absoluter Neuling bei Excel und habe dummerweise eine Aufgabe übernommen von der ich dachte sie sei leichter.
Folgendes Problem:
Ich ich habe mehrere Datenblätter auf dem ersten (Auswertung) sollen hinter mehreren Punkten...
05.07.2009 15:19:42
Thread-ID: 1086471
4 Beiträge
Pivot aus mehreren Arbetsblättern
vespa

Hallo zusammen,
bin auf Excel 2007 umgestiegen. Ich versuche jetzt ein Pivot-Tabelle aus mehreren Arbeitsblättern zu erstellen. Kann mir jemand sagen wie das in Excel 2007 funktioniert?
Danke und Gruß
Vespa
21.07.2009 11:04:14
Thread-ID: 1090154
7 Beiträge
Bereiche aus mehreren blättern in 1 blatt einfügen
Christian

Hallo allerseits,
ich möchte gerne aus mehreren tabellenblättern bereiche, die dynamisch festgelegt wurden, in ein "Sammel" Tabellenblatt per makro kopieren. Die Lösung steht soweit, das Blöde ist, das ich ja nicht weiss wie gross die bereiche sind, und wo ich dann ansetzen kann um den näch...
23.07.2009 10:57:47
Thread-ID: 1090724
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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