Code schneller machen, viel schneller!?

[snb]

Ausgezeichnet !

[cysu11]

Hallo snb,

ich hoffe das ist ernst gemeint und nicht ironisch!? :)

LG
Alexandra

[schauan]

Hallöchen Alexandra,

mal oT eine Frage - wie / warum machst Du das mit dem Code? ( #7 )

[cysu11]

Hi Andre,

das ist keine Absicht, das habe ich im mein Post #9 schon geschrieben, ich habe keine Ahnung, ich habe hier auf den Button "Code" geklickt und dann habe ich den Code per Copy & Paste eingefügt. Das war es! Ich mach das ja nicht zum ersten mal, aber warum das gesplittet gezeigt wird, keine Ahnung!?

Du vielleicht?

LG
Alexandra

[schauan]

Hallöchen,

kein Plan was da ist ... Ich hab den Code mal ins Notepad++ genommen und die Codetags entfernt ...

[cysu11]

Hallo,

noch eine Frage zum Code:

Code:

Sub BezeichnungENG()
  With GetObject("C:\Temp123\Artikel.xlsm")
     sn = .Sheets("Bez. Englisch").UsedRange.Resize(, 3)
     .Close 0
  End With
  With ThisWorkbook.Sheets("Materialdaten").UsedRange.Resize(, 5)
    sp = .Value
    With CreateObject("scripting.dictionary")
       For j = 2 To UBound(sn)
          .Item(sn(j, 1)) = sn(j, 3)
       Next

       For j = 2 To UBound(sp)
         If .exists(sp(j, 1)) Then sp(j, 5) = .Item(sp(j, 1))
      Next
    End With
    .Value = sp
  End With
End Sub

Momentan wir der Wert aus Spalte A in meine Datei "Materialdaten" in der Spalte A in der Datei Artikel im Blatt "Bez. Englisch" gesucht und gefunden und dann der Wert aus Spalte C dazu ausgegeben. Wie kann ich den Code ändern, so dass er nicht in Spalte A (in Blatt "Bez. Englisch") sucht sondern in Spalte C und den Wert aus Spalte E ausgibt?

Vielen Dank
LG
Alexandra

[snb]

Code:

Sub BezeichnungENG()
  With GetObject("C:\Temp123\Artikel.xlsm")
     sn = .Sheets("Bez. Englisch").UsedRange.Resize(, 5)
     .Close 0
  End With
  With ThisWorkbook.Sheets("Materialdaten").UsedRange.Resize(, 5)
    sp = .Value
    With CreateObject("scripting.dictionary")
       For j = 2 To UBound(sn)
          .Item(sn(j, 3)) = sn(j, 5)
       Next

       For j = 2 To UBound(sp)
         If .exists(sp(j, 1)) Then sp(j, 5) = .Item(sp(j, 1))
      Next
    End With
    .Value = sp
  End With
End Sub

.Item(sn(j, 3)) = sn(j, 5)

[cysu11]

Hi snb,

perfekt, vielen Dank für deine tolle Hilfe! :)

LG & eine schönen Abend
Bis morgen :)

Alexandra