Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabelle aus PDF in Spalten einfügen

Tabelle aus PDF in Spalten einfügen
10.03.2008 13:47:23
matthias

Hallo,
ich möchte den Inhalt der Zwischenablage vor dem Einfügen in eine Tabelle bearbeiten. So sollen die Tabelleninhalte in die jeweiligen Spalten eingetragen werden und nicht als Text.
Wie ich das Clipboard auslese habe ich bereits herausgefunden. Nur habe ich noch keine Idee, wie ich den in eine Variable geschriebenen Text so in das Worksheet einfüge, dass eine bearbeitbare Tabelle entsteht.
Vielen Dank für Hinweise.
Matthias

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle aus PDF in Spalten einfügen
10.03.2008 15:07:06
Tino
Hallo,
hier mal ein Beispiel.
erordert Verweis: Microsoft Forms 2.0 Object Library


Option Explicit
'erordert Verweis: Microsoft Forms 2.0 Object Library
Private Sub CommandButton1_Click()
Dim MyData As New DataObject
Dim anz As Long, a As Long
Dim MeTXT() As String
MyData.GetFromClipboard
anz = CountChar(MyData.GetText(1), Chr(10))
MeTXT = Split(MyData.GetText(1), Chr(10))
For a = 0 To anz - 1
MsgBox 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
Function CountChar(ByVal SourceString As String, ByVal strChar As String) As Long
CountChar = Len(SourceString) - Len(Replace(SourceString, strChar, ""))
End Function


Gruß
Tino

Anzeige
Perfect... Danke! o.T.
10.03.2008 15:31:01
matthias
...

eigentlich noch nicht!
10.03.2008 15:37:50
Tino
Hallo,
eigentlich noch nicht.
Habe noch etwas experimentiert.
Das Umbruchzeichen CHR(13) müsste noch raus.


'erordert Verweis: Microsoft Forms 2.0 Object Library
Private Sub CommandButton1_Click()
Dim MyData As New DataObject
Dim anz As Long, a As Long
Dim MeTXT() As String
MyData.GetFromClipboard
Range("d1") = MyData.GetText(1)
anz = CountChar(MyData.GetText(1), Chr(10))
MeTXT = Split(MyData.GetText(1), Chr(10))
For a = 0 To anz
Cells(a + 1, 1) = Replace$(MeTXT(a), Chr(13), "")
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

Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige