Inputbox bei Abbrechen...
13.11.2014 10:25:53
walter
ich habe eine Inputbox, soweit klappt alles.
Wenn ich allerdings, wenn die Inputbox geöffnet habe, ABBRECHEN drücke,
wird die active Zelle gelöscht.
Es sollte aber der Wert drin bleiben !
Was ist hier FALSCH ?
Sub Neuer_Name_Vorlage()
Dim def, tag As Variant
Dim Antwort
Antwort = MsgBox("Habe Sie die RICHTIGE Zelle aktiviert? " _
& Chr(13) & Chr(13) & _
Chr(13) & "Wenn JA dann: JA drücken" _
, vbCritical + vbYesNo, "Vorlage Name erstellen")
If Antwort = vbNo Then
Exit Sub
Else
def = ActiveCell
ActiveCell = InputBox(Chr(13) & _
"Bitte jetzt den Namen der neuen Vorlage einsetzen," & Chr(13) & Chr(13) & _
" neben Minuszeichen Curser setzen ! " & Chr(13) & Chr(13) & _
"(einfach die Pfeiltaste nach rechts drücken) ", "Name der neuen _
Vorlage", "'- " & def)
End If
End Sub
mfg walter mb