Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
Screenshot zu InputBox	InputBox-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema MsgBox
Screenshot zu MsgBox	MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Inputbox bei Abbrechen...

• Inputbox bei Abbrechen... von walter mb vom 13.11.2014 10:25:53
• AW: Inputbox bei Abbrechen... - von yummi am 13.11.2014 11:05:51
  • Einwandfrei ! -) - von walter mb am 13.11.2014 11:23:37

Betrifft: Inputbox bei Abbrechen... von: walter mb
Geschrieben am: 13.11.2014 10:25:53

Guten Morgen,
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

Betrifft: AW: Inputbox bei Abbrechen... von: yummi
Geschrieben am: 13.11.2014 11:05:51

Hallo Walter,

du musst dir für den Abbrechen Fall den vorigen Wert merken

Sub Neuer_Name_Vorlage()

Dim def, tag As Variant
Dim merke As String

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
    merke = ActiveCell.Value
    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)
    If ActiveCell.Value = "" Then
        ActiveCell.Value = merke
    End If
   End If
End Sub

Gruß
yummi

Betrifft: Einwandfrei ! -) von: walter mb
Geschrieben am: 13.11.2014 11:23:37

Hallo Yummi,
einwandfrei Danke !

mfg
Walter mb

Beiträge aus den Excel-Beispielen zum Thema "Inputbox bei Abbrechen..."