Office: (Office 2003) Seitenanzahl aus PDF ermitteln

\@josef
Keine stimmt nicht, allerdings die falsche Anzahl!
Bereitstellen nicht, da zu groß, aber mailen (ist unterwegs!)

Das Dok hat 64 Seiten, deine Func liefert 5!
Das gleiche Problem hab ich auch s.o.!

Gruß

LL

Update:
Da funktioniert ja mein Code noch besser wie Deiner (vgl. Doc 2 per Mail!) oder??*tongue.gif*

 

bei diesem Dokument wurde bei mir schon 64 geliefert. Bei dem anderen wurden aber 39 statt 42 Seiten ermittelt.
Kann es sein, dass das zusammengesetzte PDF-Dokumente sind?
Eintrag "/Parent" ... wenn man diesen ausschließt, scheint es wieder zu laufen. .. die Frage ist nur, wie lange? *biggrin.gif*

Neuer Test-Code:
Code:

 

\@josef
Damit bist Du ja schon ziemlich nahe dran (Rückgabewert gehört noch aufbereitet!!)*wink.gif* Da war noch der Debug.Print drin!
Sieht vielversprechend aus *Smilie, funktioniert aber leider trotzdem nicht allgemein!

oder evtl. Automation verwenden*wink.gif*

Gruß

LL

Update:
Ich hab mal etwas gegoogelt!
Das hier habe ich gefunden!
Kann es leider nicht testen!

 

Hi Josef,

ich habe Deinen Code getestet (bei über 100 PDFs) und immer die korrekte Seitenanzahl erhalten!

Super! Merci

Ciao, Mike

 

Hallo Joesef P.,

habe das ganze am Rande mitverfolgt.
Dein letzter Code klappt wunderbar - auch mit den PDFs, die per DynaPDF erstellt wurden!
Ich musste nur pdf und fso als "Object" deklarieren - sonst Compiler-Fehler...

Danke und Gruß,
Jan

 

So wunderbar klappt er immer noch nicht, wie mir LL mit einem neuen PDF-Dokument (per email) zeigte. *Smilie

Mein neuer Versuch:
Code:

 

Hallo,

ich denke das kann jetzt als vollständige VBA-Lösung durchgehen!*grins
Danke Josef für Deinen Einsatz!*10points

Meine Automation-Versuche haben mich noch nicht soweit gebracht! *frown.gif*
Der Nachteil ist natürlich auch, dass entsprechende Software instaliert sein muß.

Bis jetzt habe ich auch keine "Ausnahmen" mehr mit Josefs Code gefunden.

Damit ist alles gesagt und getan!

Und zum Schluß noch einen Dank an Jan auf dessen Wiese schließlich dieses "Pflänzchen" entwachsen ist!*hands

Gruß

LL

 

Sorry,

aber beim Auslesen des Test.PDF (siehe #3) mit dem Code von #21 erhalte ich als Anzahl 0 !?

Das Auslesen mit Code #17 funktioniert dagegen einwandfrei!

Ciao, Mike

 

Das ist interessant. Die Datei kann anscheinend mit ReadAll nicht eingelesen werden.
Wenn du pdf.ReadAll mit
Code:

ersetzt, klappt es wieder. .. dann läuft der Code aber bei großen Dateien ein Ewigkeit und der Code funktioniert bei anderen Dateien wieder nicht.
Was könnte die Fehlerquelle beim Einlesen sein?

Umgehen kann man das Problem, wenn man fso ersetzt.
Code:

Neue Variante:
Code:

 

Hallo
Leider habe ich nicht soviel Zeit das selber weiter zu verfolgen ,aber der DOS Befehl "find" findet Strings in beliebigen Dateien und gibt sie wie gewünscht zurück

Der Text wird hier nicht richtig dargestellt, der string wird aber wie angegeben gefunden

In eine Datei einlesen die den gewünschten String enthält

 

Hi Josef,

jabe die Änderung vorgenommen und es läuft nun.

Code:

Danke an alle, die beteiligt waren!

Eben ein tolles Forum :-)

Ciao, Mike

 

\@Mike: nimm lieber die andere Änderung mit Open. *wink.gif*

 

Hallo Josef,

habe ich genommen und funktioniert bestens!

Nochmals danke :-)

Ciao, Mike

 

Hallo zusammen,

