Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1800to1804
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
1800to1804
1800to1804
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Laufzeitfehler 13 Typen unverträglich

Laufzeitfehler 13 Typen unverträglich
18.12.2020 17:04:26
Tim
Hallo,
habe einen ,,Laufzeitfehler 13 Typen unverträglich" Problem ei diesem Befehl:
Totalcells1 = Application.WorksheetFunction.CountIf(Range("J:J"), "*Test*" Or "*Test 1*")
mir ist aufgefallen sobald ich alles hinter or weglasse funktioniert das.
Totalcells1 = Application.WorksheetFunction.CountIf(Range("J:J"), "*Test*")
wäre sehr dankbar für eine Lösung.

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Laufzeitfehler 13 Typen unverträglich
18.12.2020 17:11:34
Hajo_Zi
Countif hat nur 2 Argumente Vielleicht COUNTIFs
Zählenwenns()

AW: Laufzeitfehler 13 Typen unverträglich
18.12.2020 17:25:57
onur
Bei Funktionen musst du auch die Excel-Syntax einhalten, selbst wenn du sie mit VBA hineinschreibst.
Bei VBA gibt es "a OR b" aber bei EXCEL heisst es "ODER(a;b)" oder engl. "OE(a,b)" .
AW: Laufzeitfehler 13 Typen unverträglich
21.12.2020 09:45:09
Tim
Hallo,
danke für eure antworten. Ich komme trotzdem nicht weiter.
countifs funktioniert nicht..
und ich arbeite mit VBA, da funktioniert nur ,,or" und kein oder etc.
wäre froh wenn jemand weiterhelfen könnte
AW: Laufzeitfehler 13 Typen unverträglich
21.12.2020 10:31:44
Daniel
Hi
Mal abgesehen davon, dass "*Test*" schon alle "*Test 1*" mitgezählt hat und deswegen das "*Test 1*" überflüssig ist:
Diese Konstruktion, die du dir da vorgestellt hast, funktioniert so weder in VBA, noch als Excelformel.
VBA wird hier zuerst versuchen, den Ausdruck "*Test*" Or "*Test 1*" zu berechnen, was aber nicht funktioniert, weil nur Wahrheitswerte (WAHR/FALSCH) mit ODER verrechnet werden können, aber keine Texte.
Hier musst du entweder beide Zählungen einzeln berechnen und die Ergebnisse zusammenaddieren:
Totalcells1 = Application.WorksheetFunction.CountIf(Range("J:J"), "*Test*") + Application.WorksheetFunction.CountIf(Range("J:J"), "*Test 1*")
Dies darf man aber nur dann durchführen, wenn beide Prüfungen sich gegenseitig ausschließen und nie gleichzeitig in einer Zelle erfüllt sein können, denn dann zählt man diese Zellen doppelt.
Alternativ kann man das Zählen auch selber programmieren 
Totalcells = 0
For each X in activesheet.usedrange.columns(10).value
If X like "*Test* or X Like "*Test 1*" then
Totalcells = Totalcells + 1
Ende If
Next

Gruß Daniel
Anzeige
AW: Laufzeitfehler 13 Typen unverträglich
21.12.2020 10:32:42
Daniel
Hi
Mal abgesehen davon, dass "*Test*" schon alle "*Test 1*" mitgezählt hat und deswegen das "*Test 1*" überflüssig ist:
Diese Konstruktion, die du dir da vorgestellt hast, funktioniert so weder in VBA, noch als Excelformel.
VBA wird hier zuerst versuchen, den Ausdruck "*Test*" Or "*Test 1*" zu berechnen, was aber nicht funktioniert, weil nur Wahrheitswerte (WAHR/FALSCH) mit ODER verrechnet werden können, aber keine Texte.
Hier musst du entweder beide Zählungen einzeln berechnen und die Ergebnisse zusammenaddieren:
Totalcells1 = Application.WorksheetFunction.CountIf(Range("J:J"), "*Test*") + Application.WorksheetFunction.CountIf(Range("J:J"), "*Test 1*")
Dies darf man aber nur dann durchführen, wenn beide Prüfungen sich gegenseitig ausschließen und nie gleichzeitig in einer Zelle erfüllt sein können, denn dann zählt man diese Zellen doppelt.
Alternativ kann man das Zählen auch selber programmieren 
Totalcells = 0
For each X in activesheet.usedrange.columns(10).value
If X like "*Test* or X Like "*Test 1*" then
Totalcells = Totalcells + 1
Ende If
Next

