SelectionChange ausweiten
07.05.2005 08:10:42
Erich
habe folgenden Code für die Zelle B1 der passt:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(1, 2).FormulaLocal <> "=C1&D1" Then
Cells(1, 2).FormulaLocal = "=C1&D1"
End If
End Sub
Wie kann ich diesen auf die Tellen B2 bis B100 ausweiten?
Besten Dank für eine Hilfe!
mfg
Erich
EXCEL-Shareware und Freeware: http://www.toolex.de
EXCEL und Lottogewinne machen glücklich: http://48678.rapidforum.com