Fehler bei Mehrfachauswahl mit Strg
13.10.2003 17:14:00
MD
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
dim i as integer
If Selection.Count > 1 Then
For i = 1 To Selection.Count
MsgBox Selection.Cells(i).Address
Next i
End If
End Sub
Wenn ich eine Zelle markiere, Strg drücke und dann eine nicht angrenzende Zelle markiere erhalte ich jedesmal für die zweite Zelle die falsche Adresse ( nämlich immer eine Zelle unter der ersten, egal welche Zelle ich als zweites markiert habe).
Wenn mit der gedrückten Maustaste markiert wird ist das Ergebnis richtig.
Wie bekomme ich die richtigen Adressen??
Danke fürs Antworten
MD
Anzeige