Application.Inputbox

Forumthread: Application.Inputbox

12.07.2006 09:53:05

Mühlberger

Hallo, liebe Spezialisten !
In einer Prozedur hat der Benutzer die Möglichkeit, eine Zelle zu markieren, die dann weiter verarbeitet wird:
Set rngMarkierteZelle = Application.InputBox(prompt:="Bitte eine Zelle, die zur Veranstaltung gehört, anklicken. Weiter mit OK .", Title:="Auswahl der Veranstaltung", Type:=8)
In Excel 2000 funktioniert die Sache auf allen PCs, auf denen die Prozedur aufgerufen wird. In 2003 funktioniert sie nur mehr auf meinem PC, auf 2 anderen wird nicht der Bezug (Typ=8), sondern der Zellinhalt zurückgegeben, was zu einem Fehler führt.
Wer weiß Rat?
Danke für Eure Hilfe.
Liebe Grüße
Gerhard Mühlberger

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Application.Inputbox

12.07.2006 20:16:41

Harry
AW: Application.Inputbox

13.07.2006 12:21:26

Gerhard
AW: Application.Inputbox

14.07.2006 21:54:44

Harry
AW: Application.Inputbox

15.07.2006 21:43:35

Holger

AW: Application.Inputbox

12.07.2006 20:16:41

Harry

Hi Gerhard,
nur mal kurz geraten - vielleicht so:
Expression.InputBox(Prompt, Title, Default, Left, Top, HelpFile, HelpContextID, Type)
als Bsp.:
Set rngMarkierteZelle = Application.InputBox(prompt:="Bitte eine Zelle, die zur Veranstaltung gehört, anklicken. Weiter mit OK .", Title:="Auswahl der Veranstaltung", , , , , , Type:=8)
Gruss
Harry

AW: Application.Inputbox

13.07.2006 12:21:26

Gerhard

Leider nein, Harry. Die benannten Argumente machen die Kommas überflüssig. Außerdem erklärt es nicht, warum ein und dieselbe Prozedur auf einem PC das richtige Ergebnis = Zelladresse ergibt und auf anderen das falsche = Zellinhalt.
Danke trotzdem.
Gruss Gerhard

AW: Application.Inputbox

14.07.2006 21:54:44

Harry

Hi Gerhard,
bin wieder online, hat ein bißchen gedauert - sorry!
Ich hab Deinen Code mal ausprobiert: Funzt problemlos.
Kannst mal folgenden Code auf dem einen/anderen Rechner
ausprobieren in der Hoffnung, daß sich durch evtl. auftretende
Fehlermeldungen die Fehlerursache etwas eingrenzen läßt:
Option Explicit
Dim rngMarkierteZelle As Object


Sub Zelle_wählen() 'Bereich_wählen()
Set rngMarkierteZelle = Application.InputBox(prompt:="Bitte eine Zelle, die zur Veranstaltung gehört, anklicken. Weiter mit OK .", Title:="Auswahl der Veranstaltung", Type:=8)
With rngMarkierteZelle
MsgBox .Address
'MsgBox .Value '(<> Selected Range)
MsgBox .Row
MsgBox .Column
End With
rngMarkierteZelle.Select
Set rngMarkierteZelle = Nothing
End Sub

In der VBE-Hilfe fand ich unter dem Stichwort "InputBox" u.a. folgenden
Text:
"Wenn Sie keine Set-Anweisung verwenden, wird die Variable auf den Wert in dem Bereich gesetzt statt auf das Range-Objekt selbst."
...was für mich so viel bedeutet, wie:
Die Anwendung verhält sich so, als hätte nie eine Set-Anweisung stattgefunden (klingt
für mich schon etwas obskur... ).
Habe leider keine Erklärung für dieses Phenomän :-(
Lasse daher die Frage noch offen.
Gruß
Harry

AW: Application.Inputbox

15.07.2006 21:43:35

Holger

Hi,
komisch, das ist nicht nachvollziehbar, in keiner Excelversion.
mgh Holger

Beliebteste Forumthreads (12 Monate)

Forumthread: Application.Inputbox

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

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread