Leider antwortete mir ganz weit unten in meinem Posting vom 16.03. niemand mehr, weshalb ich mir erlaube,
hier ein neues Posting zu starten.
Dank dem Forumsbenutzer RAMSI hab ich hier übers Forum einen Supertollen Code erhalten mittels welchem ich
ab einer PPT Präsentation alle Texte, welche mit einem * gekennzeichnet sind ins Excel importieren kann:
Private Sub CommandButton1_Click()
Dim objPP As Object
Dim objP As Object 'PowerPoint.Presentation
Dim objS As Object 'PowerPoint.Slide
Dim SH As Object
Dim I As Integer, lngCount As Long
Dim Arr As Variant
'Application.ScreenUpdating = False
'PPT = Shell("C:\Program Files\Microsoft Office\OFFICE11\POWERPNT.EXE")
Set objPP = GetObject(, "PowerPoint.Application")
Set objP = objPP.ActivePresentation
For Each objS In objP.Slides 'Schleife über alle Slides
For Each SH In objS.Shapes ''Schleife über alle Shapes in der Slide
Arr = Split(SH.TextFrame.TextRange.Text, Chr(13) & Chr(13)) 'Text aufteilen nach 2 _
Zeilenumbrüchen hintereinander
For I = LBound(Arr) To UBound(Arr)
If Left(Arr(I), 1) = "*" Then 'Aufteilungen überprüfen ob 1tes Zeichen ein *
L = L + 1
Sheets("Tabelle1").Cells(L, 1).Value = Arr(I)
End If
Next
Next
Next
End Sub
Dieser Code funktioniert einwandfrei.Leider aber schaffe ich es nicht, den Code auf meine weiteren Bedürfnisse anzupassen. Dh. Ich möchte den Code so anpassen,
dass er mir aus der PPT Präsentation im Hintergrund nur jene Zeilen ausliest, die zwischen * und ** stehen.
D.h. in der Präsentation drin hat es recht viel Fliesstext. Dieser soll durchsucht werden nach * - Symbolen.
Überall wo so ein Sternchen steht, soll der Text bis zum nächsten ** (Doppelsternchen) ins Excel auf die Tabelle1 kopiert werden.
In Excel drin soll allenfalls bestehender Text auf der Tabelle1 nicht überschrieben werden, sondern der neu kopierte Text soll in die nächste
Leere Zeile geschrieben werden.
Zwischen welchen Symbolen der Text genau steht (in meinem Beispielfile zwischen * und **) spielt eigentlich keine Rolle. Wichtig ist nur, dass ich
Start und Ende eines Textes angeben kann.
Wäre supernett, wenn mir jemand bei meinem Vorhaben weiterhelfen könnte.
Im voraus herzlichen Dank !
https://www.herber.de/bbs/user/79443.ppt