<\/p>\n
Autor: André Minhorst, Duisburg<\/b><\/p>\n
Es gibt die unterschiedlichsten Möglichkeiten zur Durchführung von Abfragen. Sie reichen von der einfachen Auswahlabfrage, die Sie mit dem Abfragedesigner erstellen, über die parameterisierte Abfrage als Datenherkunft eines Formulars bis hin zu Aktionsabfragen zum Hinzufügen, Löschen und ändern von Daten, die zur Laufzeit per VBA zusammengesetzt werden. Dabei behandelt man die Parameterabfragen oft ein wenig stiefmütterlich, da andere Methoden auf den ersten Blick bequemer erscheinen. Der vorliegende Beitrag beschreibt die Anwendungsmöglichkeiten von Parameterabfragen unterschiedlichster Art.<\/b><\/p>\n
Die Verwendung von Parametern dient vor allem der Erhöhung der Flexibilität von Abfragen. Während einfache gespeicherte Abfragen ohne Parameter immer das gleiche Ergebnis liefern (es sei denn, die zugrunde liegenden Daten würden geändert), können Sie mit zur Laufzeit dynamisch erstellten Abfragen oder mit Parameterabfragen Ergebnismengen darstellen, die von den jeweiligen Parametern abhängen.<\/p>\n
Ein weiterer Vorteil gespeicherter Abfragen ist ein eventueller Performance-Gewinn. <\/p>\n
Wenn Sie die Beispieldaten nicht von Hand eingeben möchten, können Sie auch die Beispieldatenbanken Parameterabfragen97.mdb bzw. Parameterabfragen2000.mdb verwenden.<\/p>\n
Für die nachfolgenden Beispiele benötigen Sie wie immer einige Beispieldaten. Legen Sie einfach eine Tabelle namens tblKontakte an und fügen Sie ihr die Felder KontaktID, Vorname, Nachname, Geburtsdatum und AnredeID hinzu. Außerdem sollten Sie zwei bis drei Testdatensätze anlegen.<\/p>\n
Die zweite Tabelle der Beispieldatenbank heißt tblAnreden und enthält unterschiedliche Anreden wie Herr, Frau usw. Dazu verwendet sie die beiden Felder AnredeID und Anrede.<\/p>\n
Die beiden Tabellen sind über das Feld AnredeID der Tabelle tblKontakte miteinander verknüpft.<\/p>\n
Die einfachste Möglichkeit zur Erstellung einer Parameterabfrage bietet die Abfrage-Entwurfsansicht von Access. Von dort aus können Sie die erstellten Abfragen auch direkt ausführen und deren Ergebnisse anzeigen lassen. <\/p>\n
Erstellung einer Abfrage<\/b><\/p>\n
Sie öffnen die Abfrage-Entwurfsansicht, indem Sie im Register Abfragen des Datenbankfensters auf die Schaltfläche Neu klicken und anschließend den Eintrag Entwurfsansicht auswählen.<\/p>\n
Wählen Sie hier aus der Liste der verfügbaren Tabellen die Tabelle tblKontakte aus und klicken Sie auf die Schaltfläche Hinzufügen (siehe Bild 1).<\/p>\n
![](\"..\/fileadmin\/_temp_\/{8BBD969C-FB58-4737-B2AB-24044DB0FAFC}\/pic001.png\")
<\/p>\n
Bild 1: Hinzufügen einer Tabelle zum Abfrageentwurf<\/span><\/b><\/p>\n Nachdem Sie die Tabelle tblKontakte hinzugefügt haben, können Sie alle vier Felder KontaktID, Vorname, Nachname und Geburtstag aus der Feldliste in das Entwurfsraster der Abfrage ziehen.<\/p>\n Klicken Sie mit der rechten Maustaste in den oberen Bereich des Abfrageentwurfs und wählen Sie den Eintrag Datenblattansicht aus dem nun erscheinenden Kontextmenü aus, um das Abfrageergebnis anzuzeigen (siehe Bild 2).<\/p>\n Bild 2: Ergebnis der Abfrage<\/span><\/b><\/p>\n Hinzufügen eines Parameters<\/b><\/p>\n Fügen Sie der Abfrage nun einen Parameter hinzu, indem Sie in der Zeile Kriterien im Abfrageentwurf für das Feld Vorname den folgenden Ausdruck eingeben (siehe Bild 3):<\/p>\n Bild 3: Abfrage mit Parameter<\/span><\/b><\/p>\n Beachten Sie, dass dieses Kriterium nur solche Ergebnisse anzeigt, die genau mit dem Kriterium übereinstimmen. Die Verwendung von Platzhaltern, wie dem Sternchen (*) als Platzhalter für eine unbestimmte Anzahl von Zeichen oder dem Fragezeichen () stellvertretend für ein Zeichen, hat hier keine Wirkung.<\/p>\n Wenn Sie Platzhalter verwenden möchten, verwenden Sie statt des Gleichheitszeichens den Vergleichsoperator Like. Sie können auch direkt das deutsche Pendant Wie in den Abfrageentwurf eintragen. Access nimmt automatisch die übersetzung ins Deutsche vor:<\/p>\n Wenn Sie nun die Abfrage ausführen lassen möchten, erscheint ein Dialogfenster mit der angegebenen Aufforderung (siehe Bild 4). <\/p>\n Bild 4: Abfrage eines Parameters per Dialogfenster<\/span><\/b><\/p>\n Bild 5: Parameterabfrage per Inputbox<\/span><\/b><\/p>\n Nachdem Sie den gewünschten Wert eingegeben haben, zeigt die Abfrage die gefundenen Datensätze an.<\/p>\n Wenn Sie im Kontextmenü des Abfragefensters den Eintrag SQL auswählen, erscheint die zugrunde liegende SQL-Anweisung. Sie lautet in diesem Fall:<\/p>\n Die Entwurfsansicht von Abfragen ist schlicht und einfach ein Werkzeug zur komfortablen Erstellung von SQL-Ausdrücken. Diese werden nach der Erstellung auch gespeichert. <\/p>\n Access ist hier etwas übervorsichtig: Wenn eine Abfrage mehrere Tabellen mit gleichnamigen Feldern enthält, dann ist es nicht nur übersichtlicher, sondern auch unbedingt notwendig, dem Feldnamen den Tabellennamen voranzustellen.<\/p>\n Im vorliegenden Fall könnten Sie die Anweisung allerdings erheblich kürzen und erhalten eher eine übersichtlichere Ansicht:<\/p>\n Oftmals erfordert die Eingabe nur Standardwerte. Zur Vereinfachung der Eingabe wäre es hier sinnvoll, einen Standardwert vorzugeben. Dies ist aber mit der beschriebenen Eingabemaske nicht möglich.<\/p>\n Access bietet allerdings einen weiteren, einfachen Dialog, der ein wenig komfortabler ist und für rudimentäre Anwendungen ausreichen kann. Der Dialog bietet eine Reihe von Parametern, von denen hier nur die ersten drei interessant sind: der Fragetext, die überschrift sowie der Standardwert.<\/p>\n Leider kann dieser Dialog nicht direkt aus einer Abfrage heraus aufgerufen werden, Sie müssen sich mit einer kleinen VBA-Funktion helfen.<\/p>\n <\/p>\n Legen Sie dazu ein neues Modul an und speichern Sie es unter dem Namen mdlParameterabfragen. Geben Sie dann die Funktion aus Quellcode 1 ein und speichern Sie das Modul.<\/p>\n Quellcode 1<\/b><\/p>\n Nun müssen Sie noch den Namen der Funktion sowie die gewünschten übergabeparameter als Kriterium der Abfrage eintragen. Dazu verwenden Sie beispielsweise den folgenden Ausdruck:<\/p>\n Die Abfrage ermittelt nun das Kriterium, indem es die Funktion Parametereingabe aufruft. Diese zeigt wiederum die gewünschte Inputbox mit dem Standardwert an (siehe Bild 5).<\/p>\n Wenn der Benutzer die Schaltfläche OK betätigt, wird das Sternchen als Parameter verwendet. Die Abfrage zeigt dann – soweit keine anderen Kriterien vorhanden sind – alle Datensätze an.<\/p>\n Abfrage mit mehreren Parametern<\/b><\/p>\n Wenn Sie für mehrere Felder einen Parameter eingeben möchten, tragen Sie einfach die entsprechenden Texte in die Kriterien-Zeile der gewünschten Felder ein. Es erscheinen dann nacheinander die Dialogfenster mit den angegebenen Texten.<\/p>\n Sie können auch mehrere Parameter zu einem einzelnen Feld abfragen. Das macht vor allem dann Sinn, wenn Sie Datumsangaben in einem bestimmten Zeitraum anzeigen möchten. Der Ausdruck für das Kriterium sieht dann etwa folgendermaßen aus:<\/p>\n Die Parametereingabe wird schnell unübersichtlich, wenn es um mehr als einen Parameter geht. In dem Fall ist es sinnvoller, statt des Standarddialoges ein benutzerdefiniertes Formular zu verwenden. Hier können Sie dann alle benötigten Parameter auf einen Blick anzeigen und gleichzeitig das Layout des Formulars selbst bestimmen.<\/p>\n Dazu benötigen Sie ein einfaches Formular mit vier ungebundenen Textfeldern namens txtVorname, txtNachname, txtGeburtsdatumVon und txtGeburtsdatumBis (siehe Bild 6).<\/p>\n Bild 6: Entwurfsansicht des benutzerdefinierten Eingabeformulars<\/span><\/b><\/p>\n Es fehlt noch das Bindeglied zwischen dem Formular und der Abfrage. Wenn Sie die gewünschten Parameter in das Formular eingegeben haben, müssen Sie der Abfrage die eingegebenen Werte als Parameter übergeben.<\/p>\n Dazu ändern Sie einfach die Kriterien der Abfrage so um, dass Sie auf die Steuerelemente des Formulars zeigen und deren Inhalt als Parameter für die Kriterien der Abfrage übernehmen.<\/p>\n Den Inhalt eines Steuerelementes in einem Formular können Sie beispielsweise folgendermaßen auslesen:<\/p>\n Der Ausdruck bezieht sich zunächst auf die Auflistung der Formulare der Datenbank. Aus dieser Auflistung wählt der Ausdruck das Formular mit dem angegebenen Namen frmAbfrageparameter und aus diesem das Steuerelement txtVorname aus.<\/p>\n Die beiden anderen Kriterien sehen ähnlich aus:<\/p>\n Wenn Sie die Ergebnismenge der Abfrage abrufen, während das Formular geöffnet ist, liest es die dort vorhandenen Parameter aus, setzt sie als Kriterien ein und ermittelt das entsprechende Ergebnis.<\/p>\n Wenn Sie eine Datensatzgruppe – in diesem Falle das Ergebnis einer Abfrage – nicht direkt anzeigen möchten, sondern es für die Weiterverarbeitung mit VBA benötigen, gibt es einige sinnvolle Möglichkeiten, von denen die beiden folgenden beschrieben werden sollen:<\/p>\n Filterformular<\/b><\/p>\n Als Beispiel für die beiden Vorgehensweisen soll ein kleines Filterformular dienen. Dazu erweitern Sie das Formular des vorherigen Beispiels um ein Unterformular namens sfmErgebnis. Das Unterformular hat fünf gebundene Felder, die der Anzeige von Datensätzen der Tabelle tblKontakte dienen (siehe Bild 7).<\/p>\n Bild 7: Das Unterformular sfmErgebnis in der Entwurfsansicht<\/span><\/b><\/p>\n Um die Felder komfortabel hinzuzufügen, können Sie die Tabelle tblKontakte als Datenherkunft des Unterformulars einstellen und die Felder aus der Feldliste in den Detailbereich des Formularentwurfs ziehen.<\/p>\n Stellen Sie die Eigenschaft Standardansicht des Formulars auf den Wert Datenblatt ein, damit es die Daten in Tabellenform anzeigen kann.<\/p>\n Fügen Sie das Formular als Unterformular in das Formular des vorherigen Beispiels ein. Da die Datenherkunft des Unterformulars derzeit noch nicht gefiltert wird, zeigt es beim öffnen alle Datensätze an (siehe Bild 8).<\/p>\n Bild 8: Formular zum Filtern von Daten<\/span><\/b><\/p>\n Filtervorgang starten<\/b><\/p>\n Nach der Eingabe der Filterkriterien müssen Sie den Filtervorgang starten. Dazu erstellen Sie am besten eine Schaltfläche namens cmdFiltern und versehen sie mit der Beschriftung Filtervorgang starten.<\/p>\n Für die Ereigniseigenschaft Beim Klicken hinterlegen Sie die Prozedur zum Auslesen der Filterkriterien und zum Anzeigen der Ergebnismenge.<\/p>\n Die Prozedur zum Filtern der Datensätze finden Sie in Quellcode 2. Die Prozedur liest die Inhalte der einzelnen Textfelder ein und überprüft, ob sie einen Wert beinhalten.<\/p>\n Quellcode 2<\/b><\/p>\n Um Null-Werte abzufangen, verwenden die Felder den folgenden Ausdruck:<\/p>\n Dadurch wird der Inhalt von Feldname – auch wenn er den Wert Null hat – in eine Zeichenkette umgewandelt. Wenn mindestens ein Feld einen Wert enthält, setzt die Prozedur eine entsprechende SQL-Zeichenkette zusammen. <\/p>\n Anschließend weist die Prozedur die ermittelte Datensatzgruppe der Datenherkunft des Unterformulars zu.<\/p>\n Diese Variante greift erst ab Access in der Version 2000. Der Grund ist die fehlende Möglichkeit in Access 97, einem Formular oder einem Kombinations- bzw. Listenfeld ein per VBA geöffnetes Recordset als Daten- bzw. Datensatzherkunft zu übergeben.<\/p>\n Das Filtern per gespeicherter Abfrage und übergebener Parameter ist etwas weniger weit verbreitet.<\/p>\n Als Parameterabfrage dient die in Bild 9 dargestellte Abfrage. Sie enthält vier Parameter: prmVorname, prmNachname, prmGeburtsdatumVon und GeburtsdatumBis.<\/p>\n Legen Sie im Formular eine weitere Schaltfläche namens cmdFilternMitParametern mit einer entsprechenden Beschriftung an.<\/p>\n Bild 9: Abfrage mit vier Parametern<\/span><\/b><\/p>\n Quellcode 3<\/b><\/p>\n Die durch die Schaltfläche ausgelöste Prozedur finden Sie in Quellcode 3. Unter ADO arbeiten Sie nicht mehr mit dem QueryDef-Objekt, sondern mit dem Command-Objekt. Die Beispielprozedur setzt zunächst Objektvariablen auf das aktuelle Datenbankprojekt und instanziert ein Command- sowie ein Parameter-Objekt. <\/p>\n Eigentlich werden für den Vorgang vier Parameter benötigt. Da aber mit allen Parametern ungefähr gleich verfahren wird, enthält der Beispielcode nur einen Parameter. Den kompletten Code finden Sie in der Beispieldatenbank Parameterabfragen2000.mdb.<\/p>\n Anschließend legt die Prozedur die Eigenschaften des Parameters fest und fügt diesen an die Parameters-Auflistung des Command-Objekts an.<\/p>\n Dann weist sie dem Command-Objekt den Namen der zugrunde liegenden Abfrage zu. <\/p>\n Nach dem Ausführen des Command-Objektes und der Zuweisung an das Recordset-Objekt wird dieses als Datenherkunft des Unterformulars festgelegt.<\/p>\n Auch in Aktionsabfragen können Sie Parameter verwenden. Als Beispiel soll das Hinzufügen eines Datensatzes in die Tabelle tblAnreden dienen, wenn ein noch nicht vorhandener Wert in das Kombinationsfeld des Unterformulars eingegeben wird (siehe Bild 10).<\/p>\n Bild 10: Eingabe eines neuen Wertes in ein Kombinationsfeld<\/span><\/b><\/p>\n Auch für dieses Beispiel lernen Sie Varianten mit und ohne die Verwendung von Parametern in einer gespeicherten Abfrage kennen.<\/p>\n Dynamisch zusammengesetzteAnfügeabfrage<\/b><\/p>\n Damit ein neuer Datensatz in der zugrunde liegenden Tabelle gespeichert wird, legen Sie eine Prozedur für die Ereigniseigenschaft Bei Nicht in Liste an (s. Quellcode 4).<\/p>\n Quellcode 4<\/b><\/p>\n Die Prozedur setzt den gewünschten SQL-Ausdruck zu-sammen und führt ihn direkt aus.<\/p>\n Anfügeabfrage mit Parametern<\/b><\/p>\n Die Alternative dazu ist das Speichern der Anfügeabfrage mit einem Parameter. Der SQL-Code der Anweisung sieht folgendermaßen aus:<\/p>\n Diese Abfrage unterscheidet sich im Aufbau nicht von der aus dem vorherigen Beispiel. Allerdings soll sie als Abfrage unter dem Namen qryNeueAnrede gespeichert werden und besitzt statt eines dynamisch hinzugefügten Parameters einen echten Parameter.<\/p>\n Die Prozedur für die Ereigniseigenschaft Bei Nicht in Liste ist etwas umfangreicher als die des vorherigen Beispiels (s. Quellcode 5).<\/p>\n Quellcode 5<\/b><\/p>\n Die Prozedur deklariert zunächst Objektvariablen für die Datenbank und die Abfragedefinition. Anschließend weist sie dem QueryDef-Objekt die gewünschte Parameterabfrage zu. <\/p>\n Die übergabe des Parameters erfolgt über die Zuweisung der Variablen NewData an den Eintrag NeueAnrede der Parameters-Auflistung.<\/p>\n Die Vorgehensweise unter Verwendung von ADO ist der hier geschilderten ähnlich. Daher wird an dieser Stelle nicht näher darauf eingegangen. Sie finden die ADO-Variante aller Beispiele aber auf der Beispieldatenbank Parameterabfragen2000.mdb.<\/p>\n<\/p>\n Enthaltene Beispieldateien:<\/p>\n Parameterabfragen00.mdb<\/p>\n Parameterabfragen97.mdb<\/p>\n![](\"..\/fileadmin\/_temp_\/{8BBD969C-FB58-4737-B2AB-24044DB0FAFC}\/pic002.png\")
<\/p>\n=[Geben Sie einen Vornamen ein:]<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{8BBD969C-FB58-4737-B2AB-24044DB0FAFC}\/pic003.png\")
<\/p>\nVerwendung von Platzhaltern<\/h3>\n
Wie [Geben Sie einen Vornamen ein:]<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{8BBD969C-FB58-4737-B2AB-24044DB0FAFC}\/pic004.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{8BBD969C-FB58-4737-B2AB-24044DB0FAFC}\/pic005.png\")
<\/p>\nAussehen der SQL-Anweisung<\/h3>\n
SELECT tblKontakte.KontaktID, tblKontakte.Vorname, tblKontakte.Nachname, tblKontakte.Geburtstag\r\nFROM tblKontakte\r\nWHERE (((tblKontakte.Vorname) Like [Geben Sie einen Vornamen ein:]) AND ((tblKontakte.Geburtstag) Between [Startdatum] And [Enddatum]));<\/pre>\n
Hinweis<\/h3>\n
SELECT KontaktID, Vorname, Nachname, Geburtstag\r\nFROM tblKontakte\r\nWHERE Vorname Like [Geben Sie einen Vornamen ein:] AND Geburtstag Between [Startdatum] And [Enddatum];<\/pre>\n
Vorgabe von Standardwerten<\/h3>\n
Public Function Parametereingabe(Frage As String, _ Titel As String, Standardwert As String) As String\r\n Parametereingabe = _ InputBox(Frage, Titel, Standardwert)\r\nEnd Function<\/pre>\n
Wie Parametereingabe(\"Bitte geben Sie _ einen Vornamen _ ein:\";\"Parametereingabe\";\"*\")<\/pre>\n
Zwischen [Startdatum] Und [Enddatum]<\/pre>\n
Gleichzeitige Eingabe mehrerer Parameter<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{8BBD969C-FB58-4737-B2AB-24044DB0FAFC}\/pic006.png\")
<\/p>\nWie Forms!frmAbfrageparameter!txtVorname<\/pre>\n
Zwischen [Forms]![frmAbfrageparameter]![txtGeburtsdatumVon] Und [Forms]![frmAbfrageparameter]!\r\n[txtGeburtsdatumBis]<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{8BBD969C-FB58-4737-B2AB-24044DB0FAFC}\/pic007.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{8BBD969C-FB58-4737-B2AB-24044DB0FAFC}\/pic008.png\")
<\/p>\nFiltern per dynamische SQL-Abfrage<\/h3>\n
Private Sub cmdFiltern_Click()\r\n Dim db As Database\r\n Dim strSQL, strSQLWHERE As String\r\n strSQL = \"SELECT * FROM tblKontakte\"\r\n If Not (\"\" & Me.txtVorname) = \"\" Then\r\n strSQLWHERE = \" Vorname LIKE ''\" & Me.txtVorname & \"''\"\r\n End If\r\n If Not (\"\" & Me.txtNachname) = \"\" Then\r\n strSQLWHERE = strSQLWHERE & \" AND Nachname LIKE ''\" & Me.txtNachname & \"''\"\r\n End If\r\n If Not (\"\" & Me.txtGeburtsdatumVon) = \"\" Then\r\n strSQLWHERE = strSQLWHERE & \" AND Geburtsdatum >= \" _ & ISODatum(Me.txtGeburtsdatumVon)\r\n End If\r\n If Not (\"\" & Me.txtGeburtsdatumBis) = \"\" Then\r\n strSQLWHERE = strSQLWHERE & \" AND Geburtsdatum <= \" _ & ISODatum(Me.txtGeburtsdatumBis)\r\n End If\r\n If Not strSQLWHERE = \"\" Then\r\n If Mid(strSQLWHERE, 1, 4) = \" AND\" Then\r\n strSQLWHERE = Mid(strSQLWHERE, 5, Len(strSQLWHERE))\r\n End If\r\n strSQL = strSQL & \" WHERE\" & strSQLWHERE\r\n End If\r\n Me.sfmErgebnis.Form.RecordSource = strSQL\r\nEnd Sub<\/pre>\n
\"\" & Feldname<\/pre>\n
Filtern durch gespeicherte Abfrage und Parameter<\/h3>\n
Hinweis<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{8BBD969C-FB58-4737-B2AB-24044DB0FAFC}\/pic009.png\")
<\/p>\nPrivate Sub cmdFilternMitParametern_Click()\r\n Dim cnn As ADODB.Connection\r\n Dim cmd As ADODB.Command\r\n Dim prmVorname As ADODB.Parameter\r\n Dim rst As New ADODB.Recordset\r\n Set cnn = CurrentProject.Connection\r\n Set cmd = New ADODB.Command\r\n Set prmVorname = New ADODB.Parameter\r\n cmd.ActiveConnection = cnn\r\n cmd.CommandText = \"qryKontakteMitParameter\"\r\n prmVorname.Name = \"prmVorname\"\r\n prmVorname.Type = adVarChar\r\n prmVorname.Size = 50\r\n prmVorname.Value = IIf(\"\" & Me.txtVorname = \"\", \"*\", \"\" & Me.txtVorname)\r\n prmVorname.Direction = adParamInput\r\n cmd.Parameters.Append prmVorname\r\n rst.CursorType = adOpenKeyset\r\n rst.LockType = adLockOptimistic\r\n Set rst = cmd.Execute\r\n Set Me.Recordset = rst\r\nEnd Sub<\/pre>\n
Hinweis<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{8BBD969C-FB58-4737-B2AB-24044DB0FAFC}\/pic010.png\")
<\/p>\nPrivate Sub Anrede_NotInList(NewData As String, Response As Integer)\r\n Response = acDataErrAdded\r\n CurrentDb.Execute \"INSERT INTO tblAnreden(Anrede) VALUES(''\" & NewData & \"'')\"\r\nEnd Sub<\/pre>\nINSERT INTO tblAnreden ( Anrede ) SELECT [NeueAnrede];<\/pre>\n
Private Sub Anrede_NotInList(NewData As String, Response As Integer)\r\n Response = acDataErrAdded\r\n Dim db As Database\r\n Dim qdf As QueryDef\r\n Set db = CurrentDb\r\n Set qdf = db.QueryDefs(\"qryNeueAnrede\")\r\n qdf.Parameters(\"NeueAnrede\") = NewData\r\n qdf.Execute\r\nEnd Sub<\/pre>\n
Hinweis<\/h3>\n
Downloads zu diesem Beitrag<\/h2>\n