AW: Zelle blinken
06.10.2008 10:32:00
andreas
Hallo Tino
habe alles eingegeben, aber ich bekomme immer eine Fehlermeldung
Mehrdeutiger Name Worksheet Change.
ich hab mal den ganzen Code hier eingefügt - eventuell verträgt dieser sich nicht mit deinem.
Wenn du so gut wärest und nochmal einen Blick draufwerfen könntest wäre ich dir dankbar
Andreas
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [O48].Value = "X" Then
Sheets("Rep-Karte").Shapes("WordArt 94").Visible = True
Else
Sheets("Rep-Karte").Shapes("WordArt 94").Visible = False
End If
If [O48].Value = "X" Then
Sheets("Kostenv").Shapes("WordArt 236").Visible = True
Else
Sheets("Kostenv").Shapes("WordArt 236").Visible = False
End If
'Einfügen Kopie
If [AM25].Value = "ja" Then
Sheets("Kostenv").Shapes("WordArt 341").Visible = True
Else
Sheets("Kostenv").Shapes("WordArt 341").Visible = False
End If
End Sub
'
'Immer Grossbuchstaben in Zelle O48 + AA48
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address(0, 0) = "O48" Or Target.Address(0, 0) = "AA48" Then
Target.Value = UCase(Target.Value)
End If
End Sub
'If Target.Address(0, 0) = "B54" Or Target.Address(0, 0) = "B55" Then
'----------------------------------------------------------------------------------------
' zelle blinken
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim A As Byte, MerkFarbe As Integer
If Intersect(Target, Range("AJ1")) Is Nothing Then Exit Sub
MerkFarbe = Range("AJ3").Interior.ColorIndex
For A = 1 To 8
If Range("AJ3").Interior.ColorIndex 3 Then
Range("AJ3").Interior.ColorIndex = 3
Else
Range("AJ3").Interior.ColorIndex = 0
End If
DoEvents
Sleep (200) 'Blinkintervall in Millisekunden
Next A
Range("AJ3").Interior.ColorIndex = MerkFarbe
End Sub