Office: (Office 2013) VBA Input-Box Abbrechen geht nicht

Hey,
ich habe seit Tagen das Problem, wenn ich etwas in die Inputbox reinschreibe geht alles, wenn ich aber "" lasse sagt er das Feld ist leer!
Wenn ich jetzt auf abbrechen gehe sagt er das gleiche! Gibt es eine Möglichkeit dies zu umgehen, oder das gleich am Anfang, wenn ich das Ausführe ein Leerzeichen drinne steht, ohne das ich eins eingebe... Dann könnt man es ja etwas umgehen, denn wenn man dann gleich auf abbrechen geht steht da ja das vorprogrammierte Leerzeichen drinne. Bitte um schnelle Antwort

Lggg Dominik

 

Zufall?

 

Ne kenne die Nicht!
Gab es eine Antwort? Wenn ja kannst du sie mir reinschreiben?

 

Hey ich habe mir die Antwort mal angeschaut...
Kann diese 2 aber nicht verstehen... Kannst du sie mir nochmal mit Kommentaren ausstatten?
Hier ist mein Code. Kannst du ihn ändern, das er richtig wird...?

http://prntscr.com/hfeci3

PS.: Bin neu kenne mich hier kaum aus...

Lggg Dominik

 

Lies erssma

 

Ok, also nochmal komplett neu.

Liebe Community,
ich habe seit Tagen ein Problem. Ich moechte es euch nun einmal schildern.

Ich moechte eine InputBox erstellen.
Das sieht dann so aus:
Man kann seinen Text eingeben, dann auf "ok" druecken und es passiert etwas.
Wenn man das Feld aber frei laesst und auf "ok" drueckt oeffnet sich ein anderes Fenster.
Wenn man das Feld aber frei laesst und man auf "abbrechen" drueckt soll sich KEIN Fenster oeffnen sondern sich alle PopUp-Fenster schliessen.

Mein Loesungsansatz waere

1. Es gibt dafuer einen Code

2. Man programmiert das Feld so, das wenn es aufpoppt ein Leerzeichen automatisch drinne steht.

Wenn es fuer 1. oder 2. Einen Code gibt bitte ich euch meinen Code zu ändern.
Mich wuerde aber trotzdem interessieren wie man in ein Feld einen Text automatisch schon einfügen kann und es ist mir schon aufgefallen, das manchmal auch ein Wasserzeichen drinne steht und verschwindet wenn etwas drinne steht.

Lggg Dominik

Weiss aber nicht wie ich einen VBA-Code einfuegen kann.


Sub Speichern_als_PDF_mit_bestimmten_Namen ()
Dim strDateiname As String

Nummer1:

strDateiname = Inputbox("Mit welchem Namen soll gespeichert werden?","Name bearbeiten", _ str Dateiname)

If strDateiname = "" Then

Antwort1 = MSGBox("Es wurde kein gueltiger Name eingetragen", vbRetryCancel, "Es ist ein Fehler aufgetreten!")

If Antwort1 = 4 Then
Goto Numer1

Else Goto Exit1

End if

Else
strDateiname = strDateiname

End if

Exit1:


Exit2:

End Sub