Hallo ich brauche mal wieder Hilfe:
Ich will die letzte leere Zeile in Spalte 5(E) ausfinden.
Dann soll die Combobox den ausgewählten Wert (von Combobox) in Spalte 2(B) schreiben.
Soweit funktioniert der Code( obwohl ich denke das der erste Teil der Spalte 1 prüft rauskönnte(das schaffe ich aber nicht)(Hatte bestehenden Code einfach soweit verändert bis es passt- aber die Prüfung der Spalte 1 ist immer noch drin)
So was ich jetzt noch möchte, das er beim weiterspringen (Also wenn ich Spalte 5 mit neuen Wert auffülle) soll der Vorgabewert der Combobox gleich der sein von der alten Zeile.
Also ich will das immer der gleiche Wert von der Combobox übernommen wird, ausser ich ändere es explezit in der Combobox wieder.
Danke für die Hilfe.
Günther
Private Sub ComboBox1_Change()
Dim lngErste As Long
lngErste = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 5).End(xlUp).Row, Rows.Count) + 1 'prüft letzte beschriebne Zeile in Spalte 5'
Cells(lngErste, 2) = ComboBox1 'Schreibt in 2(Zahl Spalte das Ergebis der Combo Box'
End Sub
|