Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1824to1828
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1824to1828
1824to1828
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel VBA UserForm und Code

Excel VBA UserForm und Code
16.04.2021 13:32:50
W
Hallo Forum,
ich mache gerade meine ersten Versuche mit einer selbst erstellten Userform. Grundsätzlich bin ich schon etwas erfolgreich gewesen, kam aber jetzt auf die Idee, den Code für das Ein- und Ausblenden der Userform als SUB oder als FUNCTION in der UserForm selbst bereitzustellen.
Ansatz für meine Userform war, dass Shell.POPUP-Nachrichten mit einer Zeitangabe teilweise erst nach der doppelten Zeit enden. Deshalb wollte ich das Problem jetzt mit einer Userform lösen. Dabei wollte ich aber möglichst viel Code in die Userform selbst verlagern, um nicht noch zusätzlich zur Userform auch noch den dazu erforderlichen Code in meine Mappe einfügen muss.
Leider habe bis jetzt nur die Erfahrung gemacht, dass ich den Code in der Userform nicht aus einem "normalen" Modul heraus aufrufen kann.
Beim Aufruf erhalte ich den Hinweis "Fehler beim Kompilieren" und "Sub oder Function nicht definiert"
Gibt es für dieses Problem eine einfache Lösung?
Gruß
Werner

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel VBA UserForm und Code
16.04.2021 13:41:03
Daniel
Hi
das geht schon.
du musst zwei Dinge beachten.
1. der Userformname muss beim Aufruf dem Makronamen vorangestellt werden: Call Userform.Makro
2. bei einem Makro, dass aus einem anderen Modul heraus aufgerufen werden soll, darf die Kopfzeile nicht mit "Private Sub/Function" beginnen sondern muss mit "Public Sub/Function" oder nur mit "Sub/Function" beginnen.
das funktioniert prinzipiell auch mit den Eventmakros (Commandbutton_Click), welche ja automatisch das "Private" bekommen. Das kann man in "Public" ändern, die Funktionalität als automatisches Eventmakro bleibt erhalten.
Sollte das aufgerufene Eventmakros Übergabeparameter haben, so muss man die natürlich angeben.
Gruß Daniel
Anzeige
AW: Excel VBA UserForm und Code
16.04.2021 16:00:04
W
Hallo Daniel.
Vielen Dank für Deine Antwort. Inzwischen bin ich einen Schritt weiter. Der Aufruf der "Start"-Funktion hat bereits geklappt. Probleme habe ich aber mit folgendem Befehl:
Application.OnTime MsgEndTime, "UF_Popup.PopUpMsgEnd"
Diese Routine wird nach Ablauf der Zeit nicht gefunden.
Mein "Erstlingswerk" habe ich hochgeladen. https://www.herber.de/bbs/user/145594.xlsm
Wie kann ich das Problem lösen, ohne diese Routine in eines meiner "normalen" Module übernehmen zu müssen?
Darf ich noch zwei weitere Fragen anhängen:
1. ist es möglich, der Routine in der Userform einen Alias-Namen zuzuweisen, um dann diese Routine mit einem kürzeren Namen aufrufen zu können?
2. Habe ich eine Möglichkeit, den Bereich meiner Userform dynamisch anzupassen, damit nicht nach der Nachricht noch jede Menge freier Platz vorhanden ist?
Gruß
Werner
Anzeige
AW: Excel VBA UserForm und Code
16.04.2021 16:28:09
Nepumuk
Hallo Werner,
Makros die per OnTime-Methode aufgerufen werden müssen sich in einem Standardmodul befinden.
Teste mal das:

Option Explicit
Private Declare PtrSafe Function MessageBoxTimeoutA Lib "user32.dll" ( _
ByVal hWnd As LongPtr, _
ByVal lpText As String, _
ByVal lpCation As String, _
ByVal uType As Long, _
ByVal wLanguageId As Integer, _
ByVal dwMiliseconds As Long) As Long
Private Const MB_TIMEOUT As Long = &H7D00
Public Sub test()
Dim lngReturn As Long
lngReturn = MessageBoxTimeoutA(Application.hWnd, "Hallo", _
"TimeoutTest", vbYesNo Or vbInformation, 0, 5000)   '5000 = 5 Sekunden
Select Case lngReturn
Case MB_TIMEOUT
Debug.Print "TimeOut"
Case vbOK, vbYes
Debug.Print "Ok, Ja"
Case vbAbort, vbCancel
Debug.Print "Abrechen"
Case vbNo
Debug.Print "Nein"
Case vbRetry
Debug.Print "Wiederholen"
Case Else
Debug.Print lngReturn
End Select
End Sub
Gruß
Nepumuk
Anzeige
AW: Excel VBA UserForm und Code
16.04.2021 17:10:38
W
Hallo Nepumuk,
vielen Dank für Dein Code-Beispiel. Damit kann ich mein Userform-Erstlingswerk wieder einstampfen.
Natürlich habe ich den Code umgehend getestet und bin begeistert. Ich werde Zug um Zug nun alle meine Shell-PopUp-Befehle auf den neuen Code umstellen.
Nochmals: vielen Dank.
Mein Problem ist damit erledigt.
Gruß Werner

300 Forumthreads zu ähnlichen Themen

VBA Dropdown Userform
Ralf

Hallo
ich möchte in einer Userform ein Dropdownfeld erzeugen das aus einer bestimmten Tabelle zum Bsp. aus Spalte A die ersten Zehn Zeilen als Auswahlmöglichkeiten anzeigt.
Wäre nett wenn mir da jemand helfen könnte
Gruss Ralf
15.08.2008 11:16:56
Thread-ID: 1002117
2 Beiträge
Anzeige
vba stopp aus userform
Hugo

Hallo
In einem Userform habe ich einen Button Stopp.
Wenn ich diesen drücke solle das Makro beendet werden damit User im WorkSheet Eingaben tätigen
kann. Private Sub CommandButton1_Click() Unload UserForm Exit Sub End Sub
Nun kehrt es zum Ort wo das Userform gestartet wurde...
01.11.2009 16:17:48
Thread-ID: 1113650
14 Beiträge
VBA-Code von Userform anpassen (DTPicker)
Userform

Hallo Excel-Forum Community,
Leider stoße ich bei der Anpassung des VBA-Codes einer „UserForm“ gerade an meine Grenzen. Vielleicht findet ihr ein paar Minuten um euch die Beispieldatei des nachfolgenden Links anzusehen?
https://www.herber.de/bbs/user/69747.xls
Ich habe einen sehr...
26.05.2010 21:15:00
Thread-ID: 1158924
8 Beiträge
Anzeige
VBA Userform
Rene

Hallo zusammen ,
zunächst vielen Dank an Franz der mir mit seinem letzten Code sehr geholfen hat.
ich habe folgenden Code,der problemlos funktioniert , was muß ich tun damit ich ihn in einer Userform benutzen könnte ,will heißen ich möchte in ein textboxs scannen ,und die Abfrage ergeb...
15.04.2011 11:57:09
Thread-ID: 1209840
2 Beiträge
VBA für UserForm mit Multiseiten
Klaus

Hi Leute
ich habe eine UF mit Multiseiten erstellt und weiß jetzt nich wie ich den Code schreiben soll. In dieswer UF sollen Namen eingetragen werden und auf die Richtigen Tabellen verteilt werden und wenn ich die UF aufrufe sollen die eingetragenen Namen in der UF wiedergegeben werden. Bit...
25.09.2011 13:08:50
Thread-ID: 1231382
6 Beiträge
mehrzeilig eintragen vba userform
Chris

Ich habe vielen von euch schon gelernt, recht herzlichen Dank.
Anbei habe ich mal mein Excel Project hochgeladen. Da der VBA code zu lang wäre um ihn hier verständlich zu schreiben. Wenn man die userform startet hat man die auswahl mehrere Sender einzutragen um sich arbeit zu erleichtern di...
09.01.2012 22:41:55
Thread-ID: 1245334
2 Beiträge
VBA: Userform Minimieren Maximieren (Klassenmodul)
Lombe

Hi Leute,
ich kenn mich mit Klassenmodule wenig aus und habe daher folgendes Problem.
Meine Userform hat neben dem Schließkreuz rechts oben nun auch die Minimeren und Maximieren Schaltflächen dank der Codes (siehe Quellenangaben) die u.a. im Klassenmodul stehen.
Frage:
Ich möcht...
13.01.2012 00:54:48
Thread-ID: 1245764
4 Beiträge
Suchmaske VBA userform
Gatz

Guten Abend, nachdem das mit der Eingabemaske so gut gekappt, dank der Hilfe von euch, würde ich gerne meine Ausgabemaske erstellen wollen. Hierzu finden sich mehrere Textfelder, Comboboxen und Checkboxen in der userform.
Angenommen der Benutzer trägt in Textbox1 einen Wert ein, dann soll i...
12.01.2012 23:41:27
Thread-ID: 1245933
3 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
13
13
7
5
1
5
1
3
2
27
4
9
1
1
3
2
3
6
3
9
10
4
1
3