Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
808to812
808to812
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
10.10.2006 11:17:34
Thomas
Hallo,
Folgendes Problem:
In einem Sheet ist Folgender Code hinterlegt:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Not Intersect(Target, Range("M17:M999")) Is Nothing Then
If LCase(Target) = "ok" Then
Target.Offset(0, -7).ClearContents
Target.Offset(0, -1) = "Erledigt"
Else
If LCase(Target) = "nok" Then
Target.Offset(0, -7).ClearContents
Target.Offset(0, -1) = "Retoure"
End If
End If
End If
End Sub

Wird nun ein Bereich markiert (B17:M17) und der inhalt gelöscht, bzw werden mehere Zeilen Inhalte eingefügt kommt Laufzeitfehler "13" Typen Unverträglich.
Wie kann ich bei solchen Aktionen den Laufzeitfehler umgehen?
Danke für eure Hilfe
Tom
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Laufzeitfehler "13" / Typen unverträglich
10.10.2006 11:37:43
Harald
Hallo Tom,
quick'n'dirty;-)
If Not Intersect(Target, Range("M17:M999")) Is Nothing And Target.Count = 1 Then
Gruss Harald
AW: Laufzeitfehler "13" / Typen unverträglich
10.10.2006 11:49:23
fcs
Hallo Tom,
das Problem ist, dass LCase immer nur den Inhalt einer Zelle verarbeiten kann. Sind mehrere Zellen markiert, dann kommt der Laufzeitfehler.
Eine Möglichkeit hat Harald schon gezeigt. Hier muss du in Spalte M jedoch immer jede Zelle einzeln ändern.
Folgende Variante ermöglicht das gleichzeitige Ändern mehrerer Zellen in der Spalte M. z.B. durch Kopieren oder Ziehen mit der Maus.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Target.Column = 13 And Target.Row >= 17 And Target.Columns.Count = 1 Then
For Each rng In Target
If LCase(rng) = "ok" Then
rng.Offset(0, -7).ClearContents
rng.Offset(0, -1) = "Erledigt"
Else
If LCase(rng) = "nok" Then
rng.Offset(0, -7).ClearContents
rng.Offset(0, -1) = "Retoure"
End If
End If
Next rng
End If
End Sub

Gruß
Franz
Anzeige
AW: Laufzeitfehler "13" / Typen unverträglich
10.10.2006 11:55:45
Thomas
Na das ging ja fix *freu*
Klappt wunderbar, Danke euch beiden für die Hilfe
grüsse Tom
;

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

Beliebteste Forumthreads (12 Monate)

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