Zeilen durchsuchen, String ergänzen
Mike
mit diesem kleinen Programm möchte ich einen Bereich durchschen, nach Begriffen die ich noch nicht erfasst habe.
Sub sonstiges()
Dim I As Integer, K As Integer
Dim strNa As String
For I = 0 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
For K = 12 To 22
If Cells(I, K) "AB" And Cells(I, K) "EF" And Cells(I, K) "HH" _
And Cells(I, K) "FG" And Cells(I, K) "NR" And Cells(I, K) "KT" _
And Cells(I, K) "CJ" And Cells(I, K) "" Then
strNa = strNa & ", " & Cells(I, K)
End If
Next K
Next I
MsgBox strNa
End Sub
Leider werden jedesmal bereits gefundene Daten erneut angehängt, was die Messagebox extrem unübersichtlich macht. Gibt es eine Möglichkeit einmal gefundene Daten nicht erneut anzuhängen? Sodass ich alle unbekannten Kürzel nur 1x sehe?
Gruß
Anzeige