Bei Klick auf Command Button ( Active X ) gleichzeitig 2 Werte in 2 Zellen

Question

Guten Abend

Eine Frage . ist es möglich mittels einem Klick auf einen Button gleichzeitig den Namen des Buttons und den dahinter versteckten Wert in 2 angrenzende zellen zu schreiben

!!!!!!!!!!!!!!!!!!!!!!!

MfG

Answer 1

Hallo,

meinst du das so:

Private Sub CommandButton1_Click()
  Range("A1").Value = CommandButton1.Caption
  Range("B1").Value = 2
End Sub

Gruß
M.O.

Answer 2

Hi,

weshalb ein neuer Thread? Hier: http://supportnet.de/forum/2515026/command-button-beschriftung-als-wert-in-aktive-zelle hast du doch bereits eine Antwort erhalten (auf die du keine Rückmeldung gegeben hast). Da ist es doch ein einfaches, den Code entsprechend zu ergänzen bzw. abzuändern...

Bis später, Karin

Answer 3

Hallo M.O.

Das ist genau was ich gesucht habe

Makro funktioniert 1a

Danke

MfG

Answer 4

Hi M.O

Ich vergass zu schreiben

aber was ist wenn mit dem gleichen Button in

Zelle A2 und B2 usw. geschrieben werden soll

MfG

Answer 5

Hallo,

kannst du das mal genauer erklären? Meinst du etwa, dass bei jeden Drücken des Buttons Daten in die nächste freie Spalte geschrieben werden sollen?

Gruß

M.O.

Answer 6

Hi,

ich nehme an, wu willst jedesmal in die nächste freie Zeile schreiben?

Private Sub CommandButton1_Click()
    Dim lngLetzte As Long
    lngLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
    Cells(lngLetzte + 1, 1) = CommandButton1.Caption
    Cells(lngLetzte + 1, 2) = 2
End Sub

Bis später, Karin

PS: danke für die Rückmeldung im anderen Thread

Answer 7

Guten Abend

Bitte den Thread nicht schliessen

Ich muss die Codes von Euch erst mal testen .

Da ich von Makros , VBA und komplexen Formeln keine Ahnung habe.

Ich schätze auch die Arbeit von Euch , keine Frage

jetzt muss ich mir erstmal Überlegen wie ich mein Vorhaben verständlich rüber bringe

Ansonsten müsste ich einen neuen Thread eröffnen

MfG

Answer 8

Hallo

Die Mkros ansich funktionieren., aber es ist leider nicht das was ich suche

ich habe auch versucht sie anzupassen , leider mit keinem Erfolg .

Ich versuche mein Problem noch einmal zu erklären

der Button hat den Namen T20 , was einem Wert von 60 entspricht.

Jetzt soll bei Druck auf den Button der Name ( T20 ) in die aktive Zelle B5 und der Wert 60 in Zelle C5 geschrieben werden

danach ist Zelle D5 aktiv und bei Druck auf einen anderen Butten sollte der Name in D5 und der Wert in E5

stehen. Ich hoffe ich habe es verstendlich erklärt

Das ist doch bestimmt machbar

MfG

Answer 9

Hallo,

wenn du mehrere Buttons hast, dann musst du für jeden Button den Code entsprechend anpassen.

Beispiel für Button T20:

Private Sub T20_Click()
Range("B5") = T20.Caption
Range("C5") = 60
Range("D5").Select
End Sub

Gruß

M.O.

Answer 10

Hi,

Private Sub T20_Click()
    ActiveCell = T20.Name
    ActiveCell.Offset(0, 1) = 60
End Sub

Bis später, Karin