Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 14:45:54
Verknüpfung Tabelleneinträge mit Datumsspalte
27.04.2024 12:08:58
Mittelwertwenn - ich kapiere es nicht :-(
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1896to1900
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
1896to1900
1896to1900
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

vba - Typen unverträglich

vba - Typen unverträglich
15.09.2022 10:58:36
Fred
Hallo Excel Experten,
ich brauche Hilfe.
In Sheet "Ergebnisse" sind die Spiele mit Ergebnissen.
Die Endstände sollen entsprechend in Sheet "Lager2" eingetragen werden.
Fehlermeldung: "Typen unverträglich"
Es liegt anscheinend daran, dass wenn ein Spiel in Sheet "Ergebnisse" nicht vorhanden ist, eine Fehlermeldung erscheint.
In Zeile 23 ("Lager2") ist ein Spiel eingetragen, welches in "Ergebnisse" nicht vorhanden ist. -- Löscht man dieses Spiel, läuft das Makro fehlerfrei.
Kann im Makro dies verbessert werden?
https://www.herber.de/bbs/user/155187.xlsm
Gruss
Fred

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

Betreff
Datum
Anwender
Anzeige
AW: vba - Typen unverträglich
15.09.2022 11:17:52
Nepumuk
Hallo Fred,
so:

Public Sub Ergebnis_neu2()
sn = Sheets("Lager2").ListObjects(1).DataBodyRange
sp = Sheets("Ergebnisse").ListObjects(1).DataBodyRange
With CreateObject("scripting.dictionary")
For j = 1 To UBound(sp)
.Item(sp(j, 1)) = Array(sp(j, 12), sp(j, 13), sp(j, 14), sp(j, 15))
Next
For j = 1 To UBound(sn)
If .Exists(sn(j, 1)) Then
sn(j, 311) = .Item(sn(j, 1))(0)
sn(j, 312) = .Item(sn(j, 1))(1)
sn(j, 313) = .Item(sn(j, 1))(2)
sn(j, 314) = .Item(sn(j, 1))(3)
End If
Next
End With
Sheets("Lager2").ListObjects(1).DataBodyRange = sn
End Sub
Gruß
Nepumuk
Anzeige
AW: vba - Typen unverträglich
15.09.2022 11:34:48
Fred
Hallo Nepumuk,
die Zuordnungen in eine "Wenn / Exists-Methode" einzubauen, ist eine perfekte Lösung.
Vielen Dank für deine Aufmerksamkeit und Kompetenz!
Gruss
Fred
AW: vba - Typen unverträglich
15.09.2022 11:23:49
Piet
Hallo
sehr höfliche Frage zum Code von snb, einer der besten Programmierer die ich kenne:
Stimmen die Daten im Array wirklich überein? Da habe ich im Augenblick meine Zweifel.
Mir fiel auf das die Zeilen der ID Nr. in Lager2 und Ergebniss nicht übereinstimmen!
z.B. Die ID Nr von Lager2, in Zeile 11+12 stehen im Ergebniss in Zeile 487 + 496
Ist das Ergebniss im Array trotzdem korrekt?
mfg Piet
Anzeige
AW: vba - Typen unverträglich
15.09.2022 11:49:06
Fred
Hallo Piet,
die Ergebnisse aus Sheet "Ergebnisse" werden durchgehend der entsprechenden ID in Sheet "Lager2" richtig zugeordnet.
Das "Problem" ist gelöst.
Gruss
Fred
AW: vba - Typen unverträglich
15.09.2022 11:29:44
Daniel
Hi
du kannst abfragen, ob der gesuchte Wert in der Liste vorhanden ist, und wenn nein, diesen überspringen.

    For j = 1 To UBound(sn)
If .exists(sn(j, 1)) Then
sn(j, 311) = .Item(sn(j, 1))(0)
sn(j, 312) = .Item(sn(j, 1))(1)
sn(j, 313) = .Item(sn(j, 1))(2)
sn(j, 314) = .Item(sn(j, 1))(3)
End If
Next
die Frage ist, was mit den Werten in sn(j...)) passieren soll, wenn kein Eintrag in Ergebnisse vorhanden ist.
Sollen dann die vorhanderen Werte beibehalten oder gelöscht werden?
wenn sie gelöscht werden sollen, müsstest du das im Else-Teil des Ifs programmieren,aber das solltest du alleine hinbekommen, wenn du dictionarys in dieser Form verwendest.
Gruß Daniel
Anzeige
AW: vba - Typen unverträglich
15.09.2022 11:36:14
Fred
Hallo Daniel,
so ist es perfekt!
Gruss
Fred

188 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

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