Hallo Zusammen
hier der Code
Dim Ok1, Ok2 As Integer
Dim I, X As Integer
Dim reihe As Integer
Dim str As String
Dim lastrow As Long
lastrow = Range("C65000").End(xlUp).Row
For I = 1 To lastrow
If Cells(lastrow, 3).Value = Cells(I, 3).Value Then
Ok1 = MsgBox("Material wurde bereits verwendet!", vbOKOnly, "Information")
If Ok1 = 1 Then
Cells(I, 3).Select
Ok2 = MsgBox("Material bereits in Zeile: " & Cells(I, 3).Row & vbNewLine & "Soll Zeile notiert werden?", vbYesNo, "Information")
If Ok2 = 6 Then
reihe = Cells(I, 3).Row
Cells(lastrow, 10).Value = reihe
Else
End If
Else
End If
Else
End If
Next I
Nun zur eigentlichen Frage:
ich möchte dass in der Zelle (Cells(lastrow,10)) alle werte nacheinander mit Komma getrennt angezeigt werden die aus der Schleife ermittelt wurden.
Ist dies möglich ?
Grüße