Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
448to452
448to452
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel für aktive Zelle

Forumthread: Formel für aktive Zelle

Formel für aktive Zelle
07.07.2004 21:27:35
Reservist
Guten Abend,
Gibt es eine Formel, dass wenn ich mit Courser eine
Zelle anklicke bereits eine Funktion ausgelöst wird,
wie diese, die natürlich nicht funktioniert?
B1: WENN(AKTIV(A1);"Text1";WENN(AKTIV(A2);"Text2";""))
Für Hilfe vielen Dank,
Gruß Thorsten
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: nix mit Formel - aber VBA ;-)
FP
Hallo Thorsten,
Code in Ereignisbereich des Blattes kopieren:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
With Target(1)
If .Address(0, 0) = "B1" Then
.Value = "na endlich hast Du mich aktiviert :-)"
Else
Cells(1, 2) = "Du befindest Dich in Zelle " & .Address(0, 0)
End If
End With
End Sub

Servus aus dem Salzkammergut
Franz
Anzeige
AW: Formel für aktive Zelle
07.07.2004 21:37:40
Matthias
Hallo Thorsten,
das geht nur mit VBA.
Wobei Excel die Ereignisse Zelle anklicken oder mit den Pfeiltasten hinbewegen nicht unterscheiden kann. Anders ist es mit Rechts- oder Doppelklick.
Rechtsklick auf Tabellenblattname im Arbeitsmappenregister, "Code anzeigen" klicken, folgenden Code ins erscheinende (leere) Fenster kopieren:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
[B2] = "Text1"
ElseIf Target.Address = "$A$2" Then
[B2] = "Text2"
End If
End Sub

Gruß Matthias
Anzeige
Vielen Dank Euch Beiden - o.T.
Reservist
o.T.
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige