Inpubox

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
InputBox MsgBox


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Inpubox
von: klaus
Geschrieben am: 20.06.2002 - 14:37:54

34 Grad im Büro, denken fällt schwer, folgende Frage:
Wie wird das ABBRECHEN in einer Inputbox dahin gehend im Makro ausgewertet, dass bei Anklicken dieses Feldes an das Ende des Makro gesprungen wird.
Vielen Dank
Klaus

nach oben   nach unten

Re: Inpubox
von: Michael Scheffler
Geschrieben am: 20.06.2002 - 14:49:01

Hallo,

nicht schön, da mit Sprungmarke, aber funktioniert.


Option Explicit
Sub TestInput()
Dim strTest As String
strTest = InputBox("Hallo Eingabe", "Test")
If strTest Like "" Then GoTo Cancel
Debug.Print strTest

Cancel:
End Sub

Gruß

Micha

nach oben   nach unten

Re: Inpubox
von: Timo
Geschrieben am: 20.06.2002 - 14:54:19

Hmm, man könnte das sicher mit einer Sprungmarke realisieren:


Sub Message()
Dim Auswahl As Variant
Auswahl = MsgBox("Bla", vbYesNoCancel + vbCritical)
Select Case Auswahl
Case Is = vbCancel
    GoTo Sprungmarke
End Select
MsgBox ("Hallo")
End
Sprungmarke:
    MsgBox ("Abbruch")
    End
End Sub

So funzt es auf jeden Fall!

nach oben   nach unten

o.T. Vielen Dank, so geit dat
von: klaus
Geschrieben am: 20.06.2002 - 14:55:18


nach oben   nach unten

Re: Inpubox
von: Timo
Geschrieben am: 20.06.2002 - 14:55:54

So ist es besser als bei meiner Variante. Also nimm lieber diese! Und wo zum Teufel arbeitest du, Klaus? Von 34 ° kann hier im hohen Norden keine Rede sein... Eher 20 :(

Gruss
Timo

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Zellen mit Inhalt markieren"