nachfolgend ein Code der in einer Spalte wenn die Anzahl größer 1 ist in der Zelle die Zelle _
markiert und die Zeilenzahl in einer Meldung auflistet.
Sub Pos_Nr()
Dim lr As Long, i As Long, Msg As String
Dim Text1 As String
Dim Text2 As String
Dim Text3 As String
Text1 = "In den nachfolgend aufgeführten Zeilen (Zelle wurde rotmarkiert) ist die Anzahl der _
Bauteile größer '1'."
Text2 = "Für die Berechnung der Bauteiloberflächen wird mit der Komponentenanzahl '1' gerechnet. _
_
_
_
Text3 = "ACHTUNG: "
Text4 = "Es können dadurch Kanal -und Formteile nicht berücksichtigt werden! Bitte wenden Sie _
_
_
_
sich an den Ersteller dieser Datei!"
lr = Cells(Rows.Count, "A").End(xlUp).Row
Cells(13, 5).Resize(lr - 12, 1).Interior.Color = xlNone
Msg = ""
For i = 13 To lr
With Cells(i, 2)
If .Value = "1" Then
Else
Msg = Msg & i & " / "
.Interior.Color = 255
End If
End With
Next i
If Msg "" Then MsgBox Text1 & vbLf & vbLf & Msg & vbLf & vbLf & Text2 & vbLf & vbLf & _
Text3 & vbLf & Text4, vbCritical
If Msg = "" Then UserForm3.Show
End Sub
Wie schreibt man den Code aber so um, dass jede Zelle markiert wird in der Wort Neu steht. Jede Varianate so dabei markiert werden als. neu, Neu, nEU,etc.
Das Wort Neu kann dabei in einem Buchstaben oder Ziffernblock enthalten sein.
Kann mir da jemand einen Tipp geben?