VBA: Mit jedem Klick auf Button eine Zahl hinzufügen

[7soory]

Hallo,

ich habe Buttons von 0-9 in Excel erstellt und möchte jetzt durch klicken auf die Buttons eine Zahl eingeben, die dann in einer Zelle nach und nach erscheint. Wie bei der Eingabe in einen Taschenrechner. Ich habe es bisher nur soweit hinbekommen, dass wenn ich auf einen Button klicke die vorherige Zahl wieder verschwindet und durch die neue ersetzt wird.

Es ist nur eine Aufgabe, die ich mir selbst überlegt habe um VBA zu lernen.

Gruß

[Ego]

Hallo Z...,

anstatt
Range("A1") =  9

nimm
Range("A1") = Range("A1") & 9


ps. Wenn die Zelle als Zahl formatiert ist, geht es nur bis zur 16. Stelle.

[Kuwer]

Hallo,

z.B.:

Sub Ziffer_1_Anfuegen()
  With Range("B2")
    .Value = .Value & 1
  End With
End Sub

Gruß Uwe

[7soory]

Danke!

[RPP63]

Es ist nur eine Aufgabe, die ich mir selbst überlegt habe um VBA zu lernen.

Moin!
Dann solltest Du wissen, dass die Verkettung eine Textzahl ergibt und bei Überschreitung der Rechengenauigkeit von Excel (siehe Ego) falsche Ergebnisse bewirkt!
Merke:
In VBA sollten alle Variablen einem bestimmten Datentyp zugewiesen werden.
Bei Zahlen also Double, Long oder auch Currency …
Den Text wandelst Du mittels CDbl(), CLng() oder CCur() in die Zahl um.

By the way:
Ich habe mal einen sehr guten Rechner mittels VBA programmiert und verrate hier den gesamten Code:

Code:

Sub Rechner()
Shell "calc"
End Sub

Gruß Ralf

[schauan]

Hallöchen,

in der Regel passt bestimmt auch

.Value = .Value * 10 + 1 'bzw. die Zahl vom Button