Hallo Experten,
ich bitte um eure Hilfe, da ich Anfänger bin.
Ich habe folgendes Problem:
In der Datei befinden sich 2 Tabellenblätter (TB); Inventar und Eingabe.
Wenn ich mich auf dem TB Eingabe befinde und den Button "Eingabe starten" drücke, öffnet sich wie gewünscht, eine Eingabemaske. Dort klicke ich dann auf den Button "Kalender starten" und bekomme ein weiteres Fenster mit einem Kalender. Bis hier hin läuft alles gut und korrekt.
Wenn ich das Fenster nach erfolgreicher Eingabe mit dem Button "schließen" schließe, dann sehe ich die erfassten Daten. Ich gehe dann erneut auf das TB Eingabe und wähle z.B. die Zubehör Eingabe oder die Reparatur Eingabe aus.
An dieser Stelle steht das gerade erfasste Datum in der TextBox rechts neben "Kalender starten". Diese TextBox sollte mit Start der Maske leer sein.
Wenn ich die Maske schließe und erneut aufrufe, dann ist sie leer, aber vielleicht geht es auch, dass sie bei jedem Start leer ist.
Im Spoiler könnt ihr sehen, dass ich bereits nach einer Lösung gesucht habe, die nur leider nicht funktioniert.
Daher bitte ich um eure Hilfe.
Dankeschön
Inventar_Eingabe_Maske
Spoiler anzeigen
ich bitte um eure Hilfe, da ich Anfänger bin.
Ich habe folgendes Problem:
In der Datei befinden sich 2 Tabellenblätter (TB); Inventar und Eingabe.
Wenn ich mich auf dem TB Eingabe befinde und den Button "Eingabe starten" drücke, öffnet sich wie gewünscht, eine Eingabemaske. Dort klicke ich dann auf den Button "Kalender starten" und bekomme ein weiteres Fenster mit einem Kalender. Bis hier hin läuft alles gut und korrekt.
Wenn ich das Fenster nach erfolgreicher Eingabe mit dem Button "schließen" schließe, dann sehe ich die erfassten Daten. Ich gehe dann erneut auf das TB Eingabe und wähle z.B. die Zubehör Eingabe oder die Reparatur Eingabe aus.
An dieser Stelle steht das gerade erfasste Datum in der TextBox rechts neben "Kalender starten". Diese TextBox sollte mit Start der Maske leer sein.
Wenn ich die Maske schließe und erneut aufrufe, dann ist sie leer, aber vielleicht geht es auch, dass sie bei jedem Start leer ist.
Im Spoiler könnt ihr sehen, dass ich bereits nach einer Lösung gesucht habe, die nur leider nicht funktioniert.
Daher bitte ich um eure Hilfe.
Dankeschön
Inventar_Eingabe_Maske
Visual Basic-Quellcode
- Option Explicit
- Private Sub Button_Schließen_Click()
- 'TextBox_Lieferdatum leeren
- TextBox_Lieferdatum = ""
- '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 Long
- 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
- 'Auftragsnummer
- Cells(last, 5).Value = TextBox_Auftragsnummer
- 'KostenBrutto
- Cells(last, 6).Value = TextBox_KostenBrutto
- 'Lieferdatum
- Cells(last, 7).Value = TextBox_Lieferdatum
- 'Seriennummer
- Cells(last, 8).Value = TextBox_Seriennummer
- 'Bundnummer / Inventarnummer ALT
- Cells(last, 9).Value = TextBox_Bundnummer
- 'Hersteller
- Cells(last, 10).Value = TextBox_Hersteller
- 'Lieferant
- Cells(last, 11).Value = TextBox_Lieferant
- 'Rechnungsnummer
- Cells(last, 12).Value = TextBox_Rechnungsnummer
- 'Bemerkung
- Cells(last, 13).Value = TextBox_Bemerkung
- 'Verwaltungskontenrahmen
- Cells(last, 14).Value = TextBox_Verwaltungskontenrahmen
- 'Organisationseinheit
- Cells(last, 15).Value = TextBox_Organisationseinheit
- 'Nutzer
- Cells(last, 16).Value = TextBox_Nutzer
- 'Standort
- Cells(last, 17).Value = TextBox_Standort
- 'GebäudeNr
- Cells(last, 18).Value = TextBox_GebäudeNr
- 'Etage
- Cells(last, 19).Value = TextBox_Etage
- 'RaumNr
- Cells(last, 20).Value = TextBox_RaumNr
- MsgBox "Eingabe Erfolgreich"
- End Sub
- Private Sub CommandButton1_Click()
- Kalender_Maske.Show
- 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_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_Lieferdatum_Enter()
- 'TextBox_Lieferdatum leeren
- TextBox_Lieferdatum.Value = ""
- End Sub
- Private Sub TextBox_Lieferdatum_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'TextBox_Lieferdatum leeren
- TextBox_Lieferdatum.Value = ""
- 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_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_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 UserForm_Initialize()
- 'Inventarnummer
- TextBox_Inventarnummer = ""
- 'Bezeichnung
- TextBox_Bezeichnung = ""
- 'BezeichnungZusatz
- TextBox_BezeichnungZusatz = ""
- 'Invertarrubrik
- ComboBox_Inventarrubrik = ""
- 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 = ""
- 'KostenBrutto
- TextBox_KostenBrutto = ""
- 'Lieferdatum
- TextBox_Lieferdatum.Text = ""
- 'Seriennummer
- TextBox_Seriennummer = ""
- 'Bundnummer / Inventarnummer ALT
- TextBox_Bundnummer = ""
- 'Hersteller
- TextBox_Hersteller = ""
- 'Lieferant
- TextBox_Lieferant = ""
- 'Rechnungsnummer
- TextBox_Rechnungsnummer = ""
- 'Bemerkung
- TextBox_Bemerkung = ""
- 'Verwaltungskontenrahmen
- TextBox_Verwaltungskontenrahmen = ""
- 'Organisationseinheit
- TextBox_Organisationseinheit = ""
- 'Nutzer
- TextBox_Nutzer = ""
- 'Standort
- TextBox_Standort = ""
- 'GebäudeNr
- TextBox_GebäudeNr = ""
- 'Etage
- TextBox_Etage = ""
- 'RaumNr
- TextBox_RaumNr = ""
- End Sub