Hallo nochmal,
hab da was gefunden was auch funktioniert wenn bedingte Formatierung aktiv ist.
hier das Original:
Sub Suchen()
With Worksheets(1).Range("A5:L25")
Set c = .Find(2, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Interior.Pattern = xlPatternLightUp
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub
hier der veränderter Code:
Sub Suchen_Hallo()
Sheets("BSF").Range("A5:K7").Copy Sheets("BSF_2").Range("A5")
Sheets("BSF").Range("A14:G16").Copy Sheets("BSF_2").Range("A14")
Sheets("BSF").Range("A23:L25").Copy Sheets("BSF_2").Range("A23")
With Worksheets(1).Range("A5:L25")
Set c = .Find("Hallo", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Interior.Pattern = xlPatternLightUp
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
Application.Wait Now + TimeSerial(0, 0, 5)
Sheets("BSF_2").Range("A5:K7").Copy Sheets("BSF").Range("A5")
Sheets("BSF_2").Range("A14:G16").Copy Sheets("BSF").Range("A14")
Sheets("BSF_2").Range("A23:L25").Copy Sheets("BSF").Range("A23")
End Sub
Es wird alles aus den angegebenen Bereichen kopiert und in ein ausgeblendetes Blatt eingefügt, anschließend das Markiermakro ausgeführt 5sec. gewartet und die Daten aus dem ausgeblendeten Blatt kopiert und in die Originale eingefügt. Soweit funktioniert es auch nur bekomm ich es nicht auf die Reihe das er mir die Felder zb. gelb macht. Bekomme es nur mit Mustern hin welche es auch als Beispiele im Netz gibt.
Ich hab es zb. ,mit
Interior.ColorIndex = 37
probiert nur passiert dann garnix. Bei
Interior.Pattern = xlPatternGray75
sieht man sofort eine Änderung.
Jemand eine Ahnung warum und wie das geht.
Gruß
energun222