Gruß Daniel
Anzeige

146 Forumthreads zu ähnlichen Themen

Laufzeitfehler "13": Typen unverträglich
Jochen

Hallo Freunde,
habe folgendes Makro aufgezeichnet:
Sheets("Auftrag 1").Select
Range("O1").Select
Selection.EntireColumn.Hidden = False
Range("O11:O310").Select
Selection.Copy
Range("P11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, Skip...
01.12.2009 09:55:30
Thread-ID: 1121131
13 Beiträge
Anzeige
VBA-Laufzeitfehler 13 bei Funktion MONTH
MikeS

Hallo,
wer kann mir sagen, warum mein Kollege neuerdings Probleme bei der VBA-Funktion Month hat?
Bei mir funktioniert sie und er erhält (alle gesetzten Verweise sind identisch mit meinen) einen Laufzeitfehler 13, Typen unverträglich !
Vielen Dank, Mike
09.06.2010 15:00:41
Thread-ID: 1161094
3 Beiträge
Laufzeitfehler 13 Typen unverträglich
Michael


Hallo Forum,
ich habe folgendes Problem. Ich möchte mit einem Makro in Excel 2010 die Daten eines Tabellenblattes in eine txt-Datei schreiben. Leider kommt der Laufzeitfehler 13 Typen unverträglich.
folgendes Makro:
Sheets("Transfer").Select
Open "C:\temp\Stammdaten.txt" Fo...
06.12.2012 14:42:13
Thread-ID: 1289623
6 Beiträge
Anzeige
Funktion mit Laufzeitfehler 13 - Typen unverträgl.
Peter

Guten Tag
Bei meiner Funktion erhalte ich eine Fehlermeldung (Laufzeitfehler '13' - Typen unverträglich). Wenn ich Sie jedoch Schritt für Schritt ablaufen lasse, erhalte ich keinen Fehler - bis zur Rückgabe. Was ist da nicht korrekt.
Im Weiteren habe ich festgestellt, dass ausgeblendete...
08.07.2013 17:17:37
Thread-ID: 1321547
6 Beiträge
Laufzeitfehler 13 Typen unverträglich
Kleofaas

Hallo liebes Herbers-Team,
nachdem ich von Euch hervorragende Hilfe bei meiner letzten Anfrage erhalten habe, habe ich diesen (modifizierten) Code eingebaut:
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$6" And Target = "VWNF" Then If MsgBox("Verkauf mit S...
09.12.2013 17:48:11
Thread-ID: 1341903
4 Beiträge
Typen unverträglich Laufzeitfehler 13
matthias

Hallo,
ich versuche einen String an zwei Stellen zu vergleichen. Dabei erhalte ich immer den Laufzeitfehler 13 unverträgliche Typen. Habe ich den falschen Variablen-Typen gewählt (Mit Variant ging es auch nicht)? Dim artikelnummer As String artikelnummer = Sheets("Lagerplatz Verwaltung").Ce...
30.01.2014 14:00:57
Thread-ID: 1347363
3 Beiträge
Fehler Nr. 13 - Typen unverträglich
Tobias

Hallo, ich habe folgendes Problem ..
ich habe eine Datei bei der die Bestellungen für einen Tag zusammengezählt werden
Bislang funkioniert alles wunderbar.
Nur wenn die Bestellnummern nicht nur aus Zahlen sondern aus einer Kombination von Buchstaben und Zahlen sind kommt der Fehle...
23.03.2014 18:32:24
Thread-ID: 1354571
13 Beiträge
Laufzeitfehler 13 - Typen unverträglich
Erwin

Hallo Forum,
ich habe eine Auswahlliste (Userform1) aus einer anderen Anwendung übernommen, auf die neuen Namen angepasst und möchte diese aufrufen.
Leider erscheint Laufzeitfehler 13 - Typen unverträglich.
Ich glaube, ich habe den Fehler auch gefunden (s. Kommentar), weis aber nich...
06.08.2014 20:56:55
Thread-ID: 1374835
16 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
12
10
2
5
1
5
3
2
12
15
6
4
6
5
3
4
8
8
2
8
3
2
3
16
2