Hey leute, habe 2 Makros die unabhängig von einander gut und tadelos funktionieren, aber wenn ich beide zusammen in eine Datei verwenden möchte, dann geht nur eines der beiden.
Hier sind die 2. Quellcodes:
1. Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim GueltigkeitsZellen As Range
Set GueltigkeitsZellen = Range("C2")
If Not Intersect(Target, GueltigkeitsZellen) Is Nothing Then
If Target.Count = 1 Then
Select Case Target.Text
Case "1. Auswahl", "50", "75", "100"
Worksheets(Target.Text).Range("B4:X28").Copy
Range("F4:AB28").PasteSpecial Paste:=xlPasteAll
Application.EnableEvents = False
Target.Select
Application.EnableEvents = True
End Select
Application.CutCopyMode = False
End If
End If
End Sub
2. Code:
Function AnzahlFarbigeZellen(Bereich) As Long
Dim rngc As Range
Application.Volatile
For Each rngc In Intersect(Bereich.Parent.UsedRange, Bereich)
If rngc.Interior.ColorIndex <> xlColorIndexNone Then _
AnzahlFarbigeZellen = AnzahlFarbigeZellen + 1
Next
End Function
Mit dem 1. Code kann man über ein Dropdownfeld ein Tabellenblatt auswählen und daraus werden dann bestimmte farbige Zellen herauskopiert und eingefügt.
Beim 2. Code sollen die farbigen Zellen einer Spalte zusammengezählt werden.
Wie gesagt beides allein in einer Datei haut hin, aber wenn ich beide zusammen in eine Datei stecke, dann geht nur der 2. Code und der 1. nicht mehr.
Habt ihr eine Ahnung warum oder könnt mir helfen bzw wisst eine andere Lösung?
Viele Grüße Xenos
|