Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1628to1632
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
1628to1632
1628to1632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Runtime Error 13 - Type mismatch

Runtime Error 13 - Type mismatch
11.06.2018 09:02:52
Torsten
Guten Morgen.
Habe mal wieder ein kleineres Problem. Hoffe auch diesmal kann mir jemand helfen.
Ich habe in Spalte P ein Incell Dropdown Menue mit 6 Eintreagen (Text).
Nun moechte ich erreichen, dass je nach Auswahl dort in Spalte N der vorhandene Eintrag abgeaendert wird auf "CLOSED". Dort steht entweder nichts oder "OPEN".
Folgenden Code habe ich, aber bekomme Runtime Error 13. Woran liegts? 
If Target.Value = "GI Query" Or "MRBR Query" Or "Invoice not booked" Then
Target.Offset(0, -2).Value = "CLOSED"
End If

Geht das nicht mit der Dropdown Liste? Oder kann ich dort nur mit Zahlen arbeiten?
Danke fuer eure Hilfe.

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Runtime Error 13 - Type mismatch
11.06.2018 09:18:37
EtoPHG
Hallo Torsten,
Bei deinem VBA Level wäre es für die Helfer wichtig, den ganzen Code zu sehen!
Mit grösster Wahrscheinlichkeit hast du vergessen die Ereignissteuerung auszuschalten und dein OR-Konstrukt ist syntaktisch falsch. 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Target.Count = 1 And Target.Column = 16) Then Exit Sub
Application.EnableEvents = False
Select Case Target.Text
Case "GI Query", "MRBR Query", "Invoice not booked"
Target.Offset(0, -2) = "CLOSED"
Case Else
Target.Offset(0, -2) = ""
End Select
Application.EnableEvents = True
End Sub
Gruess Hansueli
Anzeige
AW: Runtime Error 13 - Type mismatch
11.06.2018 09:33:16
Torsten
Vielen Dank fuer die schnelle Hilfe Hansueli.
Funktioniert prima.
Uebrigens war das der ganze code fuer dieses Ereignis ;-). Bin halt noch nicht soweit.
Dachte, es waere einfacher. Aber mit so einer Incell Dropdown Liste ist es das wohl nicht.
AW: Runtime Error 13 - Type mismatch
11.06.2018 09:54:55
EtoPHG
Hallo Torsten,
Zitat: Aber mit so einer Incell Dropdown Liste ist es das wohl nicht.
Das hat überhaupt nichts mit der Datenprüfung zu tun!
Wenn in einem Change-Ereignis Zellinhalte per VBA geändert werden, dann löst diese Änderung wiederum ein Change-Ereignis aus. Wird die Ereignissteuerung nicht ausgeschaltet, passiert das, bis es (oft) zu einem Fehler kommt. In deinem Fall war es so, dass die Offset Methode irgendwann einen negativen Spalten-Index bekam und dann...buummmmm.
Gruess Hansueli
Anzeige
AW: Runtime Error 13 - Type mismatch
11.06.2018 10:36:17
Torsten
Ahhhh, ok. Jetzt hab ichs. Danke nochmals
AW: Runtime Error 13 - Type mismatch
11.06.2018 10:56:32
Daniel
Hi
der TypeMismatch-Error kommt in den Change- und Selection-Change-Events auch immer dann, wenn man nicht berücksichtigt bedacht hat, dass Anwender auch mal mehr als eine Zelle ändern (z.B. beim Löschen oder einfügen mit Copy-Paste)
dann ergibt Target.Value nämlich ein Array, welches alle geänderten Werte enthält und ein Array lässt sich nicht mit einem Einzelwert vergleichen, das gibt dann diesen Fehler.
um das zu vermeiden, muss man wie gezeigt mit Target.Count (in neuen Excelversionen Target.CountLarge) abfragen, wieviele Zellen das Target enthält und entsprechend reagieren.
Gruß Daniel
Anzeige
AW: Runtime Error 13 - Type mismatch
11.06.2018 11:53:16
Torsten
Hallo Daniel. Auch dir vielen Dank fuer diesen Zusatz

220 Forumthreads zu ähnlichen Themen

PDF'saus Excel per VBA Run-time Error
Martin

Hallo,
ich habe folgendes Problem. Ich habe ein Makro geschrieben, welches automatisch PDF erzeugen soll.
Das zu druckende Sheet ist ein Template, welches sich seine Daten über eine ID zieht. In einem weiteren Sheet möchte ich in einer Spalte über "x" auswählen welche Sheets mit welch...
12.09.2008 10:14:00
Thread-ID: 1009296
5 Beiträge
Anzeige
Runtime Error 9 in leichtem Prog
San

Hallo Excelkollegen,
ich hoffe ihr habt gut geschlafen.
Ich habe nachfolgendes Programm geschrieben.
Ich brauche es um festzustellen, was in einem bestimmten Tabellenblatt die nächste freie Zeile ist.
piofpa und numb wird laut MsgBox korrekt übermittelt.
Den Code habe ich vo...
11.02.2009 03:42:00
Thread-ID: 1049424
7 Beiträge
Run time error 1004 / LastRow /"_Global" failed
Florian

Hi Excelgemeinde!
habe einen komischen, weil neuen Fehler beim bestimmen der letzten Zeile. Letzte Zeile bestimme ich so:
LastRowData = DataSheet.Cells(Rows.Count, 1).End(xlUp).Row - Not IsEmpty(DataSheet.Cells(Rows.Count, 1).End(xlUp)) - 1
Nun kommt seit neuestem die Fehlermeldung<...
29.06.2009 13:26:56
Thread-ID: 1085115
5 Beiträge
Anzeige
Exit bei Run-Time error
Marc

Hallo zusammen. Ich möchte das wenn bei dem unten genannten Code einfach auf Cancel gedrückt wird, das Marko beendet wird. Danke.
With Application.FileDialog(msoFileDialogOpen) .AllowMultiSelect = True .InitialView = msoFileDialogViewList .Show datei = .SelectedItems(1) End With Gruß
M...
21.07.2009 13:57:27
Thread-ID: 1090250
5 Beiträge
excel 2003 ok, doch runtime error in 2007
Deister

Hallo,
Der Text in einer Textbox soll beim Starten der Datei von rot auf schwarz blinken. Dies klappt mit Excel 2003, jedoch wenn jemand die Datei mit Excel 2007 öffnet dann bekommt er ein runtime error.
Was mache ich hier falsch?
Sub StartBlink1()
ActiveSheet.Shapes("Blinkbox")...
22.09.2009 16:35:53
Thread-ID: 1104689
5 Beiträge
Laufzeitfehler 424: Objekt erforderlich
Himmelsbach

Hallo,
Vielen Dank für die Hinweise, hat mir schon sehr weitergeholfen. Ich glaub die groben Sachen sollte ich nun auch gefunden haben, leider hänge ich noch bei folgender Funktion: Public Function readnotchbesser(schluessel As Variant) Dim sarray As Variant 'Array Dim iindex As Integ...
16.03.2010 08:51:32
Thread-ID: 1146080
8 Beiträge
Run-Time Error 1004 unüberwindbare Hürde
André

Hallo zusammen,
nach etlichen, vergeblichen Unternehmungen den "Copy Method of Worksheet Class failed" Fehler
zu beheben bzw. zu umgehen, hoffe ich, dass ihr mir helfen könnt.
Ziel ist es, eine möglichst große Zeitspanne (min. 1/2 Jahr) von täglichen Messdaten auswerten zu könne...
01.01.1970 00:00:00
Thread-ID: 1152653
14 Beiträge
Runtime error 50290
Fettertiger

Hallo zusammen,
bei einem Tool, das bei mindestens 30 Usern problemlos läuft (egal ob unter 2003 oder 2007), kommt es bei einem bestimmten User immer wieder zu einem Fehler mit dem Code 50290 (Application defined or Object defined error). Der Fehler tritt in der untenstehenden Funktion bei...
26.04.2010 15:52:26
Thread-ID: 1153832
3 Beiträge

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
4
5
6
4
3
4
4
7
13
2
3
6
1
6
11
1
10
3
4
6
2
11
4
8
2