Anbei ALLE Makros
04.02.2005 10:09:57
walter
Hallo ... (leider hattest Du deinen Namen vergessen),
hier die Makros:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("U39")) Is Nothing Then
If Range("U39") = "" Then
A1_Rahmen_versetzen
Else
A1_Rahmen_zurück
End If
End If
End Sub
Sub A1_Rahmen_versetzen()
'--------- jetzt weiß ---------------------------
Worksheets("Kulanzblatt-VK").Select
Range("A10").Select
Worksheets("Kulanzblatt-VK").Unprotect ("wwpa")
ActiveSheet.Shapes("Text Box 127").Select
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.SchemeColor = 9
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Range("I40").Select
End Sub
Sub A1_Rahmen_zurück()
Worksheets("Kulanzblatt-VK").Select
Range("A10").Select
Worksheets("Kulanzblatt-VK").Unprotect ("wwpa")
ActiveSheet.Shapes("Text Box 127").Select
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.SchemeColor = 8
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Range("I40").Select
End Sub
'-------- Rahmen für Tageszulassung setzen ------------------------------------
Private Sub Worksheetw_Change(ByVal Target As Range)
If Not Intersect(Target, Range("M17")) Is Nothing Then
If Range("M17") = "" Then
A1_Rahmen_Tageszulassung_versetzen
Else
A1_Rahmen_Tageszulassung_zurück
End If
End If
End Sub
Sub A1_Rahmen_Tageszulassung_versetzen()
'--------- jetzt schwarz --------------------------
Worksheets("Kulanzblatt-VK").Select
Range("M17").Select
Worksheets("Kulanzblatt-VK").Unprotect ("wwpa")
ActiveSheet.Shapes("Text Box 131").Select
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.SchemeColor = 8
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Range("M17").Select
Range("M17").Select
End Sub
Sub A1_Rahmen_Tageszulassung_zurück()
'--------- jetzt weiß ---------------------------
Worksheets("Kulanzblatt-VK").Select
Range("M17").Select
Worksheets("Kulanzblatt-VK").Unprotect ("wwpa")
Sub A2_Rahmen_weiß()
ActiveSheet.Shapes("Text Box 131").Select
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.SchemeColor = 9
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Range("M17").Select
End Sub
Gruß Walter