Wie kann man ein Userform mithilfe von VBA-Code schließen?

Frohes Neues liebe Community,

ich möchte in meinem VBA-Programm ein Userform direkt durch einen Befehl im Code schließen. Auf dem Userform befindet sich ein Button, welcher das Programm startet, dass am Ende eine Messagebox öffnet und nebenbei zum Schluss das Userform schließt. Sicherlich ist es ein ganz einfacher Befehl, aber ich bekomme es einfach nicht hin. Unloadme hat nicht funktioniert.

LG Patrick

2 Antworten

Oubyi, UserMod Light

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

03.01.2017, 14:59

Teste mal im Modul der Userform:

Private Sub CommandButton1_Click()
'Dein Code
MsgBox "Info"
Me.Hide
End Sub

Woher ich das weiß:Berufserfahrung – IT-Administrator (i.R.)

PatrickakaDora

Fragesteller

03.01.2017, 15:15

Danke, passt.

eddi0102

04.01.2017, 11:24

Sorry,

funktioniert zwar, ist aber ein ganz schlechter Programmierstil. Die
UserForm wird zwar nicht mehr angezeigt, ist aber immer noch im
Speicher geöffnet. Bei komplexeren Programmen mit mehrfachem Aufruf der
UserForm kommt es irgendwann zu einem Stapelüberlauf. Sauber wird der Code erst nach

Unload UserForm_XXX

Set UserForm_XXX = Nothing

Private Sub btn3_Click() frmMengenrechner_Obi.PrintForm End Sub

Der Befehl druckt die Userform aus, aber leider nur einen kleinen Teil. Ich möchte einen Code, der mir ohne viel aufwand für den Anwender, die UserForm ausdruckt. Vielen Dank schon mal!!

...zur Frage

Wie kann ich einen Excel VBA Code Wert in eine vorhandene UserForm einfügen, bearbeiten und zurück übertragen?

Wie kann ich die Werte der Zellen einer Spalte in ein die Textboxen einer UserForm übergeben sodass ich die Werte im Formular bearbeiten und bearbeitet wieder in die Tabelle eintragen kann. Also ich suche einen Code den ich in VBA eingeben kann.

...zur Frage

VBA Userform, merken von Auswahl. Wie geht das?

Guten Tag,

Ich habe in Excel eine Userform erstellt mit der man durch Auswahl von einigen Comboboxen und Listboxen eine Tabelle erstellen lässt.

Beim schließen der Userform ist diese Auswahl wie gewohnt weg. Sprich die Comboboxen sind wieder in der Grundeinstellung, also nichts ausgewählt.

Gibt es einen weg das dies nicht so ist, also das beim schließen die auswahl gespeichert wird und beim nächsten öffnen wieder sichbar ist?

Danke für Hilfestellungen

...zur Frage

Excel VBA UserForm schließt sich unabsichtlich?

Hallo,

ich habe in einer UserForm eine Button

Private Sub CommandButton1_Click()


Tabelle2.Range("A1") = "1"


End Sub

Wenn ich diesen Button drücke, schließt sich auch die UserForm.
Schreibe ich etwas unter:

 Tabelle2.Range("A1") = "1"

wird dieses nicht mehr ausgeführt.
Warum schließt sich die UserForm?

Zu aller Verwirrung schließt sich die UF nicht immer (wäre ja auch zu einfach...) wenn ich den Wert in A1 lösche und dann die UF öffne, den Button drücke, schließt sich die UserForm "meistens" nicht, trägt aber die "1" ein.

Wenn ich die UF wieder öffne und den Button drücke, während die "1" schon in A1 steht, schließt sich die UF jedesmal...

Öffnen tu ich die UF ebenfalls mit einem Button von einem Tabellenblatt

Private Sub CommandButton1_Click()
  UserForm1.Show
End Sub

Mein eigentliches Ziel:

Ich wollte lediglich die Spalte A in Tabelle2 clearen um dann aus einer ListBox die Werte in Spalte A einzutragen...nur schloss sich die UF jedesmal und teilweise wurde nicht mal Spalte A leer gemacht.

Wieso schließt sich die UserForm und wie kann ich es beheben?

...zur Frage

Excel Datei nicht speicherbar machen Vba?

ich habe ein Programm wie ein Taschenrechner erstellt.
In den Feldern kann man zahlen eingeben und danach kommt das ergebnis.

diese soll aber als Vorlage dienen und wenn man die Anwendung schließen möchte dann soll die Frage „ Möchten Sie es speichern?“ nicht erscheinen.

Gibt es einen VBA Code welches ich schreiben kann damit die Datei nicht speicherbar ist.

also ich klicke auf das rote X und es schließt sich auch weder zu fragen noch zu speichern.

Danke

mfg

...zur Frage

VBA kombiationsfeld mit Werten füllen?

Hi Leute,

ich habe Excel 2016 und versuche vergebens meine Kombinationsfelder mit den 3 Werten "Stahl" "Messing" und "Edelstahl" zu füllen.

Es Wird oft beschrieben das ich nachdem ich in der Userform bin und mir ein Kombinationsfeld erstellt hab auf "code anzeigen" gehen muss und oben rechts "initalize" klicken soll, jedoch finde ich diesen befehl dort nicht.

Kann mir einer weiter helfen?

...zur Frage

