---

Grüss Euch

In den klassischen Oberflächen Maus + Tablet, kann man einen "Text" der sich in der Zwischenablage von Windows befindet, durch drücken der mittleren Maustaste/rad in die Textzeile bzw. in den Me10-Editor einfügen.

Kann man dieses Einfügen auch anders bewerkstelligen ?

Grund: Wir verwenden das Tablett. Dh. Stift weglegen ;  Maus angeln und positionieren ; mittlere Maustaste/rad drücken ; Maus wegschubsen und wieder den Stift nehmen.
Ich suche also so etwas wie eine INQ-abfrage (die es leider nicht gibt), die ich in ein Macro eingebaut vom Tablett oder von der Tastatur aus auslösen könnte.
Ist die Zwischenablage event. eine Datei an die man mit OPEN_INFILE rankommt ?

Gruss Friedhelm

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

PASTE_FROM_CLIPBOARD NOSUBPART
Damit wird der Text aus der Zwischenablage an den Cursor gehaengt.

Diesen Text koennte man z.B. an einen Punkt 9999,9999 setzen.
Dann mit INQ_ELEM dieses Element abfragen.

Gruss

WoHo

[Diese Nachricht wurde von woho am 26. Jan. 2010 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Woho,

glaube das ist ein guter Ausgangspunkt.
Werde das versuchen und melde mich dann wieder.
Danke. Die Ui's für Dich sind auf dem Weg.

Gruss Friedhelm 

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich weis ja nicht, woher Dein Text kommt, aber ich habe mir mal ein Excel-Makro geschrieben, welches Excel-Tabellen ausliest und als eigenständiges Teil nach ME10 überträgt. Wir brauchen das immer in unseren Aufstellplänen als Stückliste für die Maschinenkomponenten. Diese werden zuerst in Excel aufgeschrieben, anschließend nach ME10 übertragen. Falls Intresse besteht, kann ich das gerne hier rein stellen.

Gruß, Klaus.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von riesi:
Ich weis ja nicht, woher Dein Text kommt, aber ich habe mir mal ein Excel-Makro geschrieben, welches Excel-Tabellen ausliest und als eigenständiges Teil nach ME10 überträgt. Wir brauchen das immer in unseren Aufstellplänen als Stückliste für die Maschinenkomponenten. Diese werden zuerst in Excel aufgeschrieben, anschließend nach ME10 übertragen. Falls Intresse besteht, kann ich das gerne hier rein stellen.

Gruß, Klaus.

---

Das währe super wenn du das hier reinstellen könntest hätte so was schon ein paar mal gebrauchen können

------------------
Gruß

Nicky

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Code:

---

Sub tabelle2me10()
Dim startx As Integer
Dim starty As Integer
Dim endx As Integer
Dim endy As Integer
Dim bereich
Dim aktspalte As Integer
Dim breite As Integer
Dim aktzeile As Integer
Dim inhalt As String

DDEinit_num = DDEInitiate("ME10F", "GENERAL")
DDEExecute DDEinit_num, ("EDIT_PART TOP")
DDEExecute DDEinit_num, ("INIT_SUBPART 'Excel-Tabelle'")
DDEExecute DDEinit_num, ("INQ_ENV 7")
DDEExecute DDEinit_num, ("SYMBOL_PART ('~'+INQ 302)")

If areaCount > 1 Then
    Exit Sub
End If

bereich = Split(Selection.Address, "$")
startx = Columns(bereich(1)).Column
starty = Val(Left(bereich(2), Len(bereich(2)) - 1))
endx = Columns(bereich(3)).Column
endy = Val(bereich(4))

aktspalte = 0
aktzeile = 0

For x = startx To endx
  For y = starty To endy
    inhalt = Cells(y, x)
    DDEExecute DDEinit_num, ("TEXT '" & inhalt & "' " & aktspalte & "," & aktzeile & " END")
    aktzeile = aktzeile - 7
  Next y
  Cells(y, x).Select
  breite = Round(ActiveCell.Width)
  aktspalte = Round(aktspalte + (breite / 2))
  aktzeile = 0
Next x

DDETerminate All

End Sub

---

Mann/Frau markiert die zu kopierenden Zellen in Excel und ruft das Makro auf.

Viel Spaß, Klaus.

[Diese Nachricht wurde von riesi am 27. Jan. 2010 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hybsch!! 

------------------
● Seamonkey Firefox Thunderbird ● OSD Hilfeseite (de) / help page (en) ● NotePad++ ●

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP