ich bin gerade dabei mir ein Excel Datenblatt einzurichten und benötige die Möglichkeit, das Excel einen haufen Zeilen durchgeht in Spalte A.
Sobald die Zeile die Excel kontrolliert überhalb einen dicken Rahmen hat und ein bestimmtes Wort enthält, sollen zwei Werte geändert werden.
Das mit dem dicken Rahmen ist kein Problem und funktioniert.
Ich bekomme es aber nicht hin, meinen String mit dem Zelleninhalt zu vergleichen.
siehe unten fett markiert.
In dem Sub steht ein
Private Sub ToggleButton6_Click()
Dim Materialart As String
Dim Ende As Integer
Dim Start As Integer
Materialart = "Mechanical"
If ToggleButton6.Value = True Then
Call ausblenden(Materialart, Ende, Start)
.....
ruft dann meine Funktion auf:
Function ausblenden(Materialart, Ende, Start)
Dim runner As Integer
Dim Checker As Byte
Dim LetzteZeile As Integer
LetzteZeile = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row
Checker = 0
runner = 15
Start = 0
Do While LetzteZeile > runner
<b>If Range("A" & runner) = Materialart</b> And Range("A" & runner).Borders(xlEdgeTop).Weight = xlMedium Then
If Start = 0 Then
Start = Range("A" & runner)
End If
Checker = 1
ElseIf Range("A" & runner).Borders(xlEdgeTop).Weight <> xlMedium Then
......
Vielen Dank schonmal für die Hilfe