Werte in zwei Dateien vergleichen und ändern wenn verschieden
#11
Vielen Dank für deine Zeit @ Atilla.

Ich bekomme einen "Run-time error '13'" in dieser Zeile:

x = Application.Match(feldAlt(i, nrSp_Alt), Application.Index(feldNeu, 0, nrSP_Neu), 0)

An was liegt das wohl?
Top
#12
Hallo,

dann ist wahrscheinlich Vorgabe Nr1 nicht erfüllt.
Die Überschrift in einer Tabelle oder in beiden heißt nicht "Seriennummer".
Gruß Atilla
[-] Folgende(r) 1 Nutzer sagt Danke an atilla für diesen Beitrag:
  • Marcinoy
Top
#13
Habe dies nochmal überprüft aber die Überschrift ist genau richtig.
Top
#14
und befindet sich in Zeile 1?
Gruß Atilla
[-] Folgende(r) 1 Nutzer sagt Danke an atilla für diesen Beitrag:
  • Marcinoy
Top
#15
Habe jetzt Mal diese Zeile gelöscht:
  Dim x As Long
Auf den ersten Blick scheint das zu funktionieren... Oder was denkst du?
Top
#16
Hallo,


aah, Ok. Jetzt verstehe ich. Es ist eine Seriennummer nicht gefunden worden

Normalerweise sollte da nur

Dim x

stehen, ohne as Long.
Mein Fehler.

Weil Du ohne Variablen Deklaration, also ohne Option Explicit am Anfang des Codes, arbeitest, kannst Du es löschen, sonst eben nur Dim x.
Gruß Atilla
[-] Folgende(r) 1 Nutzer sagt Danke an atilla für diesen Beitrag:
  • Marcinoy
Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste