Makro bei Klick
09.11.2004 11:12:13
Michal
Ist das irgendwie möglich?
Das Makro sieht so aus, und macht eigentlich mit Hilfe von Windings Radio-Buttons:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Text = "¢" Or ActiveCell.Text = "¤" Then
If ActiveCell.Value = "¤" Then
ActiveCell.Value = "¢"
Else
zeile = ActiveCell.Row
Range("D" & zeile & ":H" & zeile).Value = "¢"
ActiveCell.Value = "¤"
End If
End If