Beschaffenheit der Zwischenablage

Eddie · 2008-12-27T22:51:19+00:00

Hallo Zusammen, ich möchte aus einem Sheet x Zeilen in die Zwischenablage kopieren und auf einer anderen Seite, mittels ActiveSheet.PasteSpecial, wieder einfügen. Das Problem ist, dass die eingefügten Daten nicht angehangen werden, sondern in eine bestehende Tabelle eingefügt werden - ich muss also den erforderlich Platz erst durch neue Zeilen bereitstellen. Gibt es eine Möglichkeit, die Anzahl der Zeilen und Spalten, des Inhaltes der Zwischenablage abzufragen? Gruß Eddie

Hallo Tino,
ich kopiere die Daten grundsätzlich von Hand in die Zwischenablage.
- Entweder aus einen anderen Worksheet ein beliebiger Bereich.
- Teilweise auch aus dem Web
Dein Script wird mir mittels vorgeschlagenem selection_chance Ereignis in 80% der Fälle weiterhelfen, aber nicht wenn etwas, aus dem Web kopiert wurde. Hier geht es auch noch um etwas anderes. Angenommen man möchte nur 4 nebeneinander liegende Zahlen kopieren, für das auch nur eine bestimmte Excel Zieltabelle ausgelegt ist und man erwischt zufällig eine Zeile mehr, zerstören ich mir teilweise darunterliegende Formeln. Hier gäbe es natürlich auch Auswege, z.B. geschützte Zellen (stehe ich nicht drauf)
Ich würde lieber das Einfügen, über ein separates Scipt machen, dabei automatisch kontrollieren, ob der Ziebereich geeignet ist.
Gruß Eddie

Hallo,
vielleicht kannst Du hier mit etwas anfangen.
Du kannst die Anzahl der Zeilen in der Zwischenablage erfahren.
Die Zeilen der Zwischenablage werden in die Zelle A1 eingefügt,
dafür wird immer eine neue Zeile eingefügt.
Dafür musst Du unter Extras Verweise, den Verweis auf
Microsoft Forms 2.0 Object Library setzen.

'erordert Verweis: Microsoft Forms 2.0 Object Library 
Private Sub CommandButton1_Click()
Dim MyData As New DataObject
Dim A As Long
Dim MeTXT() As String

MyData.GetFromClipboard
'Anzahl Zeilen in Zwischenablage 
anz = CountChar(MyData.GetText(1), Chr(10))
'Zeilen in eine Area schreiben 
MeTXT = Split(MyData.GetText(1), Chr(10))

'Zeilen in eine Zelle schreiben, immer eine neue Zeile dafür einfügen 
For A = Ubound(MeTXT) To Lbound(MeTXT) Step -1
 Range("A1").Insert Shift:=xlDown
 Range("A1") = MeTXT(A)
Next A

End Sub


Function CountChar(ByVal SourceString As String, ByVal strChar As String) As Long
   CountChar = Len(SourceString) - Len(Replace(SourceString, strChar, ""))
End Function

Gruß Tino

Beschaffenheit der Zwischenablage

Forumthread: Beschaffenheit der Zwischenablage

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beschaffenheit der Zwischenablage

Forumthread: Beschaffenheit der Zwischenablage

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread