ASCII Daten mehrzeilig in eine Zelle kopieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.CommandBars("Cell").Reset End Sub Private Sub Workbook_Open() With Application.CommandBars("Cell").Controls.Add(, , , 5) 'vor 5. Element der Menüleiste einfügen .Caption = "Einfügen in eine Zelle" .OnAction = "EinfügenInZelle" End With End Sub

Option Explicit Sub EinfügenInZelle() Dim MyData As DataObject Set MyData = New DataObject 'Achtung! 'Wenn keine UserForms im Code, dann 'Verweis auf Microsoft Forms Object Libary setzen! On Error Resume Next MyData.GetFromClipboard ActiveCell = Application.WorksheetFunction.Substitute(MyData.GetText, Chr(13), "") End Sub

Hallo,
wenn Du mit dem bisherigen Code eine oder mehrere kopierte Excel- Zelle einfügen willst, gibts Fehler. Hier eine Möglichkeit, wie man auch Excel- Zellen aus der Zwischenablage in eine Zelle quetschen kann:

Option Explicit
Sub EinfügenInZelle()
'Fügt einen mehrzeiligen Text oder mehrere Excel- Zellen
'aus der Zwischenablage in EINE Excel- Zelle ein.

'Wenn keine UserForms im Code, dann
'Verweis auf Microsoft Forms Object Libary setzen!
'oder die nächste Zeile auskommentieren
'ActiveWorkbook.VBProject.References.AddFromFile "FM20.DLL"

Dim t As String
Dim MyData As DataObject
Set MyData = New DataObject
On Error GoTo Fehler
MyData.GetFromClipboard
t = MyData.GetText
'Excel speichert die Daten in einem eigenen Format in der Zwischenablage
'http://www.vbarchiv.net/workshop/workshop23s1.html
'Beim Auslesen der Zwischenablage als Nur-Text werden diese so verändert:
'1)Am Ende wird ein vbCrLf angefügt
'Wenn ein Zeilenumbruch oder ein Tabulator im kopierten Text ist, dann wird
'2) der Text in Anführungszeichen gesetzt und
'3) vor jedem Anführungszeichen ein weiteres Anführungszeichen gesetzt
'
'Das muß rückgängig gemacht werden, damit Text aus Excel- Zellen beim Einfügen
'nicht verändert wird.

If Application.CutCopyMode Then                        'wenn Excel- Zellen in Zwischenablage
  t = Left(t, Len(t) - 2)                              '1) vbCr und vbLf am Ende löschen
  If (InStr(t, vbLf) Or InStr(t, vbTab)) _
     And Left(t, 1) = """" And Right(t, 1) = """" Then 'Wenn Zeilenumbruch oder Tab im Text
    t = Mid(t, 2, Len(t) - 2)                          '2) " am Anfang und am Ende löschen
    t = WorksheetFunction.Substitute(t, """""", """")  '3) "" mit " ersetzen
  End If
End If
'Den Tabulator durch - ersetzen, damit Text nicht in mehrere Spalten eingefügt wird
t = Application.WorksheetFunction.Substitute(t, vbTab, "-")
'Den Wagenrücklauf durch nichts ersetzen, damit Text nicht in mehrere Zeilen eingefügt wird
t = Application.WorksheetFunction.Substitute(t, vbCr, "")
'Text einfügen
ActiveCell = t
Fehler:
End Sub

Gruß- Micha

Beliebteste Forumthreads (12 Monate)

ASCII Daten mehrzeilig in eine Zelle kopieren

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

ASCII Daten mehrzeilig in eine Zelle kopieren

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread