Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1596to1600
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
Inhaltsverzeichnis

Leere Textbox zulassen

Leere Textbox zulassen
09.12.2017 10:39:58
Sema
Ich brauche bitte Nachhilfe zu folgendem Code:
Private Sub vwl_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Or KeyCode = 9 Or KeyCode = 1 Then
If vwl.Value > 0 Then
Range("B18").Value = -vwl.Value
Range("B15").Value = -vwl.Value
Range("B2").Select
Else
Range("B18").Value = vwl.Value
Range("B15").Value = vwl.Value
Range("B2").Select
End If
End If
End Sub
Problem: Funktioniert so wie gewollt nur wenn ich die Textbox leer stelle und mit Enter bestätige, kommt ein Laufzeitfehler. Ich check es nicht
Vielen Dank...für die Profis sicher eine Lachnummer :(

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

Betreff
Datum
Anwender
Anzeige
AW: Leere Textbox zulassen
09.12.2017 10:47:34
Hajo_Zi
nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.
Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten anonymisieren bzw. pseudonymisieren.

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Also ich schreibe keine Beiträge mit dem Betreff "Gerne u. Danke für die Rückmeldung. o.w.T."
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben,
mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Beiträge von Werner, Luc, robert und folgende lese ich nicht.
Anzeige
lass es doch einfach :-( owT
09.12.2017 12:02:00
Rudi
AW: Leere Textbox zulassen
09.12.2017 11:12:05
Gerd
Hallo Sema,
dies ist auch für Amateure keine Lachnummer.
Der geänderte Code lässt Text incl. LEER zu, alle Zahlen außer 0 werden negativ ausgegeben.
Private Sub vwl_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Or KeyCode = 9 Or KeyCode = 1 Then
If IsNumeric(vwl.Value) Then
Range("B15") = Abs(vwl.Value) * -1
Else
Range("B15") = vwl.Value
End If
Range("B18").Value = Range("B15").Value
Range("B2").Select
End If
End Sub

Gruß Gerd
AW: Leere Textbox zulassen
09.12.2017 12:38:09
Sema
Lieber Gerd,
DANKE !!! funzt prima - my hero !!

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige