Was habe ich bei diesem VBA Code falsch gemacht?

...komplette Frage anzeigen

3 Antworten

Hallo StillGamingLP, lass Dein Programm doch einmal im Einzelschrittmodus laufen (Entwicklungsumgebung, Debuggen | Einzelschritt). Über Debuggen | aktuellen Wert anzeigen kannst Du dann herausfinden an welcher Stelle es hakt.

Antwort bewerten Vielen Dank für Deine Bewertung

Er meckert offenbar bei dem text13 = CDate(Text1) und beim text2=Textbox2.value, Letztes ist klar, wenn man keine Zahl, sondern einen Buchstaben einträgt.

Hat es einen bestimmten Grund warum schon die Änderungen in den TextBoxen eine Aktion auslösen? Das Datum hat man nach der ersten Änderung ja noch nicht erfasst. Eigentlich könnte man den Feldinhalt doch beim Button betätigen prüfen und verarbeiten oder?

Antwort bewerten Vielen Dank für Deine Bewertung
StillGamingLP 01.02.2016, 18:48

Ich habe keine Ahnung könntest du mir den Code bitte umschreiben und dann kommentieren?

Wäre nett!

Lg StillGamingLP

0

Und ein drittes mal.... ^^

Wieso bentuzt du überhaupt das Change-Event der Textboxen?

Reicht es nicht 1x nach jedem Button Klick die Werte zu setzen?

Denn so funktioniert es nähmlich bei mir (ohne Fehler)

Ausserdem muss deine Zeile:

If text13 = Format("DD/MM/YYYY") Then

so aussehen:

If text13 = Format(text13, "DD/MM/YYYY") Then

MFG xGlumi

Antwort bewerten Vielen Dank für Deine Bewertung
StillGamingLP 01.02.2016, 18:03

Es tut mir leid dich nocheinmal zu stören aber es funtioniert immernoch nicht!

Public text13 As Date

Public Text2 As Long
Private Sub CommandButton1_Click()
Dim Text1 As Variant
Text1 = TextBox1
text13 = CDate(Text1)
Text2 = TextBox2.Value 
If text13 = Format(text13, "DD/MM/YYYY") Then
If Not text13 = Format(text13, "DD/MM/YYYY")Then
MsgBox ("Ups, Sie haben kein korrektes Datum eingegeben!")
End If 
With Me.TextBox1 
Cells(65000, 1).End(xlUp).Offset(1, 0).Activate 
ActiveCell = text13 
End With 
With Me.TextBox2 
Cells(65000, 2).End(xlUp).Offset(1, 0).Activate 
ActiveCell = Text2 
End With 
Else 
MsgBox ("Irgendetwas stimmt nicht!") 
End If 
TextBox1 = ""
TextBox2 = "" 
End Sub 

Nun sieht mein Code so aus und es kommt immer der gleiche Fehler!

Laufzeit...

Sorry, aber ich brauche Hilfe!

Mfg StillGamingLP

0
xGlumi 01.02.2016, 20:40
@StillGamingLP

Bei mir kommt dort kein Fehler mehr...
Erläuter mal bitte Schritt für Schritt was du tust.

MFG xGlumi

0

Was möchtest Du wissen?