moin
eine Möglichkeit
Sub Mach_et()
Dim strErg As String
Dim i As Long, lngLetzte As Long
Dim lngArtikelnummer As Long
lngArtikelnummer = 123
lngLetzte = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To 7
If Cells(i, 1).Value = lngArtikelnummer Then
' nur Text
strErg = strErg & Cells(i, 2).Value
' Text mit - zwischen dem Text
' strErg = strErg & Cells(i, 2).Value & "-"
End If
Next
MsgBox strErg
End Sub
grüßli
|