Informationen und Beispiele zum Thema InputBox | |
---|---|
![]() |
InputBox-Seite mit Beispielarbeitsmappe aufrufen |
Informationen und Beispiele zum Thema MsgBox | |
---|---|
![]() |
MsgBox-Seite mit Beispielarbeitsmappe aufrufen |
Betrifft: VBA "Abfrage Vorname - dann Pop up mit Namen
von: Fabio
Geschrieben am: 29.01.2010 17:31:44
Hallo zusammen,
für einen "Kleinen Gag" suche ich ein "VBA-Script" (oder so), das folgendes ausführt:
1. Beim Start der Datei soll vor der eigentlich ein "Fenster" aufgehen, in dem man nach dem Vornamen gefragt wird" - und den man dann eintippen muss.
2. Nach "ok" - soll ein weiteres Fenster aufgehen mit dem Text "Hallo "Vorname".
Wenn das nicht sehr aufwenig zu programmieren ist, wäre lieb, wenn einer Zeit und Lust hast, das zu tun. Ist wirklich weder eilig noch wichtig...
Lieben Dank!
Fabio
Betrifft: AW: VBA "Abfrage Vorname - dann Pop up mit Namen
von: robert
Geschrieben am: 29.01.2010 18:22:34
hi,
ein kleines beispiel, der code gehört in "Diese Arbeitsmappe" (Alt+F11)
gruß
robert
Private Sub Workbook_Open() Dim dname As String dname = InputBox("Wie heisst Du denn? ", "NAME ??") If dname = "" Then Do dname = InputBox("Wie heisst Du denn? ", "NAME ??") Loop Until (dname <> "") MsgBox "Hallo " & dname End If End Sub
Betrifft: Name ja - Pop Up Nein...
von: Fabio
Geschrieben am: 01.02.2010 11:43:08
Hallo,
vielen lieben Dank für das Script. Die Abfrage kommt auch (habe die nach einem anderen Text eingebaut):
- was aber nicht kommt ist dann die MSG-Box mit "hallo "vorname" - es kommt gar nix ?
Danke!
Fabio
Dim dname As String
dname = InputBox("Wie heisst Du denn? ", "NAME ??")
If dname = "" Then
Do
dname = InputBox("Wie heisst Du denn? ", "NAME ??")
Loop Until (dname <> "")
MsgBox "Hallo " & dname
End If
was
Betrifft: AW: Name ja - Pop Up Nein...
von: robert
Geschrieben am: 01.02.2010 15:39:05
Hi,
du hast geschrieben- beim Start......
und Workbook_Open()
ist bei Start.
was willst du dann ?
und wieseo findest du deinen beitrag nicht, wenn ich dir doch jetzt darauf antworte???
fragen über fragen ;-)
Ggruß
robert