CommandButton

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: CommandButton
von: Jochen Bode
Geschrieben am: 05.05.2015 12:42:11

Hallo Excel-Freunde,
besteht die Möglichkeit den Code unten so um zu ändern das der Eintrag in eine aktive Zelle in Spalte “C“ übernommen wird..

Private Sub CommandButton1_Click()
Dim erste_freie_Zeile As Integer
erste_freie_Zeile = Sheets("Kalender").Range("A65536").End(xlUp).Offset(1, 0).Row
Sheets("Kalender").Cells(2, 25) = ComboBox1.Text
Unload Me
End Sub
Danke im Voraus.
Gruß Jochen

Bild

Betrifft: AW: CommandButton
von: Hajo_Zi
Geschrieben am: 05.05.2015 12:44:00
Hallo Jochen,
Sheets("Kalender").Cells(ActiveCell.Row, 3) = ComboBox1.Text


Bild

Betrifft: AW: CommandButton
von: Jochen Bode
Geschrieben am: 05.05.2015 12:51:48
Danke Hajo,
klappt sehr gut
noch einen schönen Tag.
Gruß

 Bild

Beiträge aus den Excel-Beispielen zum Thema "CommandButton"