Wie kann ich mit VBA sagen, dass das Programm kurz warten soll, bevor es einen Befehl ausführt?

Ich habe ein kleines Schere Stein Papier Programm gebaut und will jetzt, dass wenn ein Knopf gedrückt wird das Ergebnis des Computer Gegners angezeigt wird und nach einer Sekunde wieder entfernt wird. Ich habe alles fertig soweit, dass einzige, was ich noch brauche ist die Sekunde Wartezeit. Hier ist der Code:

Sub Submit_Button()
[A1] = "GO"
Application.OnTime Now + TimeValue("00:00:01"), "Spiel"
[A1] = ""
End Sub

...zur Frage

Wie kann man den Inhalt aus einer TextBox einer Variable zuweisen? ( in VBA)?

Hallo,

ich habe mal wieder eine Frage zur VBA Programmierung in Excel. Ich möchte, dass der der Benutzer in einer Userform Angaben in verschiedenen TextBoxen eintragen kann, und die Einträge sollen je einer Variable zugewiesen werden. Die Variablen habe ich in einem benutzerdefinierten Datentyp erstellt (Deklaration des Datentyps in der Arbeitsmappe). Durch einen Klick auf den "start" button in der Userform sollen die Daten eingelesen werden. Es entsteht jedoch ein Laufzeitfehler 424 "Objekt erforderlich". Ich vermute, dass ich die TextBox falsch angesprochen habe. Anbei ein paar Bilder um es zu verdeutlichen. Ich hoffe auf rasche Hilfe, danke im Voraus.

Mit freundlichen Grüßen, Patrick.

...zur Frage

VBA | Passwortschutz des Codes = ERROR?

Hallo zusammen.

ich habe einen ewigen VBA Code und dachte mir, diesen extra zu schützen. (Schutzfunktion von Excel)

Nun spinnt mein Programm an vielen Stellen.

cell.Interior.Pattern = xlNone

Wird ständig als falsch markiert, etc..

Woran liegt das?

Kann mein Code nicht auf die Tabellen zugreifen wenn diese ebenfalls gesperrt sind oder generell nicht auf die anderen module, userformen, tabellen, etc.

...zur Frage

VBA userform Passwort Abfrage?

Hallo, ich möchte in excel eine Passwortsbfrage machen mit userform.

In Tabelle 1 stehen in Spalte A2 bis A30 Mitarbeiter usernamen.

in Spalte B2 bis B30 die dazugehörigen Passwörter.

userform mit Textfeldern wurde bereits erstellt.

wie kann ich jetzt die Zellen vergleichen wenn ich auf Einloggen gehen z.b A2 und B2 und wenn übereinstimmend, dann userform schließen ansonsten msg Box falsch

...zur Frage

VBA | UserForm öffnen, sobald Excel-Zelle (die eine Formel enthält) = 2?

Hallo,

Excel-VBA....

ich benötige Hilfe beim Thema UserForm öffnen und ständige Abfrage.

Ich habe eine Zelle mit einer Formel, der Wert, welcher raus kommt soll verglichen werden und bei z.b höher als 2 soll eine User Form geöffnet werden.

Kann mir da wer helfen? Ich bin komplett auf dem Holzweg..

Der Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$T$6" Then
If UCase(Target.Value) > 2 Then NewUserForm.Show
End If

End Sub

Devo

...zur Frage

VBA | Abbrechen des Hineinschreibens bei Überschreitung der TxBOX der UserForm?

Hallo miteinander.

Ich bräuchte unbedingt mal ein paar Profi-Tipps.

Ich habe einen Code, welcher eingetragene Daten aus der UserForm abspeichert und in verschiedene Tabellen übernimmt.

Soll die Textbox jedoch einen höheren Wert als 100 beinhalten, soll das hineinschreiben und alle weiteren Befehle abgebrochen werden.
Eine weitere UserForm soll als popup auftauchen. bzw. mit popup.show

Die frage, welche ich mir stelle ist:

Wie bekomme ich es hin, dass sich das Popup-Fenster öffnet und das Eintragen der Textbox in die Tabellen gar nicht erst stattfindet.

...zur Frage

Batch Taskill mit Messagebox?

Hallo,

Ich möchte ein kleines Batch Programm entwickeln, welches die ganze Zeit (wenn ein Programm arbeitet es schließt und ein anderes Programm startet.

Mein Batch Code wäre:

@echo off

color a

:start

cls

taskkill /f /im "notepad.exe"

goto start

Ich hätte gerne, dass wenn das Programm läuft (Notepad) ein einfaches Skript gestartet wird mit dem Befehl ,,START", z.B. If exist notepad.exe (dann sollte das beendet werden und eine Messagebox gestartet werden, z.B. start box.vbs

Kann mir da jemand weiter helfen?

...zur Frage

Excel VBA, ComboBox + intelligente Tabelle?

Hallo, ich habe folgenden Code:

ComboBox1.RowSource = Worksheets("tabelle3").Range("intelligentetabelle[spalte1]").Address

Diesen Code führe ich auf einer Userform auf einem anderen Tabellenblatt, dem ersten, aus. Das Problem ist, jedes mal zieht sich die ComboBox die daten aus dem ersten Tabellenblatt und nicht aus dem dritten der intelligenten Tabelle. Wie kann ich das beheben?

Danke!

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen