Wenn Zelle > dann Makro
22.01.2005 12:12:37
walter
habe 2 Makros:
Sub A1_Rahmen_versetzen()
Worksheets("Kulanzblatt-VK").Select
Range("A1").Select
Worksheets("Kulanzblatt-VK").Unprotect ("ww")
ActiveSheet.Shapes("Text Box 127").Select
Selection.ShapeRange.IncrementLeft 821.25
Selection.ShapeRange.IncrementTop 10.5
Range("AB38").Select
Range("G20").Select
End Sub
Sub A1_Rahmen_zurück()
Worksheets("Kulanzblatt-VK").Select
Range("A1").Select
Worksheets("Kulanzblatt-VK").Unprotect ("ww")
ActiveSheet.Shapes("Text Box 127").Select
Selection.ShapeRange.IncrementLeft -821.25
Selection.ShapeRange.IncrementTop -10.5
Range("G20").Select
'' .Protect DrawingObjects:=True, Contents:=True, Scenarios _
'' :=True, Password:="ww"
End Sub
Nun soll, wenn in der Zelle G40 vom Worksheets("Kulanzblatt-VK") etwas steht
das Makro:
Sub A1_Rahmen_versetzen()ausgeführt werden.
Wenn in der Zelle "" drin steht, dann Makro:
Sub A1_Rahmen_zurück() ausgeführt werden.
Wie geht das ?
Gruß Walter