VBA: MsgBox in Private SuB zum laufen bringen
01.03.2019 20:51:54
charly84
Ich bin kein As in VBA aber dass was Ich bis Dato schaffe freut mich, denn man kann nur dazulernen.
Mein Persönliches Projekt ist es eine Eigene kleine Datenbank zu Erstellen.
Nun zu meinem Eigentlichen Problem, uns zwar habe Ich in einem Worksheet drei (Private Subs).
Die ersten beiden Subs sind miteinander Verknüpft, der letzte ist alleine.
Hier komm Ich nicht weiter, MsgBox(en) in meinen Code einzubring.
Habe bereits mehrfach in unterschiedlichen Herangehensweisen versucht, selber eine MsgBox in meinen Code einzubauen.
Aber die MsgBox lief da nur auf Dauerschleife, der OK-Button schließt die MsgBox nicht.
"Makroaufbau über Makro-Aufzeichnen u. teils aus Forums übernommen u. angepasst."
"Die Makros laufen im Worksheet"
So sieht mein Aufbau aus:
1.1. TextBox
Ort der TB1 "Tabelle1", TB1 per Entwicklertools Erstellt u. an Zelle Verankert,
der eingegebene Text bezieht sich auf "Namen" (Bsp.: Muster, Max).
Zwei Codes für diese Prozedur (wurde gebastelt, Funktionieren auch)
1.2. Der Text (Bsp: Muster, Max)
Eingabe in die TB1, dann per (Enter) in Tabelle2 unter Spalte "N" Eintragen
Info: Spalte "N" ist per "Tabelle Einfügen" mit Überschrift erstellt worden
1.3. MsgBox
Meldung im Fenster:
MsgBox (1): Nach Eingabe des Textes soll eine Bestätigung erscheinen das der Name in die Datenbank Eingetragen wurde.
Hier meine Vorstellung der MagBox-Design
Hier mein MsgBox (1) Code:
MsgBox "Es wurde ein neuer Name in die Datenbank aufgenommen", vbOkOnly + vbInformation, " _
Datenbank-Erweitern"
Ort des CB1 "Tabelle1", CB1 per Entwicklertools Erstellt u. an Zelle Verankert,
der CB hat ein Sortier-Funktion per Code hiterlegt.
Ein Code für diese Prozedur (wurde gebastelt, Funktioniert auch)
2.2. Die Sortierung
Der CB1 Sortiert, in Tabelle2 unter Spalte "N" die Namen Alphabetisch
2.3. MsgBox
Meldung im Fenster:
MsgBox (2): Nach der Sortierung soll eine Bestätigung erscheinen.
Hier meine Vorstellung der MagBox-Design
Hier mein MsgBox (2) Code:
MsgBox "Die Datenbank wurde Sortiert", vbOkOnly + vbInformation, "Datenbank-Aktualisiert"
Wer kann helfen, bin echt am Verzweifeln.
Danke im Voraus für eure Hilfe!
P.S.
Gibt es Eventuell eine kürzere Variante die drei Subs in einem zu Packen.
Ich habe 6 weitere Textboxen im gleichem Aufbau wie Oben Beschrieben
Habe dies schon Versucht Scheitere aber, an einem Sub mit KeyUp-Funktion.