Hallo du,
prüfst du auf die Zahl der "Kellerfenster"?
Wenn, dann ....
(wobei die Einschränkung Spalte A belegt und K zu L-O)
ohne "Rechtschreibprüfung" und selbstplaudernd ohne "Option Explicit"
(= auch bei 100 000 Zeilen kein Sekunde langsamer)
Sub Fülltest()
'offenbar ist "Insert"-Spalte A auch befüllt, da lr hier angewendet wurde
'sonst klappt das so nicht
'ob die Spalten L – O die selbe Anzahl Spezifikationen enthalten, wie K
'ergo gleiche Anzahl #
With Sheets("Insert").UsedRange
Set rngK = .Columns(11).Offset(1).Resize(.Rows.Count - 1)
arrK = rngK
arrLO = rngK.Offset(, 1).Resize(, 4)
For x = 1 To UBound(arrK, 1)
cnt = Len(arrK(x, 1)) - Len(Replace(arrK(x, 1), "#", ""))
arrK(x, 1) = "z " & Format(x + 1, "0") & " "
For y = 1 To UBound(arrLO, 2)
If Len(arrLO(x, y)) - Len(Replace(arrLO(x, y), "#", "")) <> cnt Then
arrK(x, 1) = arrK(x, 1) & "," & Format(11 + y, "0")
Flag = True
End If
Next y
Next x
End With
'soll in Check in Spalte B die Zeilennummer
With Sheets("Check").Columns(2)
.ClearContents
y = 0
For x = 1 To UBound(arrK, 1)
If InStr(arrK(x, 1), ",") Then
y = y + 1
.Cells(y) = arrK(x, 1)
End If
Next x
End With
'und eine Fehlermeldung angezeigt werden.
If Flag Then
'machste selbst
End If
End Sub
|