dank netter Hilfe hier heute habe ich es hinbekommen eine Listenbox aufzustellen. Jetzt schaffe ich es nur nicht aus einer Spalte mehrere Kollegen gleichzeitig auszuwählen und meine Wahl in der 2. Spalte auszugeben!
Was habe ich falsch gemacht?
Hier der Code:
Sub Listenfeld420_BeiÄnderung()
Auswahl = Range("DD2").Value
Anzahl = [A65536].End(xlUp).Row
For i = 2 To Anzahl
Wert = Cells(i, 9).Value
Select Case Wert
Case Is = ""
Cells(i, 9).Value = Auswahl
GoTo ende
End Select
Next i
ende:
End Sub
Sub Listenfeld421_BeiÄnderung()
Auswahl = Range("DE2").Value
Anzahl = [B65536].End(xlUp).Row
For i = 2 To Anzahl
Wert = Cells(i, 10).Value
Select Case Wert
Case Is = ""
Cells(i, 10).Value = Auswahl
GoTo ende
End Select
Next i
ende:
Range("DC1").Value = ""
End Sub
Sub Schaltfläche25_BeiKlick()
'löschen
Range("DD3:DE201").Select
Selection.ClearContents
Range("DD3").Select
End Sub
Vielen lieben Dank schon einmal
Viele Grüße
Sevim