Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
152to156
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
152to156
152to156
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Problem mit InputBox

Problem mit InputBox
30.08.2002 10:54:06
Werner Hassold
Hi Leute,
Ich möchte beim Aufruf der InputBox festlegen daß nur ein
StringWert zurückgegeben wird, weil sonst bei der Übernahme
des zurückgegebenen Wertes immer ein Laufzeitfehler auftritt.
Allerdings gelingt es mir einfach nicht den Wert 2 (für String)
beim Aufruf in die InputBox einzubauen.
Die Hilfe von Microsoft hilft mir hier einfach nicht weiter.

Dim ZK as String
ZK=InputBox(Beschreibung,Titel,x,y,HilfeFile,HelpContext,2)

Da ich keine HilfeDatei habe und somit auch keine Idend-Nr.
angeben kann, gelingt es mir auch nicht die Nr. für den Daten-
Typ einzugeben.
Gibts eine Möglichkeit den DatenTyp auch ohne Hilfedatei und
den dazugehörenden Context einzugeben?
Kann mir jemand ein Beispiel geben?
Dake für jede Hilfe
Gruß, Werner

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Problem mit InputBox
30.08.2002 10:57:05
L.Vira
Verwende statt Inputbox- Funktion die Inputbox- Methode
(Application.Inputbox), da kannst du einen Datentyp festlegen(siehe Hilfe).
Re: Problem mit InputBox
30.08.2002 18:58:27
Werner Hassold
Danke für deinen Tipp,
leider komme ich aber mit der Input-Methode nicht zurecht.
Kannst du mir ein Beispiel geben?
Gruß, Werner

Beispiele...
31.08.2002 14:00:41
L.Vira
''Weitere Angaben zu möglichen Datentypen findest du in der Hilfe
Option Explicit
Sub Inputbox1()
Dim Eingabe As Range
On Error GoTo ENDE 'keine Auswahl
Set Eingabe = Application.Inputbox(Prompt:="Markieren Sie eine Zelle oder einen Zellbereich.", Type:=8)
MsgBox Eingabe.Address & " wurde ausgewählt!"
Exit Sub
ENDE:
MsgBox "Nix ausgewählt!"
End Sub
Sub Inputbox2()
Dim Eingabe As Variant
Eingabe = Application.Inputbox(Prompt:="Geben Sie einen Ort ein.", Type:=2, Default:="London")
''Abbrechen liefert False, keine Eingabe liefert ""
''Deshalb muss die Variable "Eingabe" auch Variant sein
If Eingabe = False Then
MsgBox "Eingabe wurde abgebrochen!"
ElseIf Eingabe = "" Then
MsgBox "Nix eingegeben!"
Else
MsgBox Eingabe & " wurde eingegeben!"
End If
End Sub
Anzeige
Re: Danke für Beispiele...
31.08.2002 14:34:14
Werner Hassold
Danke für dein Beispiel.
Gruß Werner

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige