Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
320to324
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
320to324
320to324
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Fehler bei Mehrfachauswahl mit Strg

Fehler bei Mehrfachauswahl mit Strg
13.10.2003 17:14:00
MD
Hallo Forum! Folgender Code in einem sonst leeren Blatt:


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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehler bei Mehrfachauswahl mit Strg
13.10.2003 17:20:28
Hajo_Zi
Hallo ????

ist Dir schon mal aufgefallen das die meisten hier min. einen Vornamen schreiben.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
Dim RaCb As Range
If Target.Count > 1 Then
For Each RaCb In Selection
MsgBox RaCb.Address
Next
End If
End Sub


Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Anzeige
AW: Fehler bei Mehrfachauswahl mit Strg
13.10.2003 17:21:19
ChrisL
Hi MD


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Zelle As Range
If Selection.Count > 1 Then
For Each Zelle In Selection
MsgBox Zelle.Address
Next Zelle
End If
End Sub


Gruss
Chris
AW: Fehler bei Mehrfachauswahl mit Strg
13.10.2003 17:31:43
MD
Vielen Dank euch beiden, das löst mein Problem!
Grüße von
MD

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige