Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

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

Eingabefenster

Betrifft: Eingabefenster von: Sebastian
Geschrieben am: 23.08.2004 07:18:25

Guten Morgen

Ich habe folgendes Problem, ich möchte mit dem klick auf ein Schaltelement ein Fenster öffnen, in dem ich etwas eingeben kann. Diese Eingabe soll später noch weiter verarbeitet werden, also sollte sie in einer Variablen gespeichert werden. Ich bekomm es aber nicht hin... Kann mir vielleicht einer Helfen??

Danke schon mal!

MFG
Sebastian

  


Betrifft: AW: Eingabefenster von: WernerB.
Geschrieben am: 23.08.2004 07:31:43

Hallo Sebastian,

wie gefällt Dir das?
Sub Sebastian()
Dim s As String
    s = InputBox("Gib mal hier etwas ein:", "Ich bin das Eingabefenster")
    If s = "" Then
      MsgBox "Keine Eingabe !" & vbCr & vbCr & "Makro-Abbruch !", vbCritical, _
        "Dezenter Hinweis für " & Application.UserName & ":"
      Exit Sub
    Else
      MsgBox "Du hast '" & s & "' eingegeben !", vbInformation, _
        "Dezenter Hinweis für " & Application.UserName & ":"
    End If
End Sub

Viel Erfolg wünscht
WernerB.


  


Betrifft: AW: Eingabefenster von: Sebastian
Geschrieben am: 23.08.2004 07:43:58

Super, gefällt mir gut :-)

Geht es auch, das in dem Eingabeteil, schon eine Vorgabe steht, die man verändern kann??

MFG
Sebastian


  


Betrifft: AW: Eingabefenster von: WernerB.
Geschrieben am: 23.08.2004 08:03:07

Hallo Sebastian,

klar geht das, z.B. so:
Sub Sebastian()
Dim s As String
    s = InputBox("Gib mal hier etwas ein:", "Ich bin das Eingabefenster", _
      "Ich bin die Vorbelegung!")
    If s = "" Then
      MsgBox "Keine Eingabe !" & vbCr & vbCr & "Makro-Abbruch !", vbCritical, _
        "Dezenter Hinweis für " & Application.UserName & ":"
      Exit Sub
    Else
      MsgBox "Du hast '" & s & "' eingegeben !", vbInformation, _
        "Dezenter Hinweis für " & Application.UserName & ":"
    End If
End Sub

Du solltest Dir auch mal die VBA-Hilfe zu "InputBox" ansehen!


Gruß
WernerB.


  


Betrifft: AW: Eingabefenster von: Sebastian
Geschrieben am: 23.08.2004 08:08:44

Werd ich tun, aber ich steig oft nicht so ganz durch die Hilfe durch!!
Danke!

MFG