Hallo,
ich bin Anfänger auf dem Gebiet VBA, besonders mit den Befehlen.
Falls mein Post hier falsch ist, bitte ich um Nachsicht und um verschieben des Posts. DANKE vorab.
Mein Problem sieht folgendermaßen aus.
Ich habe mit Hilfe eines Videos versucht eine Datenbank zu erstellen und nun kommen die "kleinen" Änderungen.
Die Datei kann ich leider nicht hochladen, da sie Makros enthält, aber vielleicht hilft es ja, wenn ich meine "eingaben" hierhinein kopiere.
Meine derzeitige Inventar_Eingabe_Maske:
Spoiler anzeigen
Außerdem habe ich noch eine Reparatur_Maske erstellt und genau da brauche ich etwas Hilfe.
In der Inventar_Eingabe_Maske konnte ich einen Button erstellen, der ein neues Formula (die Reparatur_Maske) aufruft.
Aber ich weiß nicht, welche Codes ich eintragen muss, damit ich etwas suchen kann.
In der Reparatur_Maske habe ich das Label: Inventarnummer; die TextBox_Inventarnummer und den CommandButton1 (mit der Caption: Suchen)
Gesucht werden soll in der Maske_1 ; Tabelle1; Spalte "A" ausschließlich. [Hier habe ich bereits mehr als 5000 Zeilen eingefügt.] Format: 00 000 und DM 00000
Eines von beiden sollte in jedem Fall gefunden werden.
Ich würde mich sehr über Hilfe freuen.
Danke
Johanne
Spoiler und CodeTags nach Post#2 gesetzt ~VaporiZed
ich bin Anfänger auf dem Gebiet VBA, besonders mit den Befehlen.
Falls mein Post hier falsch ist, bitte ich um Nachsicht und um verschieben des Posts. DANKE vorab.
Mein Problem sieht folgendermaßen aus.
Ich habe mit Hilfe eines Videos versucht eine Datenbank zu erstellen und nun kommen die "kleinen" Änderungen.
Die Datei kann ich leider nicht hochladen, da sie Makros enthält, aber vielleicht hilft es ja, wenn ich meine "eingaben" hierhinein kopiere.
Meine derzeitige Inventar_Eingabe_Maske:
Visual Basic-Quellcode
- Option Explicit
- Private Sub Button_Schließen_Click()
- 'Eingabefenster schließen
- Unload Inventar_Eingabe_Maske
- End Sub
- Private Sub Button_Eingabe_Click()
- 'Eingaben der Schaltfläche in die Arbeitsmappe übernehmen
- Dim last As Integer
- last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
- 'Inventarnummer
- Cells(last, 1).Value = TextBox_Inventarnummer
- 'Bezeichnung
- Cells(last, 2).Value = TextBox_Bezeichnung
- 'BezeichnungZusatz
- Cells(last, 3).Value = TextBox_BezeichnungZusatz
- 'Invertarrubrik
- Cells(last, 4).Value = ComboBox_Inventarrubrik.Value
- 'Auftragsnummer
- Cells(last, 5).Value = TextBox_Auftragsnummer
- 'Auftragsdatum
- Cells(last, 6).Value = TextBox_Auftragsdatum
- 'KostenNetto
- Cells(last, 7).Value = TextBox_KostenBrutto
- 'Anschaffungsdatum
- Cells(last, 8).Value = TextBox_Anschaffungsdatum
- 'Seriennummer
- Cells(last, 9).Value = TextBox_Seriennummer
- 'Artikelnummer
- Cells(last, 10).Value = TextBox_Artikelnummer
- 'Bundnummer
- Cells(last, 11).Value = TextBox_Bundnummer
- 'Bestellnummer
- Cells(last, 12).Value = TextBox_Bestellnummer
- 'Hersteller
- Cells(last, 13).Value = TextBox_Hersteller
- 'Lieferant
- Cells(last, 14).Value = TextBox_Lieferant
- 'Rechnungsnummer
- Cells(last, 15).Value = TextBox_Rechnungsnummer
- 'Bemerkung
- Cells(last, 16).Value = TextBox_Bemerkung
- 'Verwaltungskontenrahmen
- Cells(last, 17).Value = TextBox_Verwaltungskontenrahmen
- 'Organisationseinheit
- Cells(last, 18).Value = TextBox_Organisationseinheit
- 'Nutzer
- Cells(last, 19).Value = TextBox_Nutzer
- 'Standort
- Cells(last, 20).Value = TextBox_Standort
- 'GebäudeNr
- Cells(last, 21).Value = TextBox_GebäudeNr
- 'Etage
- Cells(last, 22).Value = TextBox_Etage
- 'RaumNr
- Cells(last, 23).Value = TextBox_RaumNr
- 'Reparatur
- Cells(last, 24).Value = ComboBox_Reparatur.Value
- 'Zubehör
- Cells(last, 25).Value = ComboBox_Zubehör.Value
- 'Wartung
- Cells(last, 26).Value = ComboBox_Wartung.Value
- 'Durchsicht
- Cells(last, 27).Value = ComboBox_Durchsicht.Value
- 'Aussonderung
- Cells(last, 28).Value = ComboBox_Aussonderung.Value
- 'TagDerBeräumung
- Cells(last, 29).Value = TextBox_TagDerBeräumung
- 'GrundDerAussonderung
- Cells(last, 30).Value = TextBox_GrundDerAussonderung
- End Sub
- Private Sub TextBox_Inventarnummer_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_Inventarnummer.BackColor = vbYellow
- End Sub
- Private Sub TextBox_Inventarnummer_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- TextBox_Inventarnummer.BackColor = vbWhite
- End Sub
- Private Sub TextBox_Bezeichnung_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_Bezeichnung.BackColor = vbYellow
- End Sub
- Private Sub TextBox_Bezeichnung_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- TextBox_Bezeichnung.BackColor = vbWhite
- End Sub
- Private Sub TextBox_BezeichnungZusatz_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_BezeichnungZusatz.BackColor = vbYellow
- End Sub
- Private Sub TextBox_BezeichnungZusatz_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- TextBox_BezeichnungZusatz.BackColor = vbWhite
- End Sub
- Private Sub ComboBox_Inventarrubrik_Enter()
- 'aktivierte Zelle gelb färben
- ComboBox_Inventarrubrik.BackColor = vbYellow
- End Sub
- Private Sub ComboBox_Inventarrubrik_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- ComboBox_Inventarrubrik.BackColor = vbWhite
- End Sub
- Private Sub TextBox_Auftragsnummer_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_Auftragsnummer.BackColor = vbYellow
- End Sub
- Private Sub TextBox_Auftragsnummer_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- TextBox_Auftragsnummer.BackColor = vbWhite
- End Sub
- Private Sub TextBox_Auftragsdatum_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_Auftragsdatum.BackColor = vbYellow
- End Sub
- Private Sub TextBox_Auftragsdatum_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- TextBox_Auftragsdatum.BackColor = vbWhite
- End Sub
- Private Sub TextBox_KostenBrutto_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_KostenBrutto.BackColor = vbYellow
- End Sub
- Private Sub TextBox_KostenBrutto_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- TextBox_KostenBrutto.BackColor = vbWhite
- End Sub
- Private Sub TextBox_Anschaffungsdatum_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_Anschaffungsdatum.BackColor = vbYellow
- End Sub
- Private Sub TextBox_Anschaffungsdatum_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- TextBox_Anschaffungsdatum.BackColor = vbWhite
- End Sub
- Private Sub TextBox_Seriennummer_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_Seriennummer.BackColor = vbYellow
- End Sub
- Private Sub TextBox_Seriennummer_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- TextBox_Seriennummer.BackColor = vbWhite
- End Sub
- Private Sub TextBox_Artikelnummer_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_Artikelnummer.BackColor = vbYellow
- End Sub
- Private Sub TextBox_Artikelnummer_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- TextBox_Artikelnummer.BackColor = vbWhite
- End Sub
- Private Sub TextBox_Bundnummer_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_Bundnummer.BackColor = vbYellow
- End Sub
- Private Sub TextBox_Bundnummer_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- TextBox_Bundnummer.BackColor = vbWhite
- End Sub
- Private Sub TextBox_Bestellnummer_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_Bestellnummer.BackColor = vbYellow
- End Sub
- Private Sub TextBox_Bestellnummer_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- TextBox_Bestellnummer.BackColor = vbWhite
- End Sub
- Private Sub TextBox_Hersteller_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_Hersteller.BackColor = vbYellow
- End Sub
- Private Sub TextBox_Hersteller_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- TextBox_Hersteller.BackColor = vbWhite
- End Sub
- Private Sub TextBox_Lieferant_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_Lieferant.BackColor = vbYellow
- End Sub
- Private Sub TextBox_Lieferant_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- TextBox_Lieferant.BackColor = vbWhite
- End Sub
- Private Sub TextBox_Rechnungsnummer_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_Rechnungsnummer.BackColor = vbYellow
- End Sub
- Private Sub TextBox_Rechnungsnummer_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- TextBox_Rechnungsnummer.BackColor = vbWhite
- End Sub
- Private Sub TextBox_Bemerkung_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_Bemerkung.BackColor = vbYellow
- End Sub
- Private Sub TextBox_Bemerkung_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- TextBox_Bemerkung.BackColor = vbWhite
- End Sub
- Private Sub TextBox_Verwaltungskontenrahmen_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_Verwaltungskontenrahmen.BackColor = vbYellow
- End Sub
- Private Sub TextBox_Verwaltungskontenrahmen_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- TextBox_Verwaltungskontenrahmen.BackColor = vbWhite
- End Sub
- Private Sub TextBox_Organisationseinheit_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_Organisationseinheit.BackColor = vbYellow
- End Sub
- Private Sub TextBox_Organisationseinheit_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- TextBox_Organisationseinheit.BackColor = vbWhite
- End Sub
- Private Sub TextBox_Nutzer_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_Nutzer.BackColor = vbYellow
- End Sub
- Private Sub TextBox_Nutzer_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- TextBox_Nutzer.BackColor = vbWhite
- End Sub
- Private Sub TextBox_Standort_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_Standort.BackColor = vbYellow
- End Sub
- Private Sub TextBox_Standort_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- TextBox_Standort.BackColor = vbWhite
- End Sub
- Private Sub TextBox_GebäudeNr_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_GebäudeNr.BackColor = vbYellow
- End Sub
- Private Sub TextBox_GebäudeNr_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- TextBox_GebäudeNr.BackColor = vbWhite
- End Sub
- Private Sub TextBox_Etage_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_Etage.BackColor = vbYellow
- End Sub
- Private Sub TextBox_Etage_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- TextBox_Etage.BackColor = vbWhite
- End Sub
- Private Sub TextBox_RaumNr_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_RaumNr.BackColor = vbYellow
- End Sub
- Private Sub TextBox_RaumNr_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- TextBox_RaumNr.BackColor = vbWhite
- End Sub
- Private Sub ComboBox_Reparatur_Enter()
- 'aktivierte Zelle gelb färben
- ComboBox_Reparatur.BackColor = vbYellow
- End Sub
- Private Sub ComboBox_Reparatur_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- ComboBox_Reparatur.BackColor = vbWhite
- End Sub
- Private Sub ComboBox_Zubehör_Enter()
- 'aktivierte Zelle gelb färben
- ComboBox_Zubehör.BackColor = vbYellow
- End Sub
- Private Sub ComboBox_Zubehör_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- ComboBox_Zubehör.BackColor = vbWhite
- End Sub
- Private Sub ComboBox_Wartung_Enter()
- 'aktivierte Zelle gelb färben
- ComboBox_Wartung.BackColor = vbYellow
- End Sub
- Private Sub ComboBox_Wartung_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- ComboBox_Wartung.BackColor = vbWhite
- End Sub
- Private Sub ComboBox_Durchsicht_Enter()
- 'aktivierte Zelle gelb färben
- ComboBox_Durchsicht.BackColor = vbYellow
- End Sub
- Private Sub ComboBox_Durchsicht_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- ComboBox_Durchsicht.BackColor = vbWhite
- End Sub
- Private Sub ComboBox_Aussonderung_Enter()
- 'aktivierte Zelle gelb färben
- ComboBox_Aussonderung.BackColor = vbYellow
- End Sub
- Private Sub ComboBox_Aussonderung_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- ComboBox_Aussonderung.BackColor = vbWhite
- End Sub
- Private Sub TextBox_TagDerBeräumung_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_TagDerBeräumung.BackColor = vbYellow
- End Sub
- Private Sub TextBox_TagDerBeräumung_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- TextBox_TagDerBeräumung.BackColor = vbWhite
- End Sub
- Private Sub TextBox_GrundDerAussonderung_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_GrundDerAussonderung.BackColor = vbYellow
- End Sub
- Private Sub ComboBox_GrundDerAussonderung_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- ComboBox_GrundDerAussonderung.BackColor = vbWhite
- End Sub
- Private Sub UserForm_Initialize()
- 'Inventarnummer
- TextBox_Inventarnummer = "Inventarnummer eingeben"
- 'Bezeichnung
- TextBox_Bezeichnung = "Bezeichnung eingeben"
- 'BezeichnungZusatz
- TextBox_BezeichnungZusatz = "Bezeichnung Zusatz optional eingeben"
- 'Invertarrubrik
- ComboBox_Inventarrubrik = "Bitte Auswählen"
- With ComboBox_Inventarrubrik
- .AddItem "Bedampfungsanlage"
- .AddItem "Brutschränke/Brutgeräte"
- .AddItem "Bunsenbrenner"
- .AddItem "Büroeinrichtung"
- .AddItem "Bürotechnik"
- .AddItem "Cycler/PCR-Systeme"
- .AddItem "Datenverarbeitung"
- .AddItem "Dosierkleingeräte"
- .AddItem "Druckminderer"
- .AddItem "Durchflusszytometer"
- .AddItem "Entsorgung"
- .AddItem "Erste-Hilfe"
- .AddItem "Fahrzeuge"
- .AddItem "Filtrationsgeräte"
- .AddItem "Fischhälterung"
- .AddItem "Folienschweißgeräte"
- .AddItem "Fotografiegeräte+Zubehör"
- .AddItem "Gelauswertesystem"
- .AddItem "Gelgeräte"
- .AddItem "Histologie"
- .AddItem "Küchengeräte"
- .AddItem "Küchenzeile"
- .AddItem "Laborhandgeräte"
- .AddItem "Labormöbel"
- .AddItem "Laborreinigungsgeräte"
- .AddItem "Lagerregale"
- .AddItem "Leitern"
- .AddItem "Messgeräte Labor"
- .AddItem "Messgeräte allgemein"
- .AddItem "Mikroskope"
- .AddItem "Photometer/ELISA-Reader"
- .AddItem "Pipetten"
- .AddItem "Pipettierhilfen"
- .AddItem "Pipettierroboter"
- .AddItem "Präsentationsgegenstände"
- .AddItem "Reinig.-u. Desinfektionsautomat"
- .AddItem "Reinstwasseranlage/Ionenaust."
- .AddItem "Rührgeräte"
- .AddItem "Schüttelgeräte"
- .AddItem "Separator"
- .AddItem "Sequenzierungssysteme"
- .AddItem "Sicherheitswerkbänke"
- .AddItem "Sonstiges"
- .AddItem "Sterilisator/Autoklav"
- .AddItem "Strahlenschutz"
- .AddItem "Stromversorgungsgeräte"
- .AddItem "Telekommunikation"
- .AddItem "Thermomixer+Wechselblöcke"
- .AddItem "Tiefkühlmöbel+Zubehör"
- .AddItem "Tierhaltung"
- .AddItem "Transportgeräte"
- .AddItem "Ultraschallgeräte"
- .AddItem "Vakuumpumpen/Kompressor"
- .AddItem "Wasserbad/Thermostate"
- .AddItem "Weidezaunanlage"
- .AddItem "Werkstattausstattung"
- .AddItem "Wohnmöbel"
- .AddItem "Wäscherei"
- .AddItem "Zellaufschlussgeräte"
- .AddItem "Zentrifugen+Rotore"
- .AddItem "allg. Reinigungsgeräte"
- .AddItem "sonst. Heiz-, Wärme-, Kältegeräte"
- End With
- 'Auftragsnummer
- TextBox_Auftragsnummer = "Auftragsnummer eingeben"
- 'Auftragsdatum
- TextBox_Auftragsdatum = "Auftragsdatum eingeben"
- 'KostenBrutto
- TextBox_KostenBrutto = "Kosten (Brutto) eingeben"
- 'Anschaffungsdatum
- TextBox_Anschaffungsdatum = "Anschaffungsdatum eingeben"
- 'Seriennummer
- TextBox_Seriennummer = "Seriennummer eingeben"
- 'Artikelnummer
- TextBox_Artikelnummer = "Artikelnummer eingeben"
- 'Bundnummer
- TextBox_Bundnummer = "Bundnummer eingeben"
- 'Bestellnummer
- TextBox_Bestellnummer = "Bestellnummer eingeben"
- 'Hersteller
- TextBox_Hersteller = "Hersteller eingeben"
- 'Lieferant
- TextBox_Lieferant = "Lieferant eingeben"
- 'Rechnungsnummer
- TextBox_Rechnungsnummer = "Rechnungsnummer eingeben"
- 'Bemerkung
- TextBox_Bemerkung = "Bemerkung optional eingeben"
- 'Verwaltungskontenrahmen
- TextBox_Verwaltungskontenrahmen = "Verwaltungskontenrahmen eingeben"
- 'Organisationseinheit
- TextBox_Organisationseinheit = "Organisationseinheit eingeben"
- 'Nutzer
- TextBox_Nutzer = "Nutzer eingeben"
- 'Standort
- TextBox_Standort = "Standort eingeben"
- 'GebäudeNr
- TextBox_GebäudeNr = "Gebäude Nr eingeben"
- 'Etage
- TextBox_Etage = "Etage eingeben"
- 'RaumNr
- TextBox_RaumNr = "Raum Nr eingeben"
- 'Reparatur
- ComboBox_Reparatur = "Bitte Auswählen"
- With ComboBox_Reparatur
- .AddItem "Ja"
- .AddItem "Nein"
- End With
- 'Zubehör
- ComboBox_Zubehör = "Bitte Auswählen"
- With ComboBox_Zubehör
- .AddItem "Ja"
- .AddItem "Nein"
- End With
- 'Wartung
- ComboBox_Wartung = "Bitte Auswählen"
- With ComboBox_Wartung
- .AddItem "Ja"
- .AddItem "Nein"
- End With
- 'Durchsicht
- ComboBox_Durchsicht = "Bitte Auswählen"
- With ComboBox_Durchsicht
- .AddItem "Ja"
- .AddItem "Nein"
- End With
- 'Aussonderung
- ComboBox_Aussonderung = "Bitte Auswählen"
- With ComboBox_Aussonderung
- .AddItem "Ja"
- .AddItem "Nein"
- End With
- 'TagDerBeräumung
- TextBox_TagDerBeräumung = "Tag der Beräumung eingeben"
- 'GrundDerAussonderung
- TextBox_GrundDerAussonderung = "Grund der Aussonderung eingeben"
- End Sub
Außerdem habe ich noch eine Reparatur_Maske erstellt und genau da brauche ich etwas Hilfe.
In der Inventar_Eingabe_Maske konnte ich einen Button erstellen, der ein neues Formula (die Reparatur_Maske) aufruft.
Aber ich weiß nicht, welche Codes ich eintragen muss, damit ich etwas suchen kann.
In der Reparatur_Maske habe ich das Label: Inventarnummer; die TextBox_Inventarnummer und den CommandButton1 (mit der Caption: Suchen)
Gesucht werden soll in der Maske_1 ; Tabelle1; Spalte "A" ausschließlich. [Hier habe ich bereits mehr als 5000 Zeilen eingefügt.] Format: 00 000 und DM 00000
Eines von beiden sollte in jedem Fall gefunden werden.
Ich würde mich sehr über Hilfe freuen.
Danke
Johanne
Spoiler und CodeTags nach Post#2 gesetzt ~VaporiZed
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „VaporiZed“ ()