nach DDE Prozedur excel nicht aktiv

Bild

Betrifft: nach DDE Prozedur excel nicht aktiv von: Johannes
Geschrieben am: 23.03.2005 17:38:26

Hallo Spezialisten,

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

Bild


Betrifft: Fehler gefunden von: Johannes
Geschrieben am: 24.03.2005 08:24:57

Hallo Freunde,

nach einer "Nachtschicht" und intemsiven STFW habe ich den Fehler gefunden:

es fehlte:


DDEEX "ENDE" 'diese Zeile
DDETerminate chan
End Sub

hat zwar den Nachteil das das Barcodeprogramm jetzt immer gestartet, druckt, beendet wird ... und das zigmal in Folge - aber es hängt sich wenigstens nicht auf.

Dank trotzdem an alle die sich wenigstens mit der Frage beschäftigt haben - wenn auch ohne Antwort.

Gruß

Johannes


 Bild

Beiträge aus den Excel-Beispielen zum Thema "nach DDE Prozedur excel nicht aktiv"