|
Hallo zusammen,
erstmal frohe Weihnachten zusammen.
ich habe eine kurze Frage.. wahrscheinlich sehr einfach zu lösen, aber ich hänge schon seit über 2 Stunden dran. Ich versuche eine einfache If then else Bedingung zu schreiben unzwar diese:
If Textbox_SE_Palettenanzahl.value = "" Then
Cells(last, 8).value = 1
Else
Sheets("Sendungsdaten").Cells(last, 8).value = CInt(Textbox_SE_Palettenanzahl)
End If
Ich will damit erreichen, dass wenn die Textbox leer ist, dass der Wert 1 in die Zelle geschrieben wird. Ich habe ca. 10 von diesen If Abfragen.
Ich kriege aber entweder die Fehlermeldung If Block ohne End if... oder die Fehlermeldung Else ohne IF wenn ich das else einen Tab nach links rücke. Ich bin langsam echt am verzweifeln. Ich hoffe jemand kann mir da weiterhelfen.
Kann ich damit auch erreichen, dass ich in eine Zelle nur Integerzahlen oder gar keine habe... also wenn Text.value = "" dann "" ansonsten Cint...??
Vielen lieben Dank im Voraus.
Beste Grüße
Daniel
|