Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
15.04.2024 17:34:30
Fehlende Zeilen automatisch nach Zeiten ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1592to1596
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
1592to1596
1592to1596
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Textbox leer UF schließen verhindern

VBA: Textbox leer UF schließen verhindern
21.11.2017 15:04:25
Bernd
Hallo zusammen,
habe ein Problem bei dem ich Hilfe bräuchte.
Und zwar möchte ich verhindern, dass die Userform geschlossen werden kann, wenn Textbox 7,8 und 9 leer sind.
Vielen Dank schon mal im Voraus!
Lieben Gruß aus Bremen
Bernd
Office 2016 Pro 32bit

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Cancel = True
21.11.2017 15:16:55
Matthias
Hallo
Nach diesem Schema:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If Len(TextBox1) = 0 Or Len(TextBox2) = 0 Then Cancel = True
End Sub
ObjektNamen bitte anpassen
Gruß Matthias
AW: VBA: Textbox leer UF schließen verhindern
21.11.2017 15:28:46
Peter
Hallo Bernd,
So wenn über einen Button geschlossen werden soll. 
Private Sub CommandButton1_Click()
If TextBox8 = "" And TextBox8 = "" And TextBox9 = "" Then Exit Sub
Unload Me
End Sub
So wenn über das "x" geschlossen werden soll 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
If TextBox7 = "" And TextBox8 = "" And TextBox9 = "" Then
Cancel = True
End If
End If
End Sub

Viele Grüße
Peter (hpo)
Anzeige
AW: Laufzeitfehler 13 "Typen unverträglich"
21.11.2017 18:30:25
Bernd
Hallo zusammen,
hab ein Problem beim schließen der Userform über Button. Die TextBox9 ist aber gefüllt. Und zwar kommt Fehlermeldung Laufzeitfehler 13 "Typen unverträglich"
Hier mein Code: 

Private Sub cmd_schließen_Click()
If TextBox9 = "" Then Exit Sub
Unload Me
frm_Start.Show 'Hier kommt die Fehlermeldung
End Sub
Weiß jemand rat?
Lieben Gruß aus Bremen
Bernd
Sorry doppelt !!!
21.11.2017 18:56:13
Bernd
AW: Laufzeitfehler 13 "Typen unverträglich"
21.11.2017 18:57:12
Daniel
Hi
dann tritt der Fehler beim Starten der Userform frm_Start.Show auf.
geh mal im VBA-Edior ins Menü EXTRAS - OPTIONEN - ALLGEMEIN und wähle bei UNTERBRECHEN BEI FEHLERN die Option "in Klassenmodul" aus.
Führe dann die Aktion nochmal aus. An welcher stelle tritt jetzt der Fehler auf?
Gruß Daniel
Anzeige
AW: Laufzeitfehler 13 "Typen unverträglich"
21.11.2017 19:24:02
Bernd
Hallo Daniel,
hab durch deine Hilfe den Fehler gefunden. Er trat in einer anderen UF auf zwei TextBoxen waren mit falschen Zellen verknüpft.
Danke dir für deine schnelle Hilfe.
Lieben Gruß aus Bremen
Bernd
AW: Laufzeitfehler 13 "Typen unverträglich"
21.11.2017 18:54:31
Bernd
Hallo zusammen,
hab ein Problem beim schließen der Userform über Button. Die TextBox9 ist aber gefüllt. Und zwar kommt Fehlermeldung Laufzeitfehler 13 "Typen unverträglich"
Hier mein Code: 

Private Sub cmd_schließen_Click()
If TextBox9 = "" Then Exit Sub
Unload Me
frm_Start.Show 'Hier kommt die Fehlermeldung
End Sub
Weiß jemand rat?
Lieben Gruß aus Bremen
Bernd
Anzeige
AW: VBA: Textbox leer UF schließen verhindern
21.11.2017 15:59:46
Bernd
Hallo Ihr Beiden,
beide Vorschläge haben gepasst. Danke für die schnelle Hilfe!!!
Lieben Gruß aus Bremen
Bernd

307 Forumthreads zu ähnlichen Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Anzeige
Zahl vorn/hinten vom Text trennen + Komma
StefanK

Hallo Excel-Freunde
ich möchte gern per Formel folgendes lösen:
in zelle a3 steht
1 haley, bill rock around the clock 1956
jetzt soll in b3 die "1" stehen --- löse ich per Formel mit =LINKS(A3;SUCHEN(" ";A3)-1)
in e3 soll "1956" stehen --- löse ich mit Array-Formel {=...
25.09.2008 19:00:21
Thread-ID: 1012407
12 Beiträge
Textbox Ausgabe als Zahl bzw. Zeit formatieren
Steffan

Hallo ihr lieben,
ich schreib jetzt schon den ganzen Tag an folgender Routine:
Private Sub CommandButton1_Click() Dim z As Integer z = Range("I101").End(xlUp).Row + 1 TextBox1 = Format(CDate(TextBox1.Value), "dd.mm.yyyy") Cells(z, 9) = TextBox1 'Datum des Tauchgangs Cells(z, 12) = Tex...
28.09.2008 20:12:56
Thread-ID: 1012988
6 Beiträge
Anzeige
Zahlen rechtsbündig in einer Textbox
Helmut

Hallo,
ich habe einen Textstring mit Zahlen die ich rechstbündig anordnnen will.
Text= "Beisiel: " & Format (Zahl,"#,###")
Wie wird die Zahl im Formatbefehl z.B rechtsbündig bei max 6 Stellen ausgegeben?
Gruß
Helmut
04.11.2008 11:57:00
Thread-ID: 1021556
2 Beiträge
Zahl eingeben und per VBA formatieren
Herbert

Hallo Gemeinde
Ich habe eine Zelle in einem .xlt, dort soll der User eine Zahl eingeben und mit dem Changeereignis
soll die Zahl in der Form JJ/###A umgewandelt werden.
Beispiel: 201 soll 08/201A werden. Das, was ich hier verbrochen habe, funst nicht, kann mir jemand helfen?
P...
05.11.2008 16:08:10
Thread-ID: 1021969
12 Beiträge
Textzahl umwandeln
Stephan

Hallo zusammen,
ich habe folgendes Problem:
Mit dem u. a. Code werden Zeilen aus einer Datei in eine andere kopiert. Die Spalte B (B2:B65535) der Zieldatei ("Auswertung.xls)" soll nun aber zusätzlich noch mit 1 multipliziert werden, da diese ein Datum als Textzahl enthält und dieses in...
10.11.2008 11:12:00
Thread-ID: 1023147
22 Beiträge
Nur Zahlen in sehr vielen Textboxen
uli

Hallo,
habe ein im Internet gefunden, der allerdings noch ein bisschen angepasst werden muss. Vielleicht könnt ihr mir helfen, da ich an dieser Stelle nicht mehr weiterkomme.
Ich möchte die Eingabe von Buchstaben in mehreren Textboxen verbieten. Dies mache ich mit folgendem Code in eine...
13.11.2008 10:24:00
Thread-ID: 1024091
3 Beiträge
TextBox Inhalte sollen Zahlen sein
Frank

Hallo Zusammen!!!
Mit folgendem Code:
Private Sub CommandButton2_Click() If Me.TextBox1.Value = "" Then MsgBox "Sie müssen ein Datum eingeben" Exit Sub End If If Me.TextBox2.Value = "" Then MsgBox "Sie müssen eine Anfangszeit eingeben " Exit Sub End If If Me.TextBox3.Value = "" Then M...
17.11.2008 21:37:00
Thread-ID: 1025414
8 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton TextBox

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
3
5
11
5
3
1
11
21
2
7
4
3
3
2
1
8
5
4
21
3
5
2
2
6
4