Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1152to1156
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
1152to1156
1152to1156
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

TextBox - wenn leer - Typen unverträglich

TextBox - wenn leer - Typen unverträglich
Frank
Hallo Zusammen!!!
Bin wie fast immer ein wenig hilflos!
In eine TextBox (befindet sich auf einer UF) wird bei Bedarf ein Datum eingegeben, dann funzt auch alles. Wenn ich nun aber kein Datum benötige und die TextBox leer lasse, dann kommt die Fehlermeldung "Typen unverträglich". Was muss ich tun, dass der Code auch bei leerer TextBox ausgeführt wird?
Danke für eure Hilfe!!!
Gruß Frank H.!!!

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: TextBox - wenn leer - Typen unverträglich
06.05.2010 14:58:29
F1
Der Code wäre hilfreich!
AW: TextBox - wenn leer - Typen unverträglich
06.05.2010 15:05:15
Frank
Hallo F1!
Der Code!
Private Sub CommandButton1_Click()
If Me.TextBox1.Value = "" Then
MsgBox "Sie müssen eine lfd. Nr. angeben!"
Exit Sub
End If
Range("G1").Value = TextBox1.Text
Dim Zelle As Range
Dim sBegriff As String
sBegriff = TextBox1.Value
If sBegriff = "" Then Exit Sub
Set Zelle = Worksheets("CD_Archiv").Columns(31) _
.Find(sBegriff, LookAt:=xlWhole)
If Zelle Is Nothing Then
MsgBox "Suchbegriff wurde nicht gefunden!"
End If
If CDate(TextBox28)
Das Datum kommt in TextBox28!!!
Danke und Gruß!!!
AW: TextBox - wenn leer - Typen unverträglich
06.05.2010 15:15:54
Chris
Servus,
Sub X()
If Zelle Is Nothing Then
MsgBox "Suchbegriff wurde nicht gefunden!"
End If
If IsDate(TextBox28) Then
If CDate(TextBox28)
Das sollte das Problem beheben.
Gruß
Chris
Anzeige
AW: TextBox - wenn leer - Typen unverträglich
06.05.2010 15:28:16
Frank
Hallo Chris!!!
Wie immer im Forum! Gefragt und prompt 'ne Antwort. Natürlich sehr hilfreich, denn es funzt super und ich habe wieder etwas dazu gelernt!!! Allerherzlichsten Dank und einen schönen Tag noch!!!
Gruß Frank H.!!!
prüfe auf IsNumeric ...
06.05.2010 15:18:25
Matthias
Hallo
ungetestet
if isNumeric(TextBox28) then 

If CDate(TextBox28)
end if
Gruß Matthias

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige