in nächste freie Zelle und Nebenspalte
17.02.2016 11:28:35
Lisa
ich habe eine Frage mit der ich mich schon eine Weile beschäftige aber keine Lösung finde.
Ich möchte aus meiner Userform die Daten der ComboBox1 in immer die nächste freie Zelle der Spalte E übergeben.
Das funktioniert, so wie im Code zusehen, sehr gut.
Nun möchte ich immer neben diesem Eintrag in der Tabelle, also Spalte F, auch die Caption des Label2 übernehmen.
Immer Orientiert an der Spalte E und der nächsten freien Zelle.
Hat jemand eine Idee wie ich dies umsetzen kann?
Private Sub CommandButton1_Click()
With Sheets(1)
.Unprotect
.Range("E65536").End(xlUp).Offset(1, 0) = Me.ComboBox1
hier sollte die Bezeichnung des Label2 direkt neben dem Combobox1 Inhalt
'in der Tabelle stehen. =Label2.caption
.Protect
End With
Unload Me
End Sub
Anzeige