Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:07:03
Alternative Summewenn für Verlinkung closed Workbook
23.04.2024 13:44:37
Datum in Excelformel anzeigen
23.04.2024 13:31:41
alle Tabellblätter als csv exportieren - Verzeichnis wählen
23.04.2024 13:19:18
Daten aus externer Datei als Bereich übernehmen... ?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
448to452
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
448to452
448to452
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige