CommandButton
05.05.2015 12:42:11
Jochen
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
Gruß Jochen
Anzeige