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?

2 Antworten

Albin1990

28.07.2021, 23:53

Hallo

Ich hoffe, ich versteh dein Problem und kann dir helfen.

Userform öffnen:

Ein neues Modul hinzufügen.

In diesem Modul dann ZB Folgendes reinschreiben:

Sub UF1_Öffnen()
UserForm1.Show
End sub

Dieses Makro weist du einem Button zu oder führst es über "Makro ausführen" manuell aus.

Die Userform sollte sich nicht automatisch schließen...

Eine Userform wird entweder mit dem X oder über einem Button geschlossen. Der Code vom Schließen-Button ist Folgender:

Unload UserForm1

Probiere das Problem zu finden, indem du den Debugger benutzt. Entweder mit F8 oder auf "Debug".

Ich seh jetzt keinen Fehler in deiner Zeile.

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

Egal, was in Zelle A1 steht, sollte mit der Zahl 1 überschrieben werden.

Versuch vl. noch eines...

Klick erneut auf den Button in deiner Userform und füge dort den gewünschten Code erneut ein. Vl. steht er einfach am falschen Platz.

Woher ich das weiß:eigene Erfahrung – Bei einer Frage ist Danke ein obligates Zeichen von Respekt

QQwertz123

Fragesteller

30.07.2021, 14:42

es war lediglich ein Bug. Nach dem Speichern und "rebooten" der Mappe, hat sich Excel dann wieder beruhigt und es ging wie es sollte.

Albin1990

30.07.2021, 17:15

@QQwertz123

Okay 👍

IronofDesert

22.07.2021, 11:57

Hey

Also zuerst solltest du mal den "satz" anpassen indem du etwas in A1 schreiben willst.

Besser wäre:

Sheets("Tabelle1").Range("A2").Value = deine_variable

Was mir aufgefallen ist. Du verwendest den selben Button um die Userform anzuzeigen und um den Wert einzutragen? Sind das wirklich die beiden gleichen "Knöpfe"?!?

Ansonsten solltest du einen anderes bennenen. Da dieser sonst beide Befehle ausführt und deshalb ggf auch deine Userform schließt

QQwertz123

Fragesteller

22.07.2021, 12:09

Nein es sind die selben Buttons, einer ist in der UF der anderen auf dem Tabellenblatt. Habe diese auch mal umbenannt aber daran liegt es nicht. Dein Code hat leider auch nicht geholfen, hatte das davor aber auch schon so...ich versuch glaube mal das ganze in einer neuen Excel zu machen...vllt ist das iein Random "ichbinexcelundwilldichnurewigaufhalten-Bug"

QQwertz123

Fragesteller

22.07.2021, 12:14

Es ist halt wirklich ein bug gewesen........ich hab die Excel einfach mal gespeichert, geschlossen und neu gestartet...und jetzt gehts als wäre nie was gewesen.

Hallo zusammen,

ich habe eine UserForm in der folgendes steht:

    ...
    Spalte = 3
    Zeile = 6
    
    Unload UserForm1
    
    If OptionButton2 = True Then
        UserForm2.Show
    End If
...

In der zweiten UserForm steht dann:

Sub CommandButton1_Click()

If OptionButton1 = True Then
    Spalte = 6
ElseIf OptionButton2 = True Then
    Spalte = 9
ElseIf OptionButton3 = True Then
    Spalte = 12
ElseIf OptionButton4 = True Then
    Spalte = 15
End If

Unload UserForm2

End Sub

Leider funktioniert es nicht und "Spalte" bleibt immer 6.. Kann mir jemand weiterhelfen und sagen wie ich es hin bekomme, dass Spalte geändert wird?

...zur Frage

UserForm durch CommandButton schließen

Hallo zusammen,

ich habe eine UserForm mit verschiedenen OptionButtos. Durch klicken auf einen CommandButton soll zum einen je nach ausgewähltem OptionButton eine neue UserForm geöffnet werden, dass ist kein Problem, und zum anderen die aktuelle UserForm geschloßen werden. Wie bekomme ich das hin?

Hier der Code, den ich bisher habe:

Private Sub CommandButton1_Click()

If OptionButton1 = True Then
    UserForm2.Show
ElseIf OptionButton2 = True Then
    UserForm3.Show
ElseIf OptionButton3 = True Then
    UserForm4.Show
ElseIf OptionButton4 = True Then
    UserForm5.Show
ElseIf OptionButton5 = True Then
    UserForm6.Show
ElseIf OptionButton6 = True Then
    UserForm7.Show
ElseIf OptionButton7 = True Then
    UserForm8.Show
ElseIf OptionButton8 = True Then
    UserForm9.Show
ElseIf OptionButton9 = True Then
    UserForm10.Show
ElseIf OptionButton10 = True Then
    UserForm11.Show
ElseIf OptionButton11 = True Then
    UserForm12.Show
End If

End Sub

...zur Frage

Wie kann ich in VBA zwei Userformen mit einem Button schließen?

Hi Leute!

Folgendes... Ich habe in meiner UserForm1 einen "Beenden" Button erstellt. Drücke ich diesen öffnet sich meine UserForm2 mit der Frage (Zwei Buttons JA/NEIN) ob ich beide Masken wirklich schließen will. Soweit alles geschafft.

Nun weiß ich nicht was ich nach Private Sub CommandButton2_Click()

eintippen muss damit sich UserForm1 und UserForm2 beide schließen.

Hoffe ihr könnt mir helfen :)

...zur Frage

Word VBA Textmarken Text ersetzen?

Hallo zusammen,

ich arbeite gerade an einer UserForm, mittels welcher der User Daten zu einer Person eingeben kann, welche automatisch ins Dokument eingefügt werden.

Sollstnad : "Name : Hans Peter" und sobald das Makro nochmal ausgeführt wird, soll Hans Peter z.B. durch Michale Maier ersetzt werden.

Jedoch sieht das beim zweiten Ausführen des Makros so aus : "Name : Hans PeterMichael Maier"

Also die eingabe wird hinter die erste Eingabe gesetzt, statt sie zu erseten

Mein code :

Private Sub CB_Submit_Click()

Dim v_Name As Range

Set v_Name = ActiveDocument.Bookmarks("BS_Name").Range

v_Name.Text = Me.TB_Name.Value

UserForm.Hide

End Sub

Danke schonmal für eure Antworten :)

...zur Frage

Ausgeblendetes Tabellenblatt einblenden und dann aktivieren möglich?

Und wieder eine Frage:

Ich habe ausgeblendete Tabellenblätter und möchte nun über einen Command-Button, dass sich die Userform schließt, ein bestimmtes Tabellenblatt eingeblendet, dann aktiviert und dann eine Userform öffnet. Im Debug-Modus klappt es, aber wenn ich es direkt versuche, wird zwar die Userform geschlossen aber das Tabellenblatt nicht eingeblendet und aktiviert. Wenn ich die Userform schließe, dann aber wird das Tabellenblatt eingeblendet.

Habe wohl eine falsche Reihenfolge in diesem Code:

Private Sub CMD_More_Click()
    CMD_More.TakeFocusOnClick = False
    Unload Me
    Worksheets("Fertigungsprüfplan Seite 2").Visible = True
    Call change1
End Sub

Public Sub change1()
    Worksheets("Fertigungsprüfplan Seite 2").Select
    Range("A1").Select
    Load UserFormInspectionFeature2
    UserFormInspectionFeature2.Show
End Sub

Kann da auch jemand helfen? Danke im Voraus. Ich möchte es nur verstehen...

...zur Frage

Werte untereinander in Excel erfassen - VBA

Frage an die Excel Profis und VBA Experten. Die Aufgabenstellung baut aufeinander auf.

Aufgabenstellung: Zelle A1 soll als Eingabefeld in Excel dienen. Alle Werte, die in A1 eingegeben werden, sollen einfach untereinander ausgegeben werden, also in a2, a3, a4 usw. Die Cursormarkierung (damit meine ich die schwarze Umrahmung der aktiven Zelle) bleibt aber in A1.
Aufgabenstellung: Aufbauend auf Aufgabenstellung 1 soll nun nachdem in A1 ein Wert eingegeben wurde, der Wert wie gehabt in A2 erscheinen. Die schwarze Umrahmung soll aber jedoch zunächst in B2 erscheinen um einen weiteren Wert einzugeben. Erst nach Eingabe eines Wertes in B2 soll die Umrahmung wieder in A1 springen, damit ein nächster Wert eingegeben werden kann, der dann in Zelle A3 erscheint. Dann springt die Cursormarkierung in B3, um einen Wert einzugeben. Danach wieder in A1 usw.
Aufgabenstellung: Aubauend auf Aufgabenstellung 2 sollen die Werte, die in den Zellen der Spalte B eingegeben werden, mit den Werten der Spalte A im Reiter "Tabelle2" verglichen werden. Sofern der eingegebene Wert in der Spalte B mit denen der Spalte A (Reiter Tabelle2) übereinstimmt, soll Excel ein Fenster öffnen, in dem "Wert gefunden" steht.

