Hallo Nicky!
Ich mache das immer mit Hilfe eines Excel-Makros. Ist zwar nicht perfekt, aber wir können damit gut leben. Man markiert die entsprechenden Zellen, die kopiert werden sollen und ruft das Makro auf.
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
Gruß, Klaus.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP