Re: von was kommt das ?
19.02.2003 15:52:15
Thomas
Hallo Thomasda mein Problem bei jedem Makro auftaucht, bin ich davon ausgegangen, daß es sich um ein bekanntes (Anfänger-)Problem handelt.
Anscheinend ist doch ein Implementierungsproblem.
Hier der Code:
Funktion:
Addiert Werte von Zellen, die die gleiche Hintergrundfarbe haben.
Function FarbenAddieren(rng As Range) As Double
Dim rngAct As Range
Dim dAdd As Double
For Each rngAct In rng.Cells
If rngAct.Interior.ColorIndex = _
Application.Caller.Interior.ColorIndex Then
dAdd = dAdd + rngAct.Value
End If
Next rngAct
FarbenAddieren = dAdd
End Function
Makro:
Soll von Tabellen (1-4) die Zellen mit gleicher Hintergrundfarbe in eine 5 Tabelle kopieren. Funktioniert aber nicht, aber die Funktion wird immer ausgeführt.
Option Explicit
Sub farben()
' Erstellt von Hajo Ziplies am 28.12.02
' Zellen kopieren von Tabelle1 nach Tabelle2 mit Schriftfarbe 3 bis 6
Dim RaZelle As Range
Dim CellColorIndex As Integer
With Worksheets("Zusammenfassung")
For Each RaZelle In Worksheets(1).Range("c6:ct6")
If RaZelle.Interior.ColorIndex = 6 Then
' Worksheets("Zusammenfassung").Range
RaZelle.Copy Destination:=.Range(RaZelle.Address)
End If
Next RaZelle
End With
End Sub