habe gerade den Code von Josef ausprobiert, klappt wunderbar. Allerdings gibt es eine Einschränkung. Der Code funktioniert einmannfrei bei Pdf's in der Version 1.4. Sobald eine PDF-Datei in Version 1.6 erzeugt oder verändert wurde, ist das Schlüsselwort "Count" nicht mehr in der Datei vorhanden.

Kann mir jemand sagen woran das liegt, bzw. wie in der Version 1.6 die Seitenzahl gespeichert wird?

Danke schon mal im vorraus!

Gruß
Christian

 

Hallo zusammen,

ich holle einmal diesen Thread wieder nach oben.

Da ich gerade auch das gleiche Problem hatte, habe ich mal nach einer anderen Lösung gesucht. Grund war eigentlich der Windows-Explorer.

Dieser zeigt nach der Einblendung der Spalte 'Seiten' die Seitenanzahl der Dokumente an.

Kurz gesagt, hier meine Lösung. Getestet mit Access 2007 und 2010.

Enum DateiInfosEnum
' Liste aller Datei_Informationen
' Erstellt mit DateiInformationen_Wertemöglichkeiten
DateiInfosEnum_Name = 0
DateiInfosEnum_Größe = 1
DateiInfosEnum_Elementtyp = 2
DateiInfosEnum_Änderungsdatum = 3
DateiInfosEnum_Erstelldatum = 4
DateiInfosEnum_Letzter_Zugriff = 5
DateiInfosEnum_Attribute = 6
DateiInfosEnum_Offlinestatus = 7
DateiInfosEnum_Offline_verfügbar = 8
DateiInfosEnum_Erkannter_Typ = 9
DateiInfosEnum_Besitzer = 10
DateiInfosEnum_Art = 11
DateiInfosEnum_Aufnahmedatum = 12
DateiInfosEnum_Mitwirkende_Interpreten = 13
DateiInfosEnum_Album = 14
DateiInfosEnum_Jahr = 15
DateiInfosEnum_Genre = 16
DateiInfosEnum_Dirigenten = 17
DateiInfosEnum_Markierungen = 18
DateiInfosEnum_Bewertung = 19
DateiInfosEnum_Autoren = 20
DateiInfosEnum_Titel = 21
DateiInfosEnum_Thema = 22
DateiInfosEnum_Kategorien = 23
DateiInfosEnum_Kommentare = 24
DateiInfosEnum_Copyright = 25
DateiInfosEnum_Titelnummer = 26
DateiInfosEnum_Länge = 27
DateiInfosEnum_Bitrate = 28
DateiInfosEnum_Geschützt = 29
DateiInfosEnum_Kameramodell = 30
DateiInfosEnum_Abmessungen = 31
DateiInfosEnum_Kamerahersteller = 32
DateiInfosEnum_Firma = 33
DateiInfosEnum_Dateibeschreibung = 34
DateiInfosEnum_Programmname = 35
DateiInfosEnum_Dauer = 36
DateiInfosEnum_Ist_online = 37
DateiInfosEnum_Periodisch_wiederkehrend = 38
DateiInfosEnum_Ort = 39
DateiInfosEnum_Adressen_der_optionalen_Teilnehmer = 40
DateiInfosEnum_Optionale_Teilnehmer = 41
DateiInfosEnum_Organisatoradresse = 42
DateiInfosEnum_Organisatorname = 43
DateiInfosEnum_Erinnerungszeit = 44
DateiInfosEnum_Adressen_der_erforderlichen_Teilnehmer = 45
DateiInfosEnum_Erforderliche_Teilnehmer = 46
DateiInfosEnum_Ressourcen = 47
DateiInfosEnum_Besprechungsstatus = 48
DateiInfosEnum_Status_frei_besetzt = 49
DateiInfosEnum_Gesamtgröße = 50
DateiInfosEnum_Kontoname = 51
DateiInfosEnum_Aufgabenstatus = 52
DateiInfosEnum_Computer = 53
DateiInfosEnum_Jahrestag = 54
DateiInfosEnum_Name_des_Assistenten = 55
DateiInfosEnum_Telefonnummer_des_Assistenten = 56
DateiInfosEnum_Geburtstag = 57
DateiInfosEnum_Geschäftsadresse = 58
DateiInfosEnum_Ort_geschäftlich = 59
DateiInfosEnum_Land_Region_geschäftlich = 60
DateiInfosEnum_Postfach_geschäftlich = 61
DateiInfosEnum_Postleitzahl_geschäftlich = 62
DateiInfosEnum_Bundesland_Kanton_geschäftlich = 63
DateiInfosEnum_Straße_geschäftlich = 64
DateiInfosEnum_Fax_geschäftlich = 65
DateiInfosEnum_Homepage_geschäftlich = 66
DateiInfosEnum_Rufnummer_geschäftlich = 67
DateiInfosEnum_Rückrufnummer = 68
DateiInfosEnum_Autotelefon = 69
DateiInfosEnum_Kinder = 70
DateiInfosEnum_Zentrale_Firmenrufnummer = 71
DateiInfosEnum_Abteilung = 72
DateiInfosEnum_E_Mail_Adresse = 73
DateiInfosEnum_E_Mail2 = 74
DateiInfosEnum_E_Mail3 = 75
DateiInfosEnum_E_Mail_Liste = 76
DateiInfosEnum_E_Mail_Anzeigename = 77
DateiInfosEnum_Speichern_unter = 78
DateiInfosEnum_Vorname = 79
DateiInfosEnum_Vollständiger_Name = 80
DateiInfosEnum_Geschlecht = 81
DateiInfosEnum_Gegebener_Name = 82
DateiInfosEnum_Hobbies = 83
DateiInfosEnum_Privatadresse = 84
DateiInfosEnum_Ort_privat = 85
DateiInfosEnum_Land_Region_privat = 86
DateiInfosEnum_Postfach_privat = 87
DateiInfosEnum_Postleitzahl_privat = 88
DateiInfosEnum_Bundesland_Kanton_privat = 89
DateiInfosEnum_Straße_privat = 90
DateiInfosEnum_Fax_privat = 91
DateiInfosEnum_Rufnummer_privat = 92
DateiInfosEnum_IM_Adressen = 93
DateiInfosEnum_Initialen = 94
DateiInfosEnum_Position = 95
DateiInfosEnum_Bezeichnung = 96
DateiInfosEnum_Nachname = 97
DateiInfosEnum_Adresse = 98
DateiInfosEnum_Zweiter_Vorname = 99
DateiInfosEnum_Mobiltelefon = 100
DateiInfosEnum_Spitzname = 101
DateiInfosEnum_Bürostandort = 102
DateiInfosEnum_Weitere_Adresse = 103
DateiInfosEnum_Andere_Stadt = 104
DateiInfosEnum_Anderes_Land_Region = 105
DateiInfosEnum_Anderes_Postfach = 106
DateiInfosEnum_Andere_Postleitzahl = 107
DateiInfosEnum_Anderes_Bundesland_bzw_Kanton = 108
DateiInfosEnum_Andere_Straße = 109
DateiInfosEnum_Pager = 110
DateiInfosEnum_Persönlicher_Titel = 111
DateiInfosEnum_Stadt = 112
DateiInfosEnum_Land_Region = 113
DateiInfosEnum_Postfach = 114
DateiInfosEnum_Postleitzahl = 115
DateiInfosEnum_Bundesland_Kanton = 116
DateiInfosEnum_Straße = 117
DateiInfosEnum_Primäre_E_Mail = 118
DateiInfosEnum_Primäre_Telefonnummer = 119
DateiInfosEnum_Beruf = 120
DateiInfosEnum_Ehepartner_Partner = 121
DateiInfosEnum_Suffix = 122
DateiInfosEnum_TTY_TTD_Telefon = 123
DateiInfosEnum_Telex = 124
DateiInfosEnum_Webseite = 125
DateiInfosEnum_Inhaltstatus = 126
DateiInfosEnum_Inhaltstyp = 127
DateiInfosEnum_Erfassungsdatum = 128
DateiInfosEnum_Archivierungsdatum = 129
DateiInfosEnum_Vollendungsdatum = 130
DateiInfosEnum_Gerätekategorie = 131
DateiInfosEnum_Verbindung_hergestellt = 132
DateiInfosEnum_Erkennungsmethode = 133
DateiInfosEnum_Anzeigename = 134
DateiInfosEnum_Lokaler_Computer = 135
DateiInfosEnum_Hersteller = 136
DateiInfosEnum_Modell = 137
DateiInfosEnum_Paarweise = 138
DateiInfosEnum_Klassifizierung = 139
DateiInfosEnum_Gerätestatus = 140
DateiInfosEnum_Clientkennung = 141
DateiInfosEnum_Mitwirkende = 142
DateiInfosEnum_Inhalt_erstellt = 143
DateiInfosEnum_Zuletzt_gedruckt = 144
DateiInfosEnum_Letzte_Speicherung = 145
DateiInfosEnum_Hauptabteilung = 146
DateiInfosEnum_Dokument_ID = 147
DateiInfosEnum_Seiten = 148
DateiInfosEnum_Folien = 149
DateiInfosEnum_Gesamtbearbeitungszeit = 150
DateiInfosEnum_Wortanzahl = 151
DateiInfosEnum_Fällig_am = 152
DateiInfosEnum_Enddatum = 153
DateiInfosEnum_Dateianzahl = 154
DateiInfosEnum_Dateiname = 155
DateiInfosEnum_Dateiversion = 156
DateiInfosEnum_Kennzeichnungsfarbe = 157
DateiInfosEnum_Kennzeichnungsstatus = 158
DateiInfosEnum_Freier_Speicherplatz = 159
DateiInfosEnum_Bittiefe = 160
DateiInfosEnum_Horizontale_Auflösung = 161
DateiInfosEnum_Breite = 162
DateiInfosEnum_Vertikale_Auflösung = 163
DateiInfosEnum_Höhe = 164
DateiInfosEnum_Wichtigkeit = 165
DateiInfosEnum_Anlage = 166
DateiInfosEnum_Ist_gelöscht = 167
DateiInfosEnum_Verschlüsselungsstatus = 168
DateiInfosEnum_Kennzeichnung_vorhanden = 169
DateiInfosEnum_Wurde_beendet = 170
DateiInfosEnum_Unvollständig = 171
DateiInfosEnum_Lesestatus = 172
DateiInfosEnum_Freigegeben = 173
DateiInfosEnum_Ersteller = 174
DateiInfosEnum_Datum = 175
DateiInfosEnum_Ordnername = 176
DateiInfosEnum_Ordnerpfad = 177
DateiInfosEnum_Ordner = 178
DateiInfosEnum_Teilnehmer = 179
DateiInfosEnum_Pfad = 180
DateiInfosEnum_Nach_Ort = 181
DateiInfosEnum_Typ = 182
DateiInfosEnum_Kontaktnamen = 183
DateiInfosEnum_Eintragstyp = 184
DateiInfosEnum_Sprache = 185
DateiInfosEnum_Letzter_Besuch = 186
DateiInfosEnum_Beschreibung = 187
DateiInfosEnum_Verknüpfungsstatus = 188
DateiInfosEnum_Verknüpfungsziel = 189
DateiInfosEnum_URL = 190
DateiInfosEnum_Medium_erstellt = 191
DateiInfosEnum_Veröffentlichungsdatum = 192
DateiInfosEnum_Codiert_durch = 193
DateiInfosEnum_Produzenten = 194
DateiInfosEnum_Herausgeber = 195
DateiInfosEnum_Untertitel = 196
DateiInfosEnum_Benutzerweb_URL = 197
DateiInfosEnum_Texter = 198
DateiInfosEnum_Anlagen = 199
DateiInfosEnum_BCC_Adressen = 200
DateiInfosEnum_BCC = 201
DateiInfosEnum_CC_Adressen = 202
DateiInfosEnum_CC = 203
DateiInfosEnum_Unterhaltungs_ID = 204
DateiInfosEnum_Empfangsdatum = 205
DateiInfosEnum_Absendungsdatum = 206
DateiInfosEnum_Von_Adressen = 207
DateiInfosEnum_Von = 208
DateiInfosEnum_Hat_Anlagen = 209
DateiInfosEnum_Absenderadresse = 210
DateiInfosEnum_Absendername = 211
DateiInfosEnum_Speicher = 212
DateiInfosEnum_Empfängeradressen = 213
DateiInfosEnum_Arbeitstitel = 214
DateiInfosEnum_An = 215
DateiInfosEnum_Laufzeit = 216
DateiInfosEnum_Albuminterpret = 217
DateiInfosEnum_Album_ID = 218
DateiInfosEnum_Beats_pro_Minute = 219
DateiInfosEnum_Komponisten = 220
DateiInfosEnum_Ursprünglicher_Schlüssel = 221
DateiInfosEnum_Bestandteil_einer_Kompilation = 222
DateiInfosEnum_Stimmung = 223
DateiInfosEnum_Teil_eines_Satzes = 224
DateiInfosEnum_Zeitraum = 225
DateiInfosEnum_Farbe = 226
DateiInfosEnum_Jugendschutz = 227
DateiInfosEnum_Grund_für_Jugendschutzeinstufung = 228
DateiInfosEnum_Verwendeter_Speicherplatz = 229
DateiInfosEnum_EXIF_Version = 230
DateiInfosEnum_Ereignis = 231
DateiInfosEnum_Lichtwert = 232
DateiInfosEnum_Belichtungsprogramm = 233
DateiInfosEnum_Belichtungszeit = 234
DateiInfosEnum_Blendenzahl = 235
DateiInfosEnum_Blitzlichtmodus = 236
DateiInfosEnum_Brennweite = 237
DateiInfosEnum_35mm_Brennweite = 238
DateiInfosEnum_ISO_Filmempfindlichkeit = 239
DateiInfosEnum_Objektivhersteller = 240
DateiInfosEnum_Objektivmodell = 241
DateiInfosEnum_Lichtquelle = 242
DateiInfosEnum_Maximale_Blende = 243
DateiInfosEnum_Messmodus = 244
DateiInfosEnum_Ausrichtung = 245
DateiInfosEnum_Personen = 246
DateiInfosEnum_Programmmodus = 247
DateiInfosEnum_Sättigung = 248
DateiInfosEnum_Abstand = 249
DateiInfosEnum_Weißausgleich = 250
DateiInfosEnum_Priorität = 251
DateiInfosEnum_Projekt = 252
DateiInfosEnum_Kanal = 253
DateiInfosEnum_Folgenname = 254
DateiInfosEnum_Untertitel_Closed_Captions = 255
DateiInfosEnum_Wiederholung = 256
DateiInfosEnum_Zweikanalton = 257
DateiInfosEnum_Sendungsdatum = 258
DateiInfosEnum_Sendungsbeschreibung = 259
DateiInfosEnum_Aufnahmezeit = 260
DateiInfosEnum_Senderrufzeichen = 261
DateiInfosEnum_Fernsehsendername = 262
DateiInfosEnum_Zusammenfassung = 263
DateiInfosEnum_Schnipsel = 264
DateiInfosEnum_Automatische_Zusammenfassung = 265
DateiInfosEnum_Suchrelevanz = 266
DateiInfosEnum_Sensitivität = 267
DateiInfosEnum_Freigegeben_für = 268
DateiInfosEnum_Freigabestatus = 269
DateiInfosEnum_Produktname = 270
DateiInfosEnum_Produktversion = 271
DateiInfosEnum_Supportlink = 272
DateiInfosEnum_Quelle = 273
DateiInfosEnum_Startdatum = 274
DateiInfosEnum_Abrechnungsinformationen = 275
DateiInfosEnum_Abgeschlossen = 276
DateiInfosEnum_Aufgabenbesitzer = 277
DateiInfosEnum_Gesamtdateigröße = 278
DateiInfosEnum_Marken = 279
DateiInfosEnum_Videokomprimierung = 280
DateiInfosEnum_Regisseure = 281
DateiInfosEnum_Datenrate = 282
DateiInfosEnum_Bildhöhe = 283
DateiInfosEnum_Einzelbildrate = 284
DateiInfosEnum_Bildbreite = 285
DateiInfosEnum_Gesamtbitrate = 286
DateiInfosEnum_Masters_Keywords_debug1 = 291
DateiInfosEnum_Masters_Keywords_debug2 = 292
DateiInfosEnum_Creator = 293
DateiInfosEnum_Encryption_Level = 294
DateiInfosEnum_Content_Accessibility = 295
DateiInfosEnum_Document_Assembly = 296
DateiInfosEnum_Changing = 297
DateiInfosEnum_Commenting = 298
DateiInfosEnum_Copying = 299
DateiInfosEnum_Form_Filling = 300
DateiInfosEnum_Printing = 301
DateiInfosEnum_Producer = 302
DateiInfosEnum_PDF_Specification = 303
DateiInfosEnum_Encrypted = 304
End Enum
Public Sub PDF_Info(Optional FOLDER_PATH = "C:\Test\")
Dim strFileName As String

' Wenn das letzte Zeichen kein Backslash ist, diesen hinzufügen
If Right(FOLDER_PATH, 1) "\" Then

FOLDER_PATH = FOLDER_PATH & "\"

End If

strFileName = Dir$(FOLDER_PATH & "*.pdf")

Do Until strFileName = vbNullString

Debug.Print strFileName, DateiInformationen_Anzeigen(FOLDER_PATH & strFileName, DateiInfosEnum_Seiten)
strFileName = Dir$

Loop

End Sub

Sub DateiInformationen_Wertemöglichkeiten()

' http://windowssecrets.com/forums/sho...cal-resolution
Dim oShell As Object
Dim x As Integer
Dim Werteliste As String
Set oShell = CreateObject("Shell.Application")

With oShell.Namespace("C:\Users\bungev\Downloads\PDF Versionen\")

For x = 0 To 304

If .getdetailsof(.Items, x) "" Then

Werteliste = "DateiInfosEnum_" & .getdetailsof(.Items, x)
Werteliste = Replace(Werteliste, " ", "_")
Werteliste = Replace(Werteliste, "- ", "")
Werteliste = Replace(Werteliste, "-", "_")
Werteliste = Replace(Werteliste, "(", "")
Werteliste = Replace(Werteliste, ")", "")
Werteliste = Replace(Werteliste, "/", "_")
Werteliste = Replace(Werteliste, ".", "")

If x = 291 Then

Werteliste = Werteliste & "1"

End If

If x = 292 Then

Werteliste = Werteliste & "2"

End If

Debug.Print Werteliste & " = " & x

End If

Next x

End With

End Sub

Public Function DateiInformationen_Anzeigen(Dateipfad As String, DateiInfos As DateiInfosEnum) As Variant

' http://www.herber.de/forum/archiv/11...DetailsOf.html
Dim objShell, objFolder, objDatei
Dim Ordner
Set objShell = CreateObject("Shell.Application")
Ordner = Left(Dateipfad, InStrRev(Dateipfad, "\"))
Set objFolder = objShell.Namespace(Ordner)
Set objDatei = objFolder.ParseName(Mid(Dateipfad, InStrRev(Dateipfad, "\") + 1))

For i = 0 To 304

If i = DateiInfos Then

DateiInformationen_Anzeigen = objFolder.getdetailsof(objDatei, i)
Exit For

End If

Next

Set objShell = Nothing
Set objDatei = Nothing

End Function


Aufgerufen werden kann dies entweder mit

PDF_Info (Verzeichnisname) = Alle Dateien in diesem Verzeichnis werden angezeigt, Standardverzeichnis ist C:\Test, kann natürlich auch weggelassen werden bzw. angepasst werden.

oder

DateiInformationen_Anzeigen(kpl. Dateipfad incl. Erweiterung, Die Index-Zahl der Information, die man haben möchte) = Welche Möglichkeiten es gibt, kann man in der Enum - Auflistung nachsehen

Diese Enum-Werteliste kann man natürlich auch löschen und nur den festen Indexwert eingeben. Aber diese Liste zeigt einmal alle Möglichkeiten auf und ist ja gerade dafür gedacht, eigene Parameterwerte darzustellen.

Die Sub 'DateiInformationen_Wertemöglichkeiten' dient eigentlich nur dazu, die Enum-Werteliste zu erzeugen (falls hier sich mal was ändern sollte). Die Abfrage nach 291 und 292 liegt leider darin begründet, dass die Bezeichnungen bei beiden gleich sind. Dies ist aber in einer Enum-Anweisung nicht erlaubt ist, habe ich einfach eine 1 und 2 angefügt.

Was in den jeweiligen Sub/Function genaustens passiert, kann ich leider nicht erklären. Da die Idee im Kern von anderen stammen, habe ich diese nur meinen Bedürfnissen angepasst.

Ich hoffe, dass ich einigen dabei helfen konnte, die das gleiche Problem haben.

Über eine positive Rückmeldung würde ich mich freuen, da ich jetzt nicht alle PDF-Erzeugungsprogramme ausprobiert habe.

Gruß

Volker