Ist das in Excel 2003 per VBA für alle 3 Aufgabenstellungen möglich?

...zur Frage

Combobox mit Daten einer Spalte(B) füllen aber nur,wo in der gleichen Zeile in Spalte(G) nein steht

        Private Sub UserForm_Initialize()
With Me.txtDatum.Value = Date


   Dim r As Range
With Worksheets("Daten")
        Set r = .Range("B1", .Range("B65536").End(xlUp))
ComboBox1.RowSource = "Daten!" & r.Address
End With
End With




End Sub

Ist es möglich, dass die combobox all jene Daten herausfiltert wo, in Spalte G nein steht? Also praktisch dass es mir nurmehr jene Daten aus Spalte B in der Combobox anzeigt wo in der gleichen Zeile in Spalte G ein nein steht ? Danke im Voraus

...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: Zwei Spalten mit Wert multiplizieren und dann addieren mit Hilfe von Makros

Hallöchen,

ich habe folgendes Problem Ich habe zwei Spalten die ich jeweils miteinander addieren möchte. Doch bevor ich diese addiere, möchte ich Spalte B mit dem Wert aus der TextBox1 multiplizieren und Spalte C mit dem Wert aus Textbox2. Danach sollen beide Spalten miteinander addiert und dann sortiert werden. Spalte D ist in diesem Fall die Ergebnisspalte. Das Programm hat auch schon funktioniert, jedoch habe ich vorher nur die spalten addiert und sortiert.

HIer mein bereits geschriebener Code:

Private Sub CommandButton1_Click()



' Prüfen ob Lastspitzen eingetragen wurden, ansonsten Fehlermeldung

        If TextBox1.Value = "" Or TextBox2.Value = "" Then
        MsgBox "Bitte geben Sie eine Lastspitze ein!"
     
Else
        
Dim wks As Excel.Worksheet
Dim lngLetzteZeile As Long
Dim Last1 As Integer
Dim Last2 As Integer
Last1 = TextBox1.Value
Last2 = TextBox2.Value  

Set wks = ActiveWorkbook.Worksheets("Vergleich")


With wks
 
lngLetzteZeile = .Cells(.Rows.Count, "B").End(xlUp).Row
If lngLetzteZeile < 15 Then Exit Sub

 With .Range("D15:D" & lngLetzteZeile)
 'berechne: D := B + C
 .FormulaR1C1 = "=RC[-2]*Last1+RC[-1]*Last2"
 'Formeln durch deren Ergebnis ersetzen
 .Value = .Value
 End With
 
With .Range("B15:D" & lngLetzteZeile)
 .Sort Key1:=.Cells(2), Order1:=xlDescending, _
 DataOption1:=xlSortTextAsNumbers, _
 SortMethod:=xlPinYin
End With

End With
End If


End Sub

...zur Frage

Per Excel VBA eine Zeile mit einer Spalte vergleichen :) Hilfe :O

Ich versuche gerade ein Programm zu schreiben das eine Zeile mit einer Spalte vergleicht. Nun ic bin gerade noch am Anfang des Programmes und nicht sehr erfolgreich. Das Prizip ist es die Zeile (in Tabelle2) mit der Spalte(bzw. erstmal mit der Zelle(in Tabelle1)zu vergleichen). Die Zeile in Tabelle1 wird so gebildet das A und i zsm eine zeile angeben und i als Variable für die Forschleife dient. Das heißt das Programm geht Zeile für Zeile durch und sucht nach einer Zahlenübereinstimmung. Falls was gefunden wurde soll er erstmal per MsgBox ein Simples Test ausgeben damit ich weiß das es Funktioniert. Ich muss zugeben das ich VBA erst vor 3 Tagen angefangen habe zu Lernen. Dehalb seid nicht so Streng mit Fehlern zu mir :D ich hoffe ihr konnte mich helfen mfg Dennis :)

Sub CommandButton1_Click()

Dim i1 As Integer

i = 1

For i = 1 To 100

If Tabelle1.Cells(1 & i) = Tabelle2.Cells(1, 1) Then

MsgBox "Test"

End If

Next i

End Sub

...zur Frage

Wie bearbeite ich eine UserForm in Excel 2016 (Mac)?

Hallo zusammen,

ich habe auf meinem MacBook mein Office-Paket auf 2016 geupdatet und komme jetzt in Excel nicht mehr klar.. Ich möchte gerne eine bestehende UserForm bearbeiten. Konkret will ich noch ein paar Buttons hinzufügen. Seit dem Update weiß ich aber nicht mehr, wie ich die UserForm so öffnen kann, dass ich dort etwas bearbeiten kann. Den Code der da hinter steckt kann ich ändern, nur die Form an sich nicht.

Danke für eure Hilfe :)

...zur Frage

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

...zur Frage

Wie kann ich in VBA-Excel per laufender Nummer meine Userform Einlesen und danach diese "Einlesung" bearbeiten?

Hi, ich arbeite momentan an einer Userform(Bild) womit ich in meiner Tabelle "Gesamtdaten": In die erste leere Zeile einen neuen Mitarbeiter anlegen kann.

Diese läuft auch einwandfrei.

Der Übernehmen Button hat folgende Programierung: (ist nur der teil den Ihr auch auf dem Screenshot seht ... der rest wäre zu viel :D )

Private Sub cmdÜbernehmen_Click()

Dim ELZ As Long

ELZ = Sheets("Gesamtdaten").Cells(Rows.Count, 1).End(xlUp).Row + 1

Sheets("Gesamtdaten").Cells(ELZ, 1).Value = Me.TXTlfdNr.Value
Sheets("Gesamtdaten").Cells(ELZ, 2).Value = Me.TXTLehrjahr.Value
Sheets("Gesamtdaten").Cells(ELZ, 3).Value = Me.CBAusbildungsart.Value
Sheets("Gesamtdaten").Cells(ELZ, 4).Value = Me.CBAusbilder.Value
Sheets("Gesamtdaten").Cells(ELZ, 5).Value = Me.TXTName.Value
Sheets("Gesamtdaten").Cells(ELZ, 7).Value = Me.TXTVorname.Value
Sheets("Gesamtdaten").Cells(ELZ, 8).Value = Me.TXTPersonalnummer.Value
Sheets("Gesamtdaten").Cells(ELZ, 9).Value = Me.CBGeschlecht.Value
Sheets("Gesamtdaten").Cells(ELZ, 10).Value = Me.TXTStrasseHsNr.Value
Sheets("Gesamtdaten").Cells(ELZ, 11).Value = Me.CBPLZ.Value
Sheets("Gesamtdaten").Cells(ELZ, 12).Value = Me.CBOrt.Value

Der Abbruch button:

Private Sub cmdAbbruch_Click()

Unload Me

End Sub

Nun würde ich jedoch noch gerne einen button haben der wenn ich oben im Textfeld "lfdNr" eine schon vorhandene nummer eingebe. Dieser sofort alle daten in die jeweilge Combbox/Textbox einträgt und falls ich eine änderung vornehme diese auch mit rückfrage (msgbox Datensatz wurde geänder etc.) auch wieder in die Zeile der passenden LfdNr übernimmt.

Ich bin recht neu in VBA ... bzw. arbeite diese Jahr das 1. mal überhaupt mit excel ... desswegen hole ich mir (wenn ich nach [nun fast 1 woche] suchen keine lösung zu diesem problem finde die mir "zusagt" bzw. ich diese verstehe ... ( will ja was lernen ;'D )

Ich entschuldige mich schonmal für mein etwas "konfuses" auftreten aber hoffe auf Unterstützung :)

Was villeicht auch noch zu erwähnen ist:

Die lfdNr setzt sich automatisch beim öffnen der Userform auf die LfdNr die ein Neuer Datensatz automatisch bekommen sollte.

    TXTlfdNr = Sheets("DropDown-Menü's").Range("J15") 'In J15 steht die Formel =ANZAHL2(Gesamtdaten!A2:A502)

MfG Tim

...zur Frage

Excel VBA Druckvorschau?

Hallo, wie kann ich eine benutzerdefinierte Seite (Tabellenblatt) über einen Button in der Userform in der Druckvorschau anzeigen lassen?

Einen Weg habe ich bereits gefunden, Problem ist nur, dass die Userform selbst auf der Druckvorschau erscheint und ich die Maske (Userform) nicht beenden kann.

Der weg ist folgender:

Private Sub btndruckvorschau_Click()

Worksheets("Beispiel").PrintPreview

End sub

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen