Microsoft Excel

Herbers Excel/VBA-Archiv

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

Inputbox bei Abbrechen...

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..."