VBA: Über Input einen Wert mit der Maus in eine Variable schreiben

[Käpt'n Blaubär]

Hallo Hagen,

da Du offensichtlich nicht von selbst darauf kommst, zeige uns doch mal,
was Du Dir schon zusammengeschraubt hast. Dann wäre eine zielgenauere
Hilfe möglich.
So wie es jetzt ist, gibt jeder Helfer seine Meinung zu einem dubiosen und
undefinierten Gedöhns ab. Manches scheint in die richtige Richtung zu laufen,
anderes vielleicht nicht, ... aber ... nichts Genaues weiß man eben doch nicht.

Da macht dann auf Dauer auch das Helfen nicht so wirklich Spaß.

[Hagen Tripkau]

Mit eurer Hilfe habe ich eine Lösung gefunden und bedanke mich nochmals sehr herzlich.
schöne Grüsse aus SH.

[Wastl]

Mit eurer Hilfe habe ich eine Lösung gefunden und bedanke mich nochmals sehr herzlich.

Möchtest du bitte deine gefundene Lösung uns und der Nachwelt zur Verfügung stellen?

[Hagen Tripkau]

Aber gerne. Bitte nur um Nachsicht, wenn ich mich nicht richtig ausdrücke.

Die Lösung kam von
Geschrieben von silcono - 05.04.2018, 12:55 Also die eine Möglichkeit wäre, die Zelle vor dem Aufruf der Inputbox auszuwählen. Erst dann die Inputbox aufrufen, als Bsp. hier der Code:

Code:

Code:

Sub test()
   
   Dim Name As String

   Name = InputBox(test, , Selection.Value) 'Selection.Value ist in diesem Fall deine ausgewählte Zelle und wird als Default-Wert in der Inputbox eingetragen.

Also habe ich die Definition, Festlegung einer Variablen nicht mehr aus dem (Input-) Makro versucht, sondern VORHER per Kombinationsfeld den Wert bestimmt.

Es ist wahrscheinlich ein Irrweg, von einer InpuBox aus, mit der Maus eine Zelle anzuklicken, um den darin enthaltenen Wert zu übernehmen. In einer InputBox kann wohl nur ein Wert per Tastatur eingegeben werden.
(Hoffentlich ist mir die Darstellung nicht zu verschwurbelt gelungen.)
aber gerne mehr.
Herzlichen Gruss

[Kuwer]

Hallo Hagen,

Es ist wahrscheinlich ein Irrweg, von einer InpuBox aus, mit der Maus eine Zelle anzuklicken, um den darin enthaltenen Wert zu übernehmen. In einer InputBox kann wohl nur ein Wert per Tastatur eingegeben werden.

keineswegs: Teste folgendes Makro:

Sub aaa()

  Dim dieVariable As Variant

  dieVariable = Application.InputBox(prompt:="Gib mir Zelle mit der Maus!", Type:=8)

  MsgBox dieVariable

End Sub

Gruß Uwe

[Hagen Tripkau]

Oh, das ist geil!
Das funktioniert genauso wie ich mir das gewünscht habe!
Jetzt habe ich gelernt, wie man aus einer aktuellen Zelle den Wert übernimmt
(name = InputBox(test, , Selection.Value) 'Selection.Value ist in diesem Fall deine ausgewählte Zelle und wird als Default-Wert in der Inputbox eingetragen.)
UND weiss auch, wie man das per Maus macht!

Bedanke mich sehr bei Uwe!

herzlichen Gruss von Hagen Tripkau