Frage von StillGamingLP, 59

Was habe ich bei diesem VBA Code falsch gemacht?

Hallo miteinander,

Ich habe ein Problem!

Ich habe einen Code geschrieben der mir richtig erscheint, aber ich erhalte immer den gleichen Fehler:

Laufzeitfehler'13'

Typen unverträglich

Die Microsoft Hilfe nützt leider auch nichts!

Könntet ihr mir weiterhelfen?

Der Code steht unten:


Public text13 As Date
Public Text2 As Long
Private Sub CommandButton1_Click()
If text13 = Format("DD/MM/YYYY") Then
If Not text13 = Format("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
Private Sub TextBox1_Change()
Dim Text1 As Variant
Text1 = TextBox1
text13 = CDate(Text1)
End Sub
Private Sub TextBox2_Change()
Text2 = TextBox2.Value
End Sub

Ich wäre froh über eine schnelle Antwort!

Danke schon im Voraus!

Mit Freundlichen Grüssen

StillGamingLP

Antwort
von Ninombre, 36

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?

Kommentar von StillGamingLP ,

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

Wäre nett!

Lg StillGamingLP

Antwort
von eddi0102, 19

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
von xGlumi, 28

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

Kommentar von StillGamingLP ,

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

Kommentar von xGlumi ,

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

MFG xGlumi

Keine passende Antwort gefunden?

Fragen Sie die Community

Weitere Fragen mit Antworten