Hallo liebe Experten,
Ich benötige bitte Eure Hilfe. Ich arbeite mit Office 2016 und beschäftige mich seit Juni 2020 mit VBA / Excel. Damit gehöre ich eher zu den Anfängern.
Ich habe zwei Tabellenblätter: Inventar und Eingabe und mein Problem sieht wie folgt aus:
In die Eingabemaske soll das eine oder andere Mal (nur bei Bedarf) ein Text von einer anderen Homepage oder aus einer PDF eingefügt werden.
Kann man es so programmieren, dass man auch mit der rechten Maustaste einfügen kann oder geht es nur mit „STRG+V“?
Die meisten meiner Kollegen arbeiten wohl eher mit der Maus als mit der Tastatur.
Hier habe ich gar keinen blassen Schimmer, wie ich einen Code einbauen kann, damit die Kollegen den Text auch mit der Maus einfügen können.
Mein Versuch:
Den habe ich in meiner Userform angehängt.
Die IF-Zeile wird mir in Rot dargestellt, und wenn ich die Maske mit F5 starte, läuft sie durch, aber ich habe kein Kontextmenü auf der TextBox_Bezeichnung.
Ich weiß da leider nicht weiter, und bitte um eure Hilfe.
Als Alternative würde ich:
Ich hoffe, dass ich mich verständlich ausgedrückt habe.
Hier kommt zum einen der Code und die Datei (sie enthält mittlerweile mehr als 10 Tausend Zeilen und die Übertragung ist noch nicht beendet) ist auch anbei.
Danke im Voraus, für die Hilfe.
Inventar_Eingabe_Maske
Spoiler anzeigen
Ich benötige bitte Eure Hilfe. Ich arbeite mit Office 2016 und beschäftige mich seit Juni 2020 mit VBA / Excel. Damit gehöre ich eher zu den Anfängern.
Ich habe zwei Tabellenblätter: Inventar und Eingabe und mein Problem sieht wie folgt aus:
In die Eingabemaske soll das eine oder andere Mal (nur bei Bedarf) ein Text von einer anderen Homepage oder aus einer PDF eingefügt werden.
Kann man es so programmieren, dass man auch mit der rechten Maustaste einfügen kann oder geht es nur mit „STRG+V“?
Die meisten meiner Kollegen arbeiten wohl eher mit der Maus als mit der Tastatur.
Hier habe ich gar keinen blassen Schimmer, wie ich einen Code einbauen kann, damit die Kollegen den Text auch mit der Maus einfügen können.
Mein Versuch:
Den habe ich in meiner Userform angehängt.
Die IF-Zeile wird mir in Rot dargestellt, und wenn ich die Maske mit F5 starte, läuft sie durch, aber ich habe kein Kontextmenü auf der TextBox_Bezeichnung.
Ich weiß da leider nicht weiter, und bitte um eure Hilfe.
Als Alternative würde ich:
"Text mit STRG+V einfügen"
in die TextBox schreiben, aber da hat mein Vorgesetzter das letzte Wort.Ich hoffe, dass ich mich verständlich ausgedrückt habe.
Hier kommt zum einen der Code und die Datei (sie enthält mittlerweile mehr als 10 Tausend Zeilen und die Übertragung ist noch nicht beendet) ist auch anbei.
Danke im Voraus, für die Hilfe.
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
Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „Johanne“ ()