Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
852to856
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
852to856
852to856
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereich markieren verhindern

Bereich markieren verhindern
16.03.2007 05:17:00
Bernd
Guten Morgen,
ich möchte folgendes erreichen :
wird mehr als eine Zelle markiert soll sofort A1 ausgewählt werden.
Für einzelne Zellen in Zeilen (analog auch Spalten) habe ich das schon hinbekommen
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If .Row > 1 And .Row ...
Wie ich auswerten kann ob "irgendein Bereich" in der Tabelle markiert wurde, bekomme ich nicht hin.
Wäre klasse, wenn mir dabei jemand helfen würde.
Danke, Bernd

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereich markieren verhindern
16.03.2007 05:34:48
Mustafa
Hallo Bernd,
robier mal folgenden Code:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim Rng As Range
Dim X As Long
For Each Rng In Selection
X = X + 1
Next
If X > 1 Then Range("A1").Select
End Sub
Geht bestimmt auch eleganter aber funktioniert.
Rückmeldung obs Hilft wäre nett.
Viele Grüße aus Köln.
AW: Bereich markieren verhindern
16.03.2007 07:38:00
Heiko
Hallo Bernd,
z.B. so:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Range("A1").Activate
End Sub
Gruß Heiko
PS: Rückmeldung wäre nett !
Anzeige
Perfekt - Dank an beide (o.T.)
16.03.2007 17:00:05
Bernd
Danke für die Rückmeldung (o.T.)
17.03.2007 06:24:35
Mustafa

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige