VBA - Text/Zahl in markierte Zelle einfügen

Hallo,

ich habe folgendes Problem:
Es soll jedes mal beim Betätigen eines Buttons z.B. „7,75“ in die markierte Zelle einfügen.

Also ich habe die Zelle B5 markiert, klicke auf den Button und hier steht dann „7,75“.
Dann markier ich Zelle C89, klicke auf den Button und auch hier steht dann „7,75“.

Und so weiter…

Vielen Dank im Voraus!

Gruß clint

Es soll jedes mal beim Betätigen eines Buttons z.B. „7,75“ in
die markierte Zelle einfügen.

Also ich habe die Zelle B5 markiert, klicke auf den Button und
hier steht dann „7,75“.
Dann markier ich Zelle C89, klicke auf den Button und auch
hier steht dann „7,75“.

Hallo Clint,

sub einfueg()
activecell.value=7.75
end sub

Ggfs. das makro mit einem Tastenkürzel versehen.

Gruß
Reinhard

Vielen Dank für die schnelle Antwort!

Hab mir schon gedacht, dass es für einen Experten nicht das große Problem werden sollte :wink:

Gruß

Achso ein Frage noch:
was muss ich zusätzlich eingeben, damit der Wert „7,75“ horizontal als auch vertikal zentriert ist?

Danke!

und fett :wink:

1 Like

und fett :wink:

Hallo Cint,

probiers mal so:

Sub einfueg()
With ActiveCell
 .Value = 7.75
 .Font.Bold = True
 .HorizontalAlignment = xlCenter
 .VerticalAlignment = xlCenter
End With
End Sub

Gruß
Reinhard

Super, vielen Dank!

1 Like