Kontextmenü in vba excel erstellen

  • Excel

    Kontextmenü in vba excel erstellen

    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:

    Visual Basic-Quellcode

    1. Private Sub TextBox_Bezeichnung_RightClick()
    2. If RightClick TextBox_Bezeichnung then
    3. Show contextmenü And Paste
    4. End If
    5. End Sub

    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

    Spoiler anzeigen

    Visual Basic-Quellcode

    1. Option Explicit
    2. Private Sub Button_Schließen_Click()
    3. 'TextBox_Lieferdatum leeren
    4. TextBox_Lieferdatum = ""
    5. 'Eingabefenster schließen
    6. Unload Inventar_Eingabe_Maske
    7. End Sub
    8. Private Sub Button_Eingabe_Click()
    9. 'Eingaben der Schaltfläche in die Arbeitsmappe übernehmen
    10. Dim last As Long
    11. last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
    12. 'Inventarnummer
    13. Cells(last, 1).Value = TextBox_Inventarnummer
    14. 'Bezeichnung
    15. Cells(last, 2).Value = TextBox_Bezeichnung
    16. 'BezeichnungZusatz
    17. Cells(last, 3).Value = TextBox_BezeichnungZusatz
    18. 'Invertarrubrik
    19. Cells(last, 4).Value = ComboBox_Inventarrubrik
    20. 'Auftragsnummer
    21. Cells(last, 5).Value = TextBox_Auftragsnummer
    22. 'KostenBrutto
    23. Cells(last, 6).Value = TextBox_KostenBrutto
    24. 'Lieferdatum
    25. Cells(last, 7).Value = TextBox_Lieferdatum
    26. 'Seriennummer
    27. Cells(last, 8).Value = TextBox_Seriennummer
    28. 'Bundnummer / Inventarnummer ALT
    29. Cells(last, 9).Value = TextBox_Bundnummer
    30. 'Hersteller
    31. Cells(last, 10).Value = TextBox_Hersteller
    32. 'Lieferant
    33. Cells(last, 11).Value = TextBox_Lieferant
    34. 'Rechnungsnummer
    35. Cells(last, 12).Value = TextBox_Rechnungsnummer
    36. 'Bemerkung
    37. Cells(last, 13).Value = TextBox_Bemerkung
    38. 'Verwaltungskontenrahmen
    39. Cells(last, 14).Value = TextBox_Verwaltungskontenrahmen
    40. 'Organisationseinheit
    41. Cells(last, 15).Value = TextBox_Organisationseinheit
    42. 'Nutzer
    43. Cells(last, 16).Value = TextBox_Nutzer
    44. 'Standort
    45. Cells(last, 17).Value = TextBox_Standort
    46. 'GebäudeNr
    47. Cells(last, 18).Value = TextBox_GebäudeNr
    48. 'Etage
    49. Cells(last, 19).Value = TextBox_Etage
    50. 'RaumNr
    51. Cells(last, 20).Value = TextBox_RaumNr
    52. MsgBox "Eingabe Erfolgreich"
    53. End Sub
    54. Private Sub CommandButton1_Click()
    55. Kalender_Maske.Show
    56. End Sub
    57. Private Sub TextBox_Inventarnummer_Enter()
    58. 'aktivierte Zelle gelb färben
    59. TextBox_Inventarnummer.BackColor = vbYellow
    60. End Sub
    61. Private Sub TextBox_Inventarnummer_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    62. 'deaktivierte Zelle weiß färben
    63. TextBox_Inventarnummer.BackColor = vbWhite
    64. End Sub
    65. Private Sub TextBox_Bezeichnung_Enter()
    66. 'aktivierte Zelle gelb färben
    67. TextBox_Bezeichnung.BackColor = vbYellow
    68. End Sub
    69. Private Sub TextBox_Bezeichnung_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    70. 'deaktivierte Zelle weiß färben
    71. TextBox_Bezeichnung.BackColor = vbWhite
    72. End Sub
    73. Private Sub TextBox_BezeichnungZusatz_Enter()
    74. 'aktivierte Zelle gelb färben
    75. TextBox_BezeichnungZusatz.BackColor = vbYellow
    76. End Sub
    77. Private Sub TextBox_BezeichnungZusatz_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    78. 'deaktivierte Zelle weiß färben
    79. TextBox_BezeichnungZusatz.BackColor = vbWhite
    80. End Sub
    81. Private Sub ComboBox_Inventarrubrik_Enter()
    82. 'aktivierte Zelle gelb färben
    83. ComboBox_Inventarrubrik.BackColor = vbYellow
    84. End Sub
    85. Private Sub ComboBox_Inventarrubrik_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    86. 'deaktivierte Zelle weiß färben
    87. ComboBox_Inventarrubrik.BackColor = vbWhite
    88. End Sub
    89. Private Sub TextBox_Auftragsnummer_Enter()
    90. 'aktivierte Zelle gelb färben
    91. TextBox_Auftragsnummer.BackColor = vbYellow
    92. End Sub
    93. Private Sub TextBox_Auftragsnummer_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    94. 'deaktivierte Zelle weiß färben
    95. TextBox_Auftragsnummer.BackColor = vbWhite
    96. End Sub
    97. Private Sub TextBox_KostenBrutto_Enter()
    98. 'aktivierte Zelle gelb färben
    99. TextBox_KostenBrutto.BackColor = vbYellow
    100. End Sub
    101. Private Sub TextBox_KostenBrutto_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    102. 'deaktivierte Zelle weiß färben
    103. TextBox_KostenBrutto.BackColor = vbWhite
    104. End Sub
    105. Private Sub TextBox_Lieferdatum_Enter()
    106. 'TextBox_Lieferdatum leeren
    107. TextBox_Lieferdatum.Value = ""
    108. End Sub
    109. Private Sub TextBox_Lieferdatum_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    110. 'TextBox_Lieferdatum leeren
    111. TextBox_Lieferdatum.Value = ""
    112. End Sub
    113. Private Sub TextBox_Seriennummer_Enter()
    114. 'aktivierte Zelle gelb färben
    115. TextBox_Seriennummer.BackColor = vbYellow
    116. End Sub
    117. Private Sub TextBox_Seriennummer_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    118. 'deaktivierte Zelle weiß färben
    119. TextBox_Seriennummer.BackColor = vbWhite
    120. End Sub
    121. Private Sub TextBox_Bundnummer_Enter()
    122. 'aktivierte Zelle gelb färben
    123. TextBox_Bundnummer.BackColor = vbYellow
    124. End Sub
    125. Private Sub TextBox_Bundnummer_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    126. 'deaktivierte Zelle weiß färben
    127. TextBox_Bundnummer.BackColor = vbWhite
    128. End Sub
    129. Private Sub TextBox_Hersteller_Enter()
    130. 'aktivierte Zelle gelb färben
    131. TextBox_Hersteller.BackColor = vbYellow
    132. End Sub
    133. Private Sub TextBox_Hersteller_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    134. 'deaktivierte Zelle weiß färben
    135. TextBox_Hersteller.BackColor = vbWhite
    136. End Sub
    137. Private Sub TextBox_Lieferant_Enter()
    138. 'aktivierte Zelle gelb färben
    139. TextBox_Lieferant.BackColor = vbYellow
    140. End Sub
    141. Private Sub TextBox_Lieferant_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    142. 'deaktivierte Zelle weiß färben
    143. TextBox_Lieferant.BackColor = vbWhite
    144. End Sub
    145. Private Sub TextBox_Rechnungsnummer_Enter()
    146. 'aktivierte Zelle gelb färben
    147. TextBox_Rechnungsnummer.BackColor = vbYellow
    148. End Sub
    149. Private Sub TextBox_Rechnungsnummer_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    150. 'deaktivierte Zelle weiß färben
    151. TextBox_Rechnungsnummer.BackColor = vbWhite
    152. End Sub
    153. Private Sub TextBox_Bemerkung_Enter()
    154. 'aktivierte Zelle gelb färben
    155. TextBox_Bemerkung.BackColor = vbYellow
    156. End Sub
    157. Private Sub TextBox_Bemerkung_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    158. 'deaktivierte Zelle weiß färben
    159. TextBox_Bemerkung.BackColor = vbWhite
    160. End Sub
    161. Private Sub TextBox_Verwaltungskontenrahmen_Enter()
    162. 'aktivierte Zelle gelb färben
    163. TextBox_Verwaltungskontenrahmen.BackColor = vbYellow
    164. End Sub
    165. Private Sub TextBox_Verwaltungskontenrahmen_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    166. 'deaktivierte Zelle weiß färben
    167. TextBox_Verwaltungskontenrahmen.BackColor = vbWhite
    168. End Sub
    169. Private Sub TextBox_Organisationseinheit_Enter()
    170. 'aktivierte Zelle gelb färben
    171. TextBox_Organisationseinheit.BackColor = vbYellow
    172. End Sub
    173. Private Sub TextBox_Organisationseinheit_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    174. 'deaktivierte Zelle weiß färben
    175. TextBox_Organisationseinheit.BackColor = vbWhite
    176. End Sub
    177. Private Sub TextBox_Nutzer_Enter()
    178. 'aktivierte Zelle gelb färben
    179. TextBox_Nutzer.BackColor = vbYellow
    180. End Sub
    181. Private Sub TextBox_Nutzer_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    182. 'deaktivierte Zelle weiß färben
    183. TextBox_Nutzer.BackColor = vbWhite
    184. End Sub
    185. Private Sub TextBox_Standort_Enter()
    186. 'aktivierte Zelle gelb färben
    187. TextBox_Standort.BackColor = vbYellow
    188. End Sub
    189. Private Sub TextBox_Standort_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    190. 'deaktivierte Zelle weiß färben
    191. TextBox_Standort.BackColor = vbWhite
    192. End Sub
    193. Private Sub TextBox_GebäudeNr_Enter()
    194. 'aktivierte Zelle gelb färben
    195. TextBox_GebäudeNr.BackColor = vbYellow
    196. End Sub
    197. Private Sub TextBox_GebäudeNr_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    198. 'deaktivierte Zelle weiß färben
    199. TextBox_GebäudeNr.BackColor = vbWhite
    200. End Sub
    201. Private Sub TextBox_Etage_Enter()
    202. 'aktivierte Zelle gelb färben
    203. TextBox_Etage.BackColor = vbYellow
    204. End Sub
    205. Private Sub TextBox_Etage_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    206. 'deaktivierte Zelle weiß färben
    207. TextBox_Etage.BackColor = vbWhite
    208. End Sub
    209. Private Sub TextBox_RaumNr_Enter()
    210. 'aktivierte Zelle gelb färben
    211. TextBox_RaumNr.BackColor = vbYellow
    212. End Sub
    213. Private Sub TextBox_RaumNr_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    214. 'deaktivierte Zelle weiß färben
    215. TextBox_RaumNr.BackColor = vbWhite
    216. End Sub
    217. Private Sub UserForm_Initialize()
    218. 'Inventarnummer
    219. TextBox_Inventarnummer = ""
    220. 'Bezeichnung
    221. TextBox_Bezeichnung = ""
    222. 'BezeichnungZusatz
    223. TextBox_BezeichnungZusatz = ""
    224. 'Invertarrubrik
    225. ComboBox_Inventarrubrik = ""
    226. With ComboBox_Inventarrubrik
    227. .AddItem "Bedampfungsanlage"
    228. .AddItem "Brutschränke/Brutgeräte"
    229. .AddItem "Bunsenbrenner"
    230. .AddItem "Büroeinrichtung"
    231. .AddItem "Bürotechnik"
    232. .AddItem "Cycler/PCR-Systeme"
    233. .AddItem "Datenverarbeitung"
    234. .AddItem "Dosierkleingeräte"
    235. .AddItem "Druckminderer"
    236. .AddItem "Durchflusszytometer"
    237. .AddItem "Entsorgung"
    238. .AddItem "Erste-Hilfe"
    239. .AddItem "Fahrzeuge"
    240. .AddItem "Filtrationsgeräte"
    241. .AddItem "Fischhälterung"
    242. .AddItem "Folienschweißgeräte"
    243. .AddItem "Fotografiegeräte+Zubehör"
    244. .AddItem "Gelauswertesystem"
    245. .AddItem "Gelgeräte"
    246. .AddItem "Histologie"
    247. .AddItem "Küchengeräte"
    248. .AddItem "Küchenzeile"
    249. .AddItem "Laborhandgeräte"
    250. .AddItem "Labormöbel"
    251. .AddItem "Laborreinigungsgeräte"
    252. .AddItem "Lagerregale"
    253. .AddItem "Leitern"
    254. .AddItem "Messgeräte Labor"
    255. .AddItem "Messgeräte allgemein"
    256. .AddItem "Mikroskope"
    257. .AddItem "Photometer/ELISA-Reader"
    258. .AddItem "Pipetten"
    259. .AddItem "Pipettierhilfen"
    260. .AddItem "Pipettierroboter"
    261. .AddItem "Präsentationsgegenstände"
    262. .AddItem "Reinig.-u. Desinfektionsautomat"
    263. .AddItem "Reinstwasseranlage/Ionenaust."
    264. .AddItem "Rührgeräte"
    265. .AddItem "Schüttelgeräte"
    266. .AddItem "Separator"
    267. .AddItem "Sequenzierungssysteme"
    268. .AddItem "Sicherheitswerkbänke"
    269. .AddItem "Sonstiges"
    270. .AddItem "Sterilisator/Autoklav"
    271. .AddItem "Strahlenschutz"
    272. .AddItem "Stromversorgungsgeräte"
    273. .AddItem "Telekommunikation"
    274. .AddItem "Thermomixer+Wechselblöcke"
    275. .AddItem "Tiefkühlmöbel+Zubehör"
    276. .AddItem "Tierhaltung"
    277. .AddItem "Transportgeräte"
    278. .AddItem "Ultraschallgeräte"
    279. .AddItem "Vakuumpumpen/Kompressor"
    280. .AddItem "Wasserbad/Thermostate"
    281. .AddItem "Weidezaunanlage"
    282. .AddItem "Werkstattausstattung"
    283. .AddItem "Wohnmöbel"
    284. .AddItem "Wäscherei"
    285. .AddItem "Zellaufschlussgeräte"
    286. .AddItem "Zentrifugen+Rotore"
    287. .AddItem "allg. Reinigungsgeräte"
    288. .AddItem "sonst. Heiz-, Wärme-, Kältegeräte"
    289. End With
    290. 'Auftragsnummer
    291. TextBox_Auftragsnummer = ""
    292. 'KostenBrutto
    293. TextBox_KostenBrutto = ""
    294. 'Lieferdatum
    295. TextBox_Lieferdatum.Text = ""
    296. 'Seriennummer
    297. TextBox_Seriennummer = ""
    298. 'Bundnummer / Inventarnummer ALT
    299. TextBox_Bundnummer = ""
    300. 'Hersteller
    301. TextBox_Hersteller = ""
    302. 'Lieferant
    303. TextBox_Lieferant = ""
    304. 'Rechnungsnummer
    305. TextBox_Rechnungsnummer = ""
    306. 'Bemerkung
    307. TextBox_Bemerkung = ""
    308. 'Verwaltungskontenrahmen
    309. TextBox_Verwaltungskontenrahmen = ""
    310. 'Organisationseinheit
    311. TextBox_Organisationseinheit = ""
    312. 'Nutzer
    313. TextBox_Nutzer = ""
    314. 'Standort
    315. TextBox_Standort = ""
    316. 'GebäudeNr
    317. TextBox_GebäudeNr = ""
    318. 'Etage
    319. TextBox_Etage = ""
    320. 'RaumNr
    321. TextBox_RaumNr = ""
    322. End Sub

    Dateien

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „Johanne“ ()