Erstmal Danke.
habe mal versucht, es auf meine situation anzupassen.
1. Leider klappt der Test nicht, "Compile error: Wrong numvbrt of arguments or invalid property assignment" .....Und dann markiert er "Call Analyze_Min_Good(rngcell)" gelb......warum? Woanders geht das auch, liegt das am rngcell oder daran, dass es ein anderes Modul ist?
2. ich verstehe " ' falls wir links von Spalte B landen, gibt es keinen Inhalt in der Zeile1" nicht. Wieso sollte das passieren?
Sub Analyze ()
' Bestimme Bereich: B8:%8
' - % ist dabei die Unbekannte, welche per Range.End(xlToLeft) bestimmt wird
Set rngHeaderHelpers = wks.Range("B8", wks.Cells(1, wks.Columns.Count).End(xlToLeft))
' falls wir links von Spalte B landen, gibt es keinen Inhalt in der Zeile1
If rngHeaderHelpers.Column < 2 _
Then Exit Sub
For Each rngcell In rngHeaderHelpers.Cells
'MIN'
If InStr(rngcell.Value, "MIN") > 0 Then
Call Analyze_Min_Good(rngcell)
Call Analyze_Max_Bad(rngcell)
End If
'MAX'
If InStr(rngcell.Value, "MAX") > 0 Then
Call Analyze_Min_Bad(rngcell)
Call Analyze_Max_Good(rngcell)
End If
Next
End Sub
|