Ich möchte ein Makro schreiben mit dem ich
Hintergrundfarben austauschen kann.
Über eine Dialogbox soll erst eine Zelle mit dem zu ersetzenden Hintergund ausgewählt werden
und dann eine Zelle mit dem Hintergrund für die Ersetzung.
Ich weis aber nicht wie man Zellen über einen Dialog auswählen kann.
InputBox, msgbox und
ActiveCell.Interior.Color
kenne ich.
Danke !
Sebasitan 
Gefunden
Sub replace\_Interior\_Color()
Dim rng1 As Range, rng2 As Range
Set rng1 = Application.InputBox \_
(prompt:="Eine der Zellen wählen deren Hintergrund ersetzt werden soll:", Type:=8)
Set rng2 = Application.InputBox \_
(prompt:="Eine Zelle wählen die bereits die richtige Hintergrundfarbe besitzt:", Type:=8)
von\_bis = "A1:K41"
c1 = rng1.Interior.Color
c2 = rng2.Interior.Color
For Each c In Range(von\_bis)
On Error Resume Next
icolor = c.Interior.Color
If (icolor = c1) Then
c.Interior.Color = c2
End If
Next c
End Sub