msgBox Zeile um Zeile
13.09.2021 12:02:01
Rudi
Ich habe einen Code (unten stehend) der mir in einer msgBox Zelladressen Zeile um Zeile anzeigt, die
einen bestimmten Wert haben. Nun würde es mir dienen, wenn diese Zelladressen
ebenfalls auch in eine Tabelle geschrieben würden und zwar auch je in eine Zelle, Zeile um Zeile.
Ich schaffe es nur alle Adressen in eine Zelle zu schreiben.
Gäbe es da eine Lösung?
Besten Dank für eure Mühe
Gruss
Rudi
Dim RaZelle As Range
Dim LastRow As Long
Dim strOut As String
LastRow = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row 'Spalte 3
For Each RaZelle In Range("C1:C" & LastRow)
If RaZelle = "---" Then
strOut = strOut & ", " & vbCrLf & RaZelle.Address(0, 0)
End If
Next RaZelle
If Len(strOut) Then MsgBox "keine Strecke vorhanden in Zelle/n :" & vbCrLf & Mid(strOut, 3) & vbCrLf & vbCrLf & "ENDE"
'ThisWorkbook.Worksheets("Tabelle1").Cells(1, 2).Value = strOut