Privates VorWorksheet_Change (ByVal Ziel als Strecke)
Schwaches targ als Strecke
Targ = Strecken-() einstellen 'Uhr „ A1“ diese Zelle (oder Zellen)
Targ einstellen = schneidet (targ, Ziel)
Wenn targ nichts dann ist, Unterseeboot herausnehmen
Fall LCase vorwählen (targ. Zellen (1))
Fall „Apfel“
frmApple.Show
Fall „Banane“
frmBanana.Show
Fall „Orange“
frmOrange.Show
Ende auserwählt
Enden-Unterseeboot
|