habe gerade 'nen Knoten im Hirn: nach untenstehender DDE-Prozedur ist Excel nicht aktiv - erst ein Mausclick in irgendeine Zelle "belebt" es wieder und der restliche Code läuft weiter. Kann mir jemand bitte sagen was hier fehlt, dass Excel wieder aktiv wird ?
Danke für Eure Hilfe schon jetzt mal.
Gruß
Johannes
Code:
Sub EAN128_Karte_erstellen()
chan = DDEInitiate("Barcode", "Hauptdialog")
DDEEX "MINI"
DDEEX "Code EAN 128"
'Die NVE befindet sich in Zelle [C14] und wird zuerst gesendet:
DDEPoke chan, "NVE_TEXT", [C14]
'Abfrage der berechneten NVE:
[c2] = DDERequest(chan, "NVE_RES")
'Jetzt kann die gesamte Zeichenfolge aus Datenbez. und Dateninhalten
'zusammengesetzt und gesendet werden.
'Den Datenbezeichnern wird ein FNC1 ("µ") vorangestellt,
'und werden mit "«" (0171) und "»" (0187) eingeklammert.
[c3] = [c2] & "µ«" & [C15] & "»" & [C16] & "µ«" & [C17] & "»" & [C19] & "µ«" & [C22] & "»"
'Ab hier weiter wie üblich:
DDEPoke chan, "Nutzziffer", [c3]
DDEEX ("BERECHNEN")
[J25].Font.Name = DDERequest(chan, "Schriftart")
[J25].Font.Size = DDERequest(chan, "Schriftgr")
[J25] = DDERequest(chan, "Gesamtfolge")
[Q47] = DDERequest(chan, "Nutzfolge")
'Jetzt noch die Temporärzellen löschen:
[c2] = ""
[c3] = ""
DDETerminate chan
'Excel ist noch nicht wieder aktiv
Windows("Mengeneingabe.xls").Activate
Sheets("Kisten Druck").Select
Range("T2").Select
End Sub
Sub DDEEX(sz)
x = [IV16384]
[IV16384] = sz
DDEPoke chan, "BarCodeDDECommand", [IV16384]
[IV16384] = x
End Sub