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

Laufzeitfehler 13 - Typen unverträglich....Warum?

Forumthread: Laufzeitfehler 13 - Typen unverträglich....Warum?

Laufzeitfehler 13 - Typen unverträglich....Warum?
22.09.2016 09:25:48
Harald
Hallo,
jetzt muss ich Euch leider nochmal nerven...
Ich habe folgendes Problem:
Ich habe in der Spalte O eine Formel hinterlegt, die prüft, ob eingetragene Uhrzeiten in Spalte D größer als 12:00 Uhr sind und ob in der Spalte R für die jeweilige Zeile ein X eingetragen ist. Ist die Zeit größer als 12:00 Uhr und es ist ein X eingetragen, soll O den Wert 1 ausgeben, sonst 0 sein.
=WENN(UND(R12="X";D12>12/24);1;0)
Wenn der Wert 1 zurückgegeben wird, möchte ich eine Msg-Box anzeigen lassen, die auf den Fehler hinweist.
Mein Makro dazu:
Private Sub Worksheet_Calculate()
If Range("O12:O42").Value > 0 Then
MsgBox "Sie arbeiten am Faschingsdienstag bzw. am Kirchweihdienstag länger als 12.00 Uhr!",  _
vbCritical
End If
End Sub
Ich bekomme aber immer einen Laufzeitfehler 13 - Typen unverträglich zurück. Woran kann das liegen?
Herzlichen Dank im Voraus für die Antworten!
Viele Grüße
harald
Anzeige

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

Betreff
Datum
Anwender
Anzeige
Laufzeitfehler 13 - Typen unverträglich....Warum?
22.09.2016 09:51:19
Michael
Hi,
das liegt daran, daß Range("O12:O42") 30 Werte sind, die Du mit nur EINEM Wert vergleichst.
Vermutlich bremst Du Excel mit dem Worksheet_Calculate aus, weil das bei JEDER Berechnung ausgeführt wird. Ich fände es geschickter, die Zellen R12:R42 bzw. D12:D42 bei der EINGABE abzufragen.
Schöne Grüße,
Michael
Anzeige
AW: Laufzeitfehler 13 - Typen unverträglich....
22.09.2016 09:56:49
Daniel
Hi
der Fehler kommt, weil der Vergleich mit > versucht, zwei Einzelwerte miteinander zu vergleichen.
dein Range("O12:O42").Value ist aber kein Einzelwert, sondern eine Gruppe (Array) mit 31 Einzelwerten, und diese Gruppe kannst du nicht mit einem Einzelwert vergleichen, daher der Fehler.
Du könntest hier aber mit ZählenWenn ermitteln, wie oft die genannte Bedingung im Bereich erfüllt ist und dann entsprechend reagieren:
IF Worksheetfunction.CountIf(Range("O12:O42"), ">0") > 0 Then
Gruß Daniel
Anzeige
AW: Laufzeitfehler 13 - Typen unverträglich....
22.09.2016 10:05:15
Harald
Hallo! Ganz herzlichen Dank für Eure Hilfe!
AW: Laufzeitfehler 13 - Typen unverträglich....
22.09.2016 10:37:16
Harald
Hallo Daniel!
Jetzt habe ich das Problem, dass er mir die Meldung immer anzeigt wenn ich irgendetwas eingebe...
Gruß
Harald
AW: Laufzeitfehler 13 - Typen unverträglich....
22.09.2016 11:05:33
Daniel
Hi
dann ändere die Bedingung entsprechend ab.
mehr kann ich dir jetzt auch nicht sagen, weil ich nicht weiß, was du dort eingibst und wann die Meldung angezeigt werden soll.
Gruß Daniel
Anzeige

Forumthreads zu verwandten Themen

VBA Summenprodukt-Wochentag Typen unverträglich
Alfons

Hallo,
in Spalte A stehen die Tage: 01.02.2010, 02.02.2010 usw.
Zellformat ist Standard.
Mit VBA will ich davon die Anzahl der Montage ermitteln.
Dim rng As Range
Set rng = Range("A2:A65000")
MsgBox WorksheetFunction.SumProduct((Weekday(rng, 2) = 1) * 1)
Warum kommt...
29.03.2010 07:12:46
Thread-ID: 1148988
11 Beiträge
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
Anzeige
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
Laufzeitfehler typen unverträglich
Henry

Guten Morgen,
ich prüfe die spalte mittels vba
For Each Zelle In Bereich If Zelle = "" Then 'nix unternehmen ElseIf Zelle = Date Then ... In der Zelle wurde steht entweder ein Datum oder keins....
Das Datum wird durch eine Formel bzw. Zellbezug erzeugt.
Diese Formel hatte ich...
12.11.2014 08:40:35
Thread-ID: 1391778
7 Beiträge
Laufzeitfehler 13, Typen unverträglich
stormlamp

Hallo Zusammen,
ich habe folgendes Makro, um in einer Tabelle alle Steuerzeichen zu löschen:
Sub SteuerzeichenLoeschen() Dim rngZelle As Range Dim strZeichen As String Dim lngI As Long Dim booZelleMitSteuerzeichen As Boolean For Each rngZelle In ActiveSheet.UsedRange.Cells For lngI = 1...
22.01.2015 15:33:23
Thread-ID: 1404442
5 Beiträge
Laufzeitfehler 13 - Typen unverträglich
Heinz

