Office: (Office 2010) Aktion beim Verlassen einer Zelle

03seli · 3. Oktober 2012

Wie kann ich beim verlassen einer Bestimmten Zelle, z.B. A5 eine bestimmte Aktion ausführen.

Die Aktion wirf jedoch nur ausgeführt wenn die Zelle A5 verlassen wird, Für alle anderen Zellen gilt das nicht.

Vielen Dank für Eure Hilfe

:)

vbanewcomer · 5. Oktober 2012

Code:

Dim bln As Boolean

Private Sub Worksheet_SelectionChange _
(ByVal Target As Excel.Range)
Dim rng As Range
Set rng = Range("A5")
If Target.Address = rng.Address Then bln = True
If bln = True And Target.Address rng.Address Then
Call MyMacro
bln = False
End If
End Sub

Sub MyMacro()
MsgBox "Sie waren soeben in Zelle A5"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code von herber.de

03seli · 5. Oktober 2012

Super danke *wink.gif*

Noch eine Frage. Kann ich die Zellen auch erweitern?
Z.b.:
Wenn A5 verlassen wird dann mache Anweisung1
Wenn A9 verlassen wird dann mache Anweisung2
usw...

*tongue.gif*

Hajo_Zi · 5. Oktober 2012

mit verschidenen Ergebnissen, mußt Du mirt Select Case arbeiten oder mehrere IF.

Hajo_Zi · 5. Oktober 2012

ich würde auch Change benutzen, da ja die Forderung war bei verlassen.
Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address(False, False)
Case "A1", "A7"
Anweisung1
Case "A81", "A77"
Anweisung2
End Select
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Erich G. · 6. Oktober 2012

Hi,
bei mehreren beobachteten Zellen kann man das z. B. so machen: Code:

Option Explicit

Dim rngA As Range, blnA As Boolean

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim rngW As Range

Set rngW = Range("A5,A9") ' Wirkungsbereich festlegen

If blnA Then ' War was im letzten Aufruf?
If Target.Address rngA.Address Then MyMacro rngA, rngW
End If
' merken für nächsten Aufruf
If Intersect(Target, rngW) Is Nothing Then
blnA = False
Else
blnA = True: Set rngA = Target
End If
End Sub

Sub MyMacro(rngBer As Range, rngW As Range)
If Not Intersect(rngBer, Range("A5")) Is Nothing Then
MsgBox "Aktion 1 nach Zelle " & rngBer.Address(0, 0)
End If
If Not Intersect(rngBer, Range("A9")) Is Nothing Then
MsgBox "Aktion 2 nach Zelle " & rngBer.Address(0, 0)
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dabei werden beide Aktionen ausgeführt, wenn die vorige Markierung beide Zellen (A5 und A9) enthält.
(Mehrere Zellen oder auch Zellbereiche können gleichzeitig markiert sein.)

03seli · 6. Oktober 2012

Vielen Dank an Euch alle.
Es hat micr sehr geholfen *Smilie

Office: (Office 2010) Aktion beim Verlassen einer Zelle

Aktion beim Verlassen einer Zelle

Aktion beim Verlassen einer Zelle

Aktion beim Verlassen einer Zelle

Aktion beim Verlassen einer Zelle - Similar Threads - Aktion Verlassen Zelle

Genervt von dieser Aktion wieder einmal

Video: Rückgängigmachen und Wiederholen von Aktionen

Anpassen der Symbolleiste für die schnell Aktion in Word für Mac

Rückgängigmachen, wiederherstellen oder Wiederholen einer Aktion

Ändern der auszuführenden Aktion beim Erhalten einer Lesebestätigungsanforderung

Die Aktion von F2 und Enter als Makro ohne Sendkeys

Fehlermeldung: Befehl oder die Aktion Einfügen ist zurzeit nicht verfügbar

Office: (Office 2010) Aktion beim Verlassen einer Zelle

Aktion beim Verlassen einer Zelle

Aktion beim Verlassen einer Zelle

Aktion beim Verlassen einer Zelle

Aktion beim Verlassen einer Zelle - Similar Threads - Aktion Verlassen Zelle

Genervt von dieser Aktion wieder einmal

Video: Rückgängigmachen und Wiederholen von Aktionen

Anpassen der Symbolleiste für die schnell Aktion in Word für Mac

Rückgängigmachen, wiederherstellen oder Wiederholen einer Aktion

Ändern der auszuführenden Aktion beim Erhalten einer Lesebestätigungsanforderung

Die Aktion von F2 und Enter als Makro ohne Sendkeys

Fehlermeldung: Befehl oder die Aktion Einfügen ist zurzeit nicht verfügbar

Fehlermeldung: Befehl oder die Aktion Einfügen ist zurzeit nicht verfügbar