Mit folgendem Code übernehme ich aus einer ListBox aus der markierten Zeile aus Spalte 4 einen Eintrag (Code) und übertrage diesen in die aktuelle Zelle im Blatt "BES Kosten".
Private Sub UserForm_Initialize()
Application.Wait Now + TimeValue("0:00:01")
With usrEingabeReisezüge
.Height = Application.Height
.Width = Application.Width
End With
lstDebicode.RowSource = "Debicode!A2:D303"
lstDebicodee.ListIndex = -1
End Sub
Private Sub cmdAbbrechen_Click()
ActiveCell.Offset(columnOffset:=1).Activate
Unload Me
End Sub
Private Sub UserForm_Activate()
usrEingabe.lstDebicode.ColumnHeads = True
End Sub
Private Sub cmdWrite_Click()
Dim iRow As Integer, iCol As Integer, iCounter As Integer
Dim Debicode As Integer
'--- Auswahl treffen
For iRow = 0 To lstDebicodee.ListCount - 1
If lstDebicode.Selected(iRow) Then
Debicode = lstDebicode.List(iRow, 3)
Worksheets("BES-Kosten").Activate
Cells(ActiveCell.Row, ActiveCell.Column).Value = Debicode
ActiveCell.Offset(columnOffset:=1).Activate
GoTo Marke
End If
Next iRow
Marke:
Unload usrEingabe
End Sub
Statt einem Code (markierte Zeile) möchte ich in dieselbe Zelle 1 bis 8 Codes übertragen. Wie kann dieser Code für diese Funktion erweitert/abgeändert werden?
Vielen Dank
Gregor