Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Code schneller machen, viel schneller!?
#11
Ausgezeichnet !
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antworten Top
#12
Hallo snb,

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

LG
Alexandra
Antworten Top
#13
Hallöchen Alexandra,

mal oT eine Frage - wie / warum machst Du das mit dem Code? ( #7 )
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#14
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
Antworten Top
#15
Hallöchen,

kein Plan was da ist ... Ich hab den Code mal ins Notepad++ genommen und die Codetags entfernt ...
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#16
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
Antworten Top
#17
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)
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antworten Top
#18
Hi snb,

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

LG & eine schönen Abend
Bis morgen :)

Alexandra
Antworten Top


Gehe zu:


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