Beschaffenheit der Zwischenablage

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim KopierBereich As Range Set KopierBereich = Tabelle1.Range("A1:Z20") KopierBereich.Copy Tabelle2.Rows("1:" & KopierBereich.Rows.Count).Insert Shift:=xlDown Application.CutCopyMode = False

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

Function CountChar(ByVal SourceString As String, ByVal strChar As String) As Long Dim S S = Replace(SourceString, Chr(10), strChar) S = Replace(S, Chr(13), strChar) S = Replace(S, strChar & strChar, strChar) CountChar = Len(S) - Len(Replace(S, strChar, "")) '+ 1 ? End Function

Beliebteste Forumthreads (12 Monate)

Beschaffenheit der Zwischenablage

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Beschaffenheit der Zwischenablage

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread