SelectionChange & InputBox

03/03/2009 - 02:46 von Peter-Michael Eiberger | Report spam
Hallo zusammen,

ich habe folgendes Problem.

In Tabelle1 stehen in den Zellen A1:A10 jeweils die Werte 1 bis 10. Wenn ich
eine Zelle anklicke (Worksheet_SelectionChange) z.B. A4 (Wert: 4) wird ein
Makro ausgelöst, welches die InputBox öffnet. In das Eingabefeld muss ich
nun jedesmal den Wert der "angeklickten" Zelle eingeben. In diesem Fall "4".
Geht das auch automatisch, dass der Wert der "angeklickten" Zelle im
Eingabefeld der InputBox erscheint?

Vielen Dank für die Hilfe.

Gruß
Peter
 

Lesen sie die antworten

#1 Hajo_Zi
03/03/2009 - 08:28 | Warnen spam
Hallo Michael,

VarPrints = Application.InputBox("Anzahl der Ausdrucke", "Drucken",
Target, Type:=1)
Type 1 làst nur Zahlen zu

Gruß Hajo
MVP für Microsoft Excel
Betriebssystem Vista Ultimate SP1 und Excel Version2007 SP1
http://Hajo-Excel.de/



"Peter-Michael Eiberger" wrote:

Hallo zusammen,

ich habe folgendes Problem.

In Tabelle1 stehen in den Zellen A1:A10 jeweils die Werte 1 bis 10. Wenn ich
eine Zelle anklicke (Worksheet_SelectionChange) z.B. A4 (Wert: 4) wird ein
Makro ausgelöst, welches die InputBox öffnet. In das Eingabefeld muss ich
nun jedesmal den Wert der "angeklickten" Zelle eingeben. In diesem Fall "4".
Geht das auch automatisch, dass der Wert der "angeklickten" Zelle im
Eingabefeld der InputBox erscheint?

Vielen Dank für die Hilfe.

Gruß
Peter


Ähnliche fragen