Hallo liebe Experten,
Ich benötige bitte Eure Hilfe.
Ich arbeite mit Office 2016 und beschäftige mich seit Juni 2020 mit VBA / Excel.
Mein Problem sieht wie folgt aus:
Mein Vorgesetzter wünscht sich eine automatische Nummerierung. Sie soll folgendermaßen aussehen. Die Nummerierung soll sich dann in der Spalte A / Inventarnummer befinden.
Standort 1: R21-0001 (als erste manuelle Eingabe) und dann soll sie fortlaufen. Wenn das Jahr herum ist, soll sich die Nummerierung automatisch auf: R22-0001 ändern und dann fortlaufen.
Standort 2: J21-0001 (als erste manuelle Eingabe) und dann soll sie fortlaufen. Wenn das Jahr herum ist, soll sich die Nummerierung automatisch auf: J22-0001 ändern und dann fortlaufen.
Standort 3: M21-0001 (als erste manuelle Eingabe) und dann soll sie fortlaufen. Wenn das Jahr herum ist, soll sich die Nummerierung automatisch auf: M22-0001 ändern und dann fortlaufen.
Die Eingaben werden zwar irgendwann nur noch vom Standort 1 vorgenommen, aber da die erfassten Gegenstände an den anderen Standorten benutzt werden,
ist der Buchstabe das Entscheidende Kriterium.
Ich habe bei Google und auch hier im Forum nach einer Lösung gesucht, aber nichts passendes gefunden.
Meist hatten die fragenden laut Überschrift ein "ähnliches" Problem, was aber dann doch ganz anders war. Sodass ich noch zu keiner Lösung gekommen bin.
Wie gesagt ich bin Anfänger. Danke für die Hilfe.
Spoiler anzeigen
Ich benötige bitte Eure Hilfe.
Ich arbeite mit Office 2016 und beschäftige mich seit Juni 2020 mit VBA / Excel.
Mein Problem sieht wie folgt aus:
Mein Vorgesetzter wünscht sich eine automatische Nummerierung. Sie soll folgendermaßen aussehen. Die Nummerierung soll sich dann in der Spalte A / Inventarnummer befinden.
Standort 1: R21-0001 (als erste manuelle Eingabe) und dann soll sie fortlaufen. Wenn das Jahr herum ist, soll sich die Nummerierung automatisch auf: R22-0001 ändern und dann fortlaufen.
Standort 2: J21-0001 (als erste manuelle Eingabe) und dann soll sie fortlaufen. Wenn das Jahr herum ist, soll sich die Nummerierung automatisch auf: J22-0001 ändern und dann fortlaufen.
Standort 3: M21-0001 (als erste manuelle Eingabe) und dann soll sie fortlaufen. Wenn das Jahr herum ist, soll sich die Nummerierung automatisch auf: M22-0001 ändern und dann fortlaufen.
Die Eingaben werden zwar irgendwann nur noch vom Standort 1 vorgenommen, aber da die erfassten Gegenstände an den anderen Standorten benutzt werden,
ist der Buchstabe das Entscheidende Kriterium.
Ich habe bei Google und auch hier im Forum nach einer Lösung gesucht, aber nichts passendes gefunden.
Meist hatten die fragenden laut Überschrift ein "ähnliches" Problem, was aber dann doch ganz anders war. Sodass ich noch zu keiner Lösung gekommen bin.
Wie gesagt ich bin Anfänger. Danke für die Hilfe.
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
- 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
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Johanne“ ()