Klassenmodul
03.12.2013 15:39:16
Tom
folgendes Makro rufe ich ca. 10 mal je Tabellenblatt auf. Das Ganze wiederholt sich dann auf 3+x Tabellenblättern.
Funktioniert soweit auch.
Nun wollte ich ein Klassenmodul daraus machen, das ich entsprechend oft abarbeite um die zukünftige Tippelarbeit zu reduzieren und eventuelle Anpassungen zu vereinfachen.
Leider klappt das noch gar nicht wie ich mir das so vorgestellt hatte :(
Gruß Tom
Sub Farbe1()
Dim rngzellbereich As Range
Dim rngzelle As Range
Dim intfarbe As Integer
Dim strsprache As String
intfarbe = Sheets("Info").Range("C5").Font.ColorIndex 'Quellfarbe auslesen
strsprache = Sheets("Info").Range("C5") 'Sprache die es zu vergleichen gibt
For Each rngzelle In Sheets("Test1").Range("AA1:AA5000").Cells
If rngzelle.Value = strsprache Then
Set rngzellbereich = rngzelle
Set rngzellbereich = Union(rngzellbereich, rngzelle)
rngzellbereich.EntireRow.Font.ColorIndex = intfarbe
Else
End If
Next
End Sub