Makro
14.03.2005 18:04:59
Doreen
habe folgendes Makro:
Private Sub Worksheet_Change(ByVal Target As Range)
Set isect = Application.Intersect(Target, [R1:R2000])
If Not isect Is Nothing Then
On Error GoTo ende
Select Case Target.Value
Case Is = "0"
Range(Cells(Target.Row, 1), Cells(Target.Row, 35)).Interior.ColorIndex = 24
Case Is = 90
Range(Cells(Target.Row, 1), Cells(Target.Row, 35)).Interior.ColorIndex = 36
Case Is = 100, 99
Range(Cells(Target.Row, 1), Cells(Target.Row, 35)).Interior.ColorIndex = 35
Case Else
Range(Cells(Target.Row, 1), Cells(Target.Row, 35)).Interior.ColorIndex = 0 'oder xlnone
End Select
End If
'bei Wert 100 = Hintergrundfarbe grün
'bei Wert 90 = Hintergrundfarbe gelb
'bei Wert 0 = Hintergrundfarbe grau
'bei allen anderen = ohne Hintergrundfarbe
ende:
Application.EnableEvents = False
Cells(Target.Row, 37) = Environ("USERNAME")
'37 = Spalte "AK" bei diesem Makro wird der letzte Änderer gekennzeichnet
Application.EnableEvents = True
End Sub
Option Explicit
Public Changeflag As Boolean
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim DB As Object
On Error GoTo Ende
Application.EnableEvents = False
If Changeflag Then Exit Sub
Changeflag = True
If Target.Row = ActiveSheet.Range("such").Row + 1 Then
Set DB = ActiveSheet.Range("Datenbereich").CurrentRegion
DB.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("such").CurrentRegion, Unique:=False
Target.Select
ActiveWindow.ScrollRow = DB.Row
End If
Ende:
Changeflag = False
Application.EnableEvents = True
End Sub
Nun schreibt er mit Typenunverträglich, da ich zweimal
Private Sub Worksheet_Change habe
Ausßerdem kommt er mit dem Befehl Set isect nicht mehr klar
Kann mir jemand helfen?
lg
Doreen