Office: (Office 2016) 2x Inputbox durch Userform ersetzen?

Helfe beim Thema 2x Inputbox durch Userform ersetzen? in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen, nachdem mir Beverly super geholfen hat den Code anzupassen, hab ich noch einen Änderungswunsch. Ist wie folgt gedacht.... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Marcel1002, 22. Januar 2019.

  1. 2x Inputbox durch Userform ersetzen?


    Hallo zusammen,
    nachdem mir Beverly super geholfen hat den Code anzupassen, hab ich noch einen Änderungswunsch.

    Ist wie folgt gedacht.

    Userform geht beim Start auf.

    Auswahl von Team (A bis E) und Datum per Kalender oder Dropdownauswahl (10 Tage vor bzw. zurück) , danach Daten importieren (also Makro ausführen)
    Die Userform mit den zwei Eingaben ersetzt dann die Inputboxen.
    Soweit die Theorie.
    Ich weiss leider nicht wie umsetzen, daher mal ein einfaches Beispiel in der der Datei die ich mit hochlade...

    Das Makro ist im Modul1.


    Danke schonmal
     
    Marcel1002, 22. Januar 2019
    #1
  2. Beverly
    Beverly Erfahrener User
    Hi,

    ins Codemodul des Userforms:

    Code:
    Private Sub UserForm_Activate()
        Dim lngZaehler As Long
        With Me.ListBox1
            .AddItem "Team A"
            .AddItem "Team B"
            .AddItem "Team C"
            .AddItem "Team D"
            .AddItem "Team E"
        End With
        For lngZaehler = Date - 10 To Date + 10
            With Me.ListBox2
                .AddItem Format(DateSerial(Year(lngZaehler), Month(lngZaehler), Day(lngZaehler)), "dd.mm.yyyy")
            End With
        Next lngZaehler
    End Sub
    
    

    Damit werden beim Starten des UserForms die ListBoxen gefüllt.

    Erstelle außerdem einen CommandButton auf dem UserForm und dort gehört dann der angepasste Code aus dem vorhergehenden Thread zum Importieren der Daten:

    Code:
    Private Sub CommandButton1_Click()
        Dim WKS As Worksheet
        Dim WKSZiel As Worksheet
        Dim rngFind As Range
        With Application
          .DisplayAlerts = False
          .ScreenUpdating = False
          .Calculation = xlCalculationManual
        End With
        Set WKSZiel = ActiveSheet
        WKSZiel.Unprotect ("MHS")
        Workbooks.Open Filename:="\\HECSOFILER01\Global-Data\MCO-Produktion\Schichteinteilung\Schichteinteilung.xlsm", Password:="2019", ReadOnly:=True
        If Me.ListBox1.ListIndex <> -1 Then
            On Error Resume Next
            Err.Clear
            Set WKS = Worksheets(Me.ListBox1.List(Me.ListBox1.ListIndex))
            If Err.Number > 0 Then
                Beep
                MsgBox "Team nicht gefunden! Auswahl richtig?"
            Else
                If Me.ListBox2.ListIndex <> -1 Then
                    With WKS
                        Set rngFind = .Cells.Find(DateValue(Me.ListBox2.List(Me.ListBox2.ListIndex)), LookIn:=xlValues, LookAt:=xlWhole)
                        If Not rngFind Is Nothing Then
                            WKSZiel.Cells(4, 5).Value = .Range("A2").Value
                            
                            WKSZiel.Cells(2, 5).Value = rngFind.Offset(0, 0).Value
                    
                            WKSZiel.Cells(6, 2).Value = rngFind.Offset(0, 2).Value
                            
                            '... hier der restliche Code
                            
                            Workbooks("Schichteinteilung.xlsm").Close SaveChanges:=False
                            WKSZiel.Protect ("MHS"), DrawingObjects:=True, Contents:=True, Scenarios:=True
                            ThisWorkbook.Saved = True
                        Else
                            MsgBox "Das Datum wurde nicht gefunden!"
                        End If
                    End With
                Else
                    MsgBox "Bitte Datum wählen"
                End If
            End If
        Else
            MsgBox "Bitte ein Team auswählen"
        End If
        Set WKS = Nothing
        Set WKSZiel = Nothing
        Set rngFind = Nothing
        With Application
            .DisplayAlerts = True
            .ScreenUpdating = True
            .Calculation = xlCalculationAutomatic
        End With
    End Sub
    
    

    Das Modul (in dem sich noch der vorhergehende Code mit Copy befindet) kannst du dann löschen.

    Noch ein Hinweis für die Zukunft: hochgeladene Beispielmappen sollten so benannt werden, dass sie etwas mit dem Thema zu tun haben - das erleichtert den Helfern, heruntergeladene Mappen einem bestimmten Thema zuzuordnen (schließlich antworten sie meist auf mehrere Themen). Außerdem würden Mappen benannt als "Mappe", "Test", "Beispiel" usw. bereits auf dem Rechner vorhandene Mappen überschreiben.

    Bis später,
    Karin
     
    Beverly, 22. Januar 2019
    #2
  3. Hi Berverly,

    vielen Dank das Du mir schon wieder geholfen hast.
    Funktioniert schon fast perfekt.
    Die Tabellenblätter von denen die Daten abgerufen werden heißen "A" und nicht "Team A" kann ich aber im Code ändern oder die Tabellenblätter umbenennen, kein Problem.

    Womit ich noch ein Problem hab, wird in der Userform nichts ausgewählt, kommt zwar die Fehlermeldung "Nichts ausgewählt, der Code läuft aber weiter und öffnet die Datei aus der die Daten geholt werden und bleibt dann stehen. Könntest du mir das evtl. noch so abändern, dass entweder immer Team A und das aktuelle Datum ausgewählt ist oder das wenn nichts ausgewählt wurde zur Userform zurückgekehrt wird.

    Ich würde die Datumsauswahl außerdem evtl. doch mit einem Kalender in der Userform machen bzw. mal anschauen um zu sehen wie es besser funktioniert,
     
    Zuletzt von einem Moderator bearbeitet: 30. November 2020
    Marcel1002, 22. Januar 2019
    #3
  4. Beverly
    Beverly Erfahrener User

    2x Inputbox durch Userform ersetzen?

    Hi,

    verschiebe die Zeile Workbooks.Open.... - und zwar gehört sie dann unter die Zeile

    Code:
    If Me.ListBox2.ListIndex <> -1 Then

    Wenn die Tabellenblätter anders heißen kannst du das im UserForm_Activate-Ereignis entsprechend ändern.

    Bis später,
    Karin
     
    Beverly, 22. Januar 2019
    #4
  5. Hallo Beverly,

    ich habe den Code nun so angepasst. Vielen Dank!
    Jetzt passiert noch das gleiche wenn kein Datum ausgewählt wurde.

    Wenn ich beides auswähle kommt jedes mal nach dem ausführen des Codes per Box "Datum nicht gefunden".
    PS. ich hab die Felder etwas angepasst und lade eine Aktuelle Version mit hoch. (Ursprüngliche Code mit Inputbox ist noch im Modul 1)
    Wäre schön wenn du nochmals drüber schauen könntest.

    Die Datumsauswahl gefällt mir noch nicht 100%tig. Ich hab hier bei den Steuerelementen einen "MS-Outlook Date Control" Element gefunden, wenn ich das allerdings einfüge schein es nicht zu funktionieren. (Nicht mit dem Server verbunden). Das wäre so wie ich es sehe die schönste Auswahl vom Datum.
    Hast du hier evtl. auch ein Tipp?

    Nochmals Danke und Grüße
    Marcel
     
    Marcel1002, 23. Januar 2019
    #5
  6. Hab noch ein kleinen Bug entdeckt.
    Wenn Die Datei aus der die Daten ausgelesen werden bereits geöffnet ist, kommt ebenfalls der Fehler "Datum nicht gefunden".
    Hier werden dann auch keine Daten importiert.
    Das die gleichen Fehler hab ich auch in der Datei mit Inputbox...
     
    Marcel1002, 23. Januar 2019
    #6
  7. Beverly
    Beverly Erfahrener User
    Du hast bei dem Code in deiner Mappe in diesem Teil


    Code:
                        If Not rngFind Is Nothing Then
                            WKSZiel.Cells(4, 5).Value = .Range("A2").Value
                            
                            WKSZiel.Cells(2, 5).Value = rngFind.Offset(0, 0).Value
                    
                            WKSZiel.Cells(6, 2).Value = rngFind.Offset(0, 2).Value
                            
                            '... hier der restliche Code
                            
                            Workbooks("Schichteinteilung.xlsm").Close SaveChanges:=False
                            WKSZiel.Protect ("MHS"), DrawingObjects:=True, Contents:=True, Scenarios:=True
                            ThisWorkbook.Saved = True
    [COLOR=#ff0000][B]                    Else
                            MsgBox "Das Datum wurde nicht gefunden!"[/B][/COLOR]
                        End If

    den Rot markierten Teil aus meinem geposteten Code vergessen...

    Wenn die Mappe bereits offen ist, muss man das entsprechend abfangen (siehe Blau markierten Code):

    Code:
    Private Sub CommandButton1_Click()
        Dim WKS As Worksheet
        Dim WKSZiel As Worksheet
        Dim rngFind As Range
    [COLOR=#0000ff]    Dim wkbMappe As Workbook
        Dim blnOffen As Boolean[/COLOR]
        With Application
          .DisplayAlerts = False
          .ScreenUpdating = False
          .Calculation = xlCalculationManual
        End With
        Set WKSZiel = ActiveSheet
        WKSZiel.Unprotect ("MHS")
        If Me.ComboBox1.ListIndex <> -1 Then
    [COLOR=#0000ff]        For Each wkbMappe In Workbooks
                If wkbMappe.Name = "Schichteinteilung.xlsm" Then
                    blnOffen = True
                    Exit For
                End If
            Next wkbMappe[/COLOR]
    [COLOR=#0000ff]        If blnOffen = False Then
                Workbooks.Open Filename:="\\HECSOFILER01\Global-Data\MCO-Produktion\Schichteinteilung\Schichteinteilung.xlsm", Password:="2019", ReadOnly:=True
                Set wkbMappe = ActiveWorkbook
            End If[/COLOR]
            On Error Resume Next
            Err.Clear
            Set WKS = wkbMappe.Worksheets(Me.ComboBox1.List(Me.ComboBox1.ListIndex))
            If Err.Number > 0 Then
                Beep
                MsgBox "Team nicht gefunden! Auswahl richtig?"
            Else
                If Me.ComboBox2.ListIndex <> -1 Then
                    With WKS
                        Set rngFind = .Cells.Find(DateValue(Me.ComboBox2.List(Me.ComboBox2.ListIndex)), LookIn:=xlValues, LookAt:=xlWhole)
                        If Not rngFind Is Nothing Then
                            'Team
                            WKSZiel.Cells(2, 14).Value = .Range("A2").Value
                            'Datum
                            WKSZiel.Cells(2, 8).Value = rngFind.Offset(0, 0).Value
                            'Schicht
                            WKSZiel.Cells(2, 17).Value = rngFind.Offset(0, 1).Value
                            'Schichtleiter A+B
                            WKSZiel.Cells(36, 13).Value = rngFind.Offset(0, 2).Value
                            'Schichtleiter C+D+E
                            WKSZiel.Cells(36, 15).Value = rngFind.Offset(0, 3).Value
                            'Stellvertretender Schichtleiter
                            WKSZiel.Cells(11, 4).Value = rngFind.Offset(0, 4).Value
                            'Spinnen+Lösen
                            WKSZiel.Cells(19, 3).Value = rngFind.Offset(0, 5).Value
                            'Vormontage
                            WKSZiel.Cells(19, 5).Value = rngFind.Offset(0, 6).Value
                            'SK1
                            WKSZiel.Cells(26, 4).Value = rngFind.Offset(0, 7).Value
                            'Gießen
                            WKSZiel.Cells(11, 9).Value = rngFind.Offset(0, 8).Value
                            'SK2
                            WKSZiel.Cells(19, 8).Value = rngFind.Offset(0, 9).Value
                            'SK3
                            WKSZiel.Cells(26, 9).Value = rngFind.Offset(0, 10).Value
                            'Endmontage
                            WKSZiel.Cells(19, 10).Value = rngFind.Offset(0, 11).Value
                            'Kartonieren
                            WKSZiel.Cells(11, 14).Value = rngFind.Offset(0, 12).Value
                            'Palettieren
                            WKSZiel.Cells(26, 14).Value = rngFind.Offset(0, 13).Value
                            'Sondertätigkeiten
                            WKSZiel.Cells(11, 17).Value = rngFind.Offset(0, 14).Value
                            'Sondertätigkeiten
                            WKSZiel.Cells(26, 17).Value = rngFind.Offset(0, 15).Value
                                                    
                            Workbooks("Schichteinteilung.xlsm").Close SaveChanges:=False
                            WKSZiel.Protect ("MHS"), DrawingObjects:=True, Contents:=True, Scenarios:=True
                            ThisWorkbook.Saved = True
                        Else
                            MsgBox "Das Datum wurde nicht gefunden!"
                        End If
                    End With
                Else
                    MsgBox "Bitte Datum wählen"
                End If
            End If
        Else
            MsgBox "Bitte ein Team auswählen"
        End If
        Set WKS = Nothing
        Set WKSZiel = Nothing
        Set rngFind = Nothing
        [COLOR=#0000ff]Set wkbMappe = Nothing[/COLOR]
        With Application
            .DisplayAlerts = True
            .ScreenUpdating = True
            .Calculation = xlCalculationAutomatic
        End With
    End Sub
    
    
     
    Beverly, 23. Januar 2019
    #7
  8. 2x Inputbox durch Userform ersetzen?

    Hi,
    Ok danke, ich teste gleich mal;-)
    Von der Idee mit dem Steuerelementen fürs Datum "MS-Outlook Date Control" hälst nichts?
    Grüße Marcel
     
    Marcel1002, 23. Januar 2019
    #8
  9. Nun funktioniert alles soweit bestens auch wenn die Datei bereits geöffnet ist bzw. kein Team ausgewählt wurde.
    Erstmal vielen vielen Dank für den Support.

    Eine Sache hab ich noch, bzw. zwei.
    Das erste wäre die Frage nach dem Steuerelementen fürs Datum "MS-Outlook Date Control"
    Das zweite. Wenn die Schicht ausgewählt wurde, aber kein Datum und der Code ausgeführt wird, kommt zwar die Box "Bitte Datum wählen" aber
    die Datei aus der die Daten gelesen werden ist im Hintergrund geöfnet, das soll so eigl. nicht sein. Gleiches Problem wie vorher beim Team;-(
     
    Marcel1002, 23. Januar 2019
    #9
  10. Beverly
    Beverly Erfahrener User
    Ich benutze kein "MS-Outlook Date Control".

    Wenn die andere Arbeitsmappe geschlossen werden soll, dann musst du die Zeile


    Code:
    Workbooks("Schichteinteilung.xlsm").Close   SaveChanges:=False
    auch in die Zeile vor oder nach der betreffenden MsgBox-Zeile kopieren, auch wenn ich den Sinn nicht verstehe - es spielt doch keine Rolle ob die Mappe bei fehlernder Auswahl noch offen ist oder nicht, es wird im Code doch abgefragt, ob sie noch offen ist und damit kein Fehler ausgelöst wird falls noch offen. Außerdem muss sie bei einer neuen Auswahl dann ja erneut geöffnet werden.

    Bis später,
    Karin
     
    Beverly, 23. Januar 2019
    #10
  11. Ok danke dir,
    naja ich komm dann nichtmehr auf die Auswahl zum Datum zurück.
    Da die andere Arbeitmappe geöffnet ist und das Makro hängt. Das ist der Hintergrund.
    Die alternative wäre das wir das Datum =Heute() als standard vordefinieren...
    Danke Grüße
     
    Marcel1002, 23. Januar 2019
    #11
  12. Ich denke ich weiß warum das so ist;-)
    Screenupdating = Fals dadurch geht das Fenster nicht zurück zur Eingabe, kann das sein?
     
    Marcel1002, 23. Januar 2019
    #12
  13. 2x Inputbox durch Userform ersetzen?

    Ich hab nun den Code mal so ergänst.
    Sieht fürs erste ganz gut aus;-) Oder passt aus deiner Sicht was nicht?

    LG
    Marcel

    HTML:
    Private Sub CommandButton1_Click()
        Dim WKS As Worksheet
        Dim WKSZiel As Worksheet
        Dim rngFind As Range
        Dim wkbMappe As Workbook
        Dim blnOffen As Boolean
        With Application
          .DisplayAlerts = False
          .ScreenUpdating = False
          .Calculation = xlCalculationManual
        End With
        Set WKSZiel = ActiveSheet
        WKSZiel.Unprotect ("MHS")
        If Me.ComboBox1.ListIndex <> -1 Then
            For Each wkbMappe In Workbooks
                If wkbMappe.Name = "Schichteinteilung.xlsm" Then
                    blnOffen = True
                    Exit For
                End If
            Next wkbMappe
            If blnOffen = False Then
                Workbooks.Open Filename:="\\HECSOFILER01\Global-Data\MCO-Produktion\Schichteinteilung\Schichteinteilung.xlsm", Password:="2019", ReadOnly:=True
                Set wkbMappe = ActiveWorkbook
            End If
            On Error Resume Next
            Err.Clear
            Set WKS = wkbMappe.Worksheets(Me.ComboBox1.List(Me.ComboBox1.ListIndex))
            If Err.Number > 0 Then
                Beep
                MsgBox "Team nicht gefunden! Auswahl richtig?"
            Else
                If Me.ComboBox2.ListIndex <> -1 Then
                    With WKS
                        Set rngFind = .Cells.Find(DateValue(Me.ComboBox2.List(Me.ComboBox2.ListIndex)), LookIn:=xlValues, LookAt:=xlWhole)
                        If Not rngFind Is Nothing Then
                            'Team
                            WKSZiel.Cells(2, 14).Value = .Range("A2").Value
                            'Datum
                            WKSZiel.Cells(2, 8).Value = rngFind.Offset(0, 0).Value
                            'Schicht
                            WKSZiel.Cells(2, 17).Value = rngFind.Offset(0, 1).Value
                            'Schichtleiter A+B
                            WKSZiel.Cells(36, 13).Value = rngFind.Offset(0, 2).Value
                            'Schichtleiter C+D+E
                            WKSZiel.Cells(36, 15).Value = rngFind.Offset(0, 3).Value
                            'Stellvertretender Schichtleiter
                            WKSZiel.Cells(11, 4).Value = rngFind.Offset(0, 4).Value
                            'Spinnen+Lösen
                            WKSZiel.Cells(19, 3).Value = rngFind.Offset(0, 5).Value
                            'Vormontage
                            WKSZiel.Cells(19, 5).Value = rngFind.Offset(0, 6).Value
                            'SK1
                            WKSZiel.Cells(26, 4).Value = rngFind.Offset(0, 7).Value
                            'Gießen
                            WKSZiel.Cells(11, 9).Value = rngFind.Offset(0, 8).Value
                            'SK2
                            WKSZiel.Cells(19, 8).Value = rngFind.Offset(0, 9).Value
                            'SK3
                            WKSZiel.Cells(26, 9).Value = rngFind.Offset(0, 10).Value
                            'Endmontage
                            WKSZiel.Cells(19, 10).Value = rngFind.Offset(0, 11).Value
                            'Kartonieren
                            WKSZiel.Cells(11, 14).Value = rngFind.Offset(0, 12).Value
                            'Palettieren
                            WKSZiel.Cells(26, 14).Value = rngFind.Offset(0, 13).Value
                            'Sondertätigkeiten
                            WKSZiel.Cells(11, 17).Value = rngFind.Offset(0, 14).Value
                            'Sondertätigkeiten
                            WKSZiel.Cells(26, 17).Value = rngFind.Offset(0, 15).Value
                                                    
                            Workbooks("Schichteinteilung.xlsm").Close SaveChanges:=False
                            WKSZiel.Protect ("MHS"), DrawingObjects:=True, Contents:=True, Scenarios:=True
                            ThisWorkbook.Saved = True
                        Else
                        End If
                       
                        
                    End With
                Else
                
                        Workbooks("Schichteinteilung.xlsm").Close SaveChanges:=False
                            MsgBox "Das Datum wurde nicht gefunden!"
                    MsgBox "Bitte Datum wählen"
                End If
            End If
        Else
            MsgBox "Bitte ein Team auswählen"
        End If
        Set WKS = Nothing
        Set WKSZiel = Nothing
        Set rngFind = Nothing
        Set wkbMappe = Nothing
        With Application
            .DisplayAlerts = True
            .ScreenUpdating = True
            .Calculation = xlCalculationAutomatic
        End With
    End Sub
     
    Marcel1002, 23. Januar 2019
    #13
  14. Beverly
    Beverly Erfahrener User
    Das kann ich nicht nachvollziehen.



    Mein Code sah anders aus - bei dir gibt es eine Else-Zeile bei der Datumssuche ohne Code danach, bei mir dagegen nicht.

    Bis später,
    Karin
     
    Beverly, 23. Januar 2019
    #14
  15. Ok die Zeile hab ich noch entfernt.

    Ich hab noch eine letzte Frage, dann sind wir glaub fertig ;-) Und nochmals vielen Dank für die Hilfe und Geduld.

    Die Userform würde ich gerne nach erfolgreicher Ausführung des Codes beenden. Wenn ich vor "End Sub" "unload Me" eingebe funktioniert dies auch wenn alle Daten richtig eingegeben wurden. Werden aber zb. das Datum nicht gesetzt, geht dann wird die Userform trotzdem geschlossen.

    Grüße
    Marcel
     
    Marcel1002, 23. Januar 2019
    #15
Thema:

2x Inputbox durch Userform ersetzen?

Die Seite wird geladen...
  1. 2x Inputbox durch Userform ersetzen? - Similar Threads - Inputbox Userform ersetzen

  2. Wert aus Inputbox in Textbox übernehmen ohne Inhalt zu löschen

    in Microsoft Excel Hilfe
    Wert aus Inputbox in Textbox übernehmen ohne Inhalt zu löschen: Hallo zusammen, ich habe mir ein Code mit hilfe KI gebastelt und komme nicht weiter. Wenn ich über die Inputbox eine Text eingebe, soll er den bestehenden Textinhalt nicht leeren sondern die...
  3. VBA Daten in Array durch inputbox befüllen lassen

    in Microsoft Excel Hilfe
    VBA Daten in Array durch inputbox befüllen lassen: Hi zusammen, Ich hab mal wieder eine Excel VBA Frage. Kurz zur Erklärung: Ich erhalte von einem Kunden eine Datei mit wiederum seinen Kunden, die ein bestimmtes Produkt gekauft haben(den Sinn...
  4. Abbrechen Button bei Inputbox

    in Microsoft Excel Hilfe
    Abbrechen Button bei Inputbox: Hallo zusammen, ich habe folgendes Problem: wenn ich bei meiner InputBox auf "Abbrechen" oder auf das "X" zum Schließen des Dialogfeldes drücke, erscheint die Fehlermeldung "Typen unverträglich"....
  5. VBA Makro abbrechen durch Inputbox

    in Microsoft Word Hilfe
    VBA Makro abbrechen durch Inputbox: Hallo zusammen, dank Gerhard H aus diesem Forum habe ich das folgende Makro im Einsatz, bei dem eine Spalte einer Tabelle in Word auf einen vom Anwender eingegebenen Begriff durchsucht wird und...
  6. in der InputBox Eingabe Werte begrenzen

    in Microsoft Excel Hilfe
    in der InputBox Eingabe Werte begrenzen: Hallo ich benötige mal eure Hilfe, ich suche eine Lösung für mein erstes Programm. Ich weiß nicht, wie ich in der Inputbox einen Wert begrenzen kann. Das heißt, wenn der Wert zwischen O und 0,29,...
  7. Datumssuche mit Inputbox

    in Microsoft Excel Hilfe
    Datumssuche mit Inputbox: Hallo Gemeinde, ich bin mit meinem Laienlatein am Ende und hoffe hier des Rätsels Lösung zu finden. Mein Projekt ist ein Dienstplaner. Jede Abteilung hat ein Arbeitsblatt, um An-und Abwesenheiten...
  8. Array mit Range aus InputBox befüllen geht nicht

    in Microsoft Excel Hilfe
    Array mit Range aus InputBox befüllen geht nicht: hallo folgender Code macht einen Fehler. Warum? Code: Sub Versuch() Dim meinArray() As Variant 'Fehler, weil "Typen unverträglich". Warum? meinArray = Application.InputBox("Bitte wähle...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden