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

Laufzeitfehler 13 - Typen unverträglich

Forumthread: Laufzeitfehler 13 - Typen unverträglich

Laufzeitfehler 13 - Typen unverträglich
12.09.2018 16:34:07
marta
Hallo
Ich bastle gerade an einer Userform mit einer ComboBox für die Monate und 30 Textfeldern.
In 23 Textfeldern gebe ich, werte ein.
Die Textfelder von 24 bis 30 rechen dann die Summe aus.
Das funktioniert auch prima.
Aber wenn, ich dann in der ComboBox einen Monat auswählen will kommt eine Fehlermeldung.
Die Fehlermeldung lautet: Laufzeitfehler 13 - Typen unverträglich.
Und stopp dann immer bei diesem Code :
Private Sub TextBox24_Change()
TextBox24 = Format(CDbl(TextBox24), "#,###0.00€")
End Sub

Was muss ich ändern?
Kann jemand helfen?
Hier ist meine Beispieldatei: https://www.herber.de/bbs/user/123895.xlsm
Gruß Marta
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Laufzeitfehler 13 - Typen unverträglich
12.09.2018 16:42:02
Hajo_Zi
Hallo Marta,
in der TextBox ist keine Zahl, sondern Text. Vorher das € entfernen.

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
AW: Laufzeitfehler 13 - Typen unverträglich
12.09.2018 16:42:03
Daniel
Hi
die Funktion CDBL kann den Text "" (Leerstring) nicht in eine Zahl wandeln.
du solltest daher eine Sicherheitsabfrage voranstellen.
if IsNumeric(Textbox24) then Textbox24 = Format(CDbl(Textbox24), "#,###0.00€")
Gruß Daniel
Anzeige
AW: Laufzeitfehler 13 - Typen unverträglich
12.09.2018 16:51:55
Gerd
Moin Marta!
Private Sub TextBox24_Change()
If IsNumeric(TextBox24) Then
TextBox24 = Format(CDbl(TextBox24), "#,###0.00€")
End If
End Sub
Ich habe die Sache nur kurz angetestet; bei TextBox30 dito.
Alternativ wäre ein Else-Zweig mit TextBo24 = "0,00€".
Davon, Zahlen mit Währungskürzel in Steuerelementen zu kombinieren, halte ich aber prinzipiell nichts.
Gruß Gerd
Anzeige
AW: Laufzeitfehler 13 - Typen unverträglich
12.09.2018 17:10:00
marta
Hallo
Daniel dein Code funktioniert prima. Danke für die schnelle Antwort.
Gruß Marta
;

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

Beliebteste Forumthreads (12 Monate)

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