Hallo Excel Gemeinde
Seit neuesten (eventuell nach Update) bekomme ich im unteren Code,in der Zeile
If InStr(arrRange(n, nn), strSuchWert) > 0 Then
Einen Fehler:(13) "Typen unverträglich"
Könnte dazu jemand seine Hilfe anbieten?
Danke, Heinz
Private Sub Worksheet_Chan...
03.02.2015 18:42:23
Thread-ID: 1407057
7 Beiträge
Anzeige
Laufzeitfehler 13: typen unverträglich
Henry

Guten Morgen,
ich bekomm plötzlich den Laufzeitfehler 13 : Typen unverträglich.
Vorher funktionierte es und es hat sich nichts geändert.
Sieht jemand evtl woran das liegen könnte ?
Sub IDiskrepancy() Dim LoI As Long ' 1. Schleifenvariable Dim LoJ As Long ' 2. Schleifenvariable...
13.03.2015 10:37:27
Thread-ID: 1414798
6 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Laufzeitfehler 13 - Typen unverträglich in Excel VBA beheben

Schritt-für-Schritt-Anleitung

  1. Formel Überprüfen: Stelle sicher, dass die Formel in Spalte O korrekt ist. Die Formel sollte so aussehen:

    =WENN(UND(R12="X";D12>12/24);1;0)

    Diese prüft, ob der Wert in Spalte D größer als 12:00 Uhr ist und ob in Spalte R ein "X" steht.

  2. VBA Code Anpassen: Der folgende VBA-Code kann verwendet werden, um die MsgBox nur dann anzuzeigen, wenn tatsächlich Werte in Spalte O größer als 0 sind:

    Private Sub Worksheet_Calculate()
   If WorksheetFunction.CountIf(Range("O12:O42"), ">0") > 0 Then
       MsgBox "Sie arbeiten am Faschingsdienstag bzw. am Kirchweihdienstag länger als 12.00 Uhr!", vbCritical
   End If
End Sub

  3. Fehlerbehandlung Implementieren: Füge Fehlerbehandlungsroutinen hinzu, um den Laufzeitfehler 13 zu vermeiden. Dies kann durch das Überprüfen des Datentyps erfolgen.

Häufige Fehler und Lösungen

  • Fehlerhafte Bereichszuweisung: Wenn Du versuchst, den gesamten Bereich "O12:O42" mit einem einzelnen Wert zu vergleichen, tritt der Laufzeitfehler 13 auf. Verwende stattdessen WorksheetFunction.CountIf, um die Anzahl der erfüllten Bedingungen zu zählen.

  • Falsche Verwendung von Excel-Funktionen: Stelle sicher, dass die verwendeten Funktionen im richtigen Kontext stehen. Der Vergleich Range("O12:O42").Value > 0 führt zu einem Typen unverträglich Laufzeitfehler, weil Du ein Array mit einem Wert vergleichst.

Alternative Methoden

  • ZählenWenn-Funktion: Nutze die ZählenWenn-Funktion, um die Anzahl der Zellen zu zählen, die die Bedingung erfüllen:

    If WorksheetFunction.CountIf(Range("O12:O42"), ">0") > 0 Then

  • Direkte Abfrage der Zellen: Anstatt den gesamten Bereich zu prüfen, kannst Du die Werte in den einzelnen Zellen abfragen, um den Laufzeitfehler 13 zu vermeiden.

Praktische Beispiele

  1. Beispiel für die Verwendung der ZählenWenn-Funktion:

    If WorksheetFunction.CountIf(Range("O12:O42"), ">0") > 0 Then
   MsgBox "Es gibt Werte größer als 0 in Spalte O."
End If

  2. Direkte Zellprüfung:

    For i = 12 To 42
   If Range("O" & i).Value > 0 Then
       MsgBox "Wert in O" & i & " ist größer als 0."
   End If
Next i

Tipps für Profis

  • Debugging Nutzen: Verwende das Debugging-Tool in Visual Basic for Applications (VBA), um den Code Schritt für Schritt durchzugehen und den genauen Punkt zu finden, an dem der Laufzeitfehler 13 auftritt.

  • Variablen Typen Festlegen: Stelle sicher, dass Du Deine Variablen in VBA korrekt typisierst, um Typen unverträglich Fehler zu vermeiden. Beispiel:

    Dim cellValue As Variant
cellValue = Range("O12").Value

FAQ: Häufige Fragen

1. Was bedeutet Laufzeitfehler 13?
Der Laufzeitfehler 13 tritt auf, wenn in VBA ein Datentyp nicht mit einem anderen kompatibel ist, z.B. wenn ein Array mit einem einzelnen Wert verglichen wird.

2. Wie kann ich den Laufzeitfehler 13 beheben?
Überprüfe Deine Formeln und VBA-Codes auf falsche Vergleiche. Nutze Funktionen wie ZählenWenn, um die Anzahl der erfüllten Bedingungen zu zählen, anstatt einen gesamten Bereich mit einem Wert zu vergleichen.

Beliebteste Forumthreads (12 Monate)

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