Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
676to680
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
676to680
676to680
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelle beim Anklicken verändern

Zelle beim Anklicken verändern
07.10.2005 07:44:59
Thomas
Morjen
Ich suche eine Funktion, bei der folgendes passiert:
1) Klick in eine Zelle ändert den Inhalt der Zelle mit einem festen String
2) Nochmaliger Klick in diese Zelle ändert den Inhalt dann wieder mit einem anderen String
Das ganze soll sozusagen ein rotierender Inhalt sein, so oft ich ebend auf diese Zelle klicke.
Beispiel:
1) Zelle ist leer
2) Klick -&gt Zelle wird mit "U" beschrieben
3) Klick -&gt Zelle wird mit "F" beschrieben
4) Klick -&gt Zelle ist wieder leer
und dann würde es wieder von vorn los gehen.
Schon mal vielen Dank.
Thomas

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle beim Anklicken verändern
07.10.2005 08:34:56
{Boris}
Hi Thomas,
das Beispiel ist bezogen auf Spalte A und reagiert auf den Rechtsklick.
Einfügen in das Klassenmodul der entsprechenden Tabelle:
Option Explicit

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
With Target
If .Column = 1 Then 'Nur bezogen auf Spalte A
Select Case .Value
Case "": .Value = "U"
Case "U": .Value = "V"
Case "V": .Value = ""
End Select
Cancel = True
End If
End With
End Sub

Grüße Boris
Kleiner Nachtrag
07.10.2005 08:37:27
{Boris}
Hi Thomas,
damit es bei einer Mehrfachselektion nicht zu ner Fehlermeldung kommt, ersetze die Zeile
If .Column = 1 Then 'Nur bezogen auf Spalte A
durch
If .Column = 1 And .Count = 1 Then 'Nur bezogen auf Spalte A
Grüße Boris
Anzeige
AW: Kleiner Nachtrag
07.10.2005 10:01:31
Thomas
Hallo Boris
Super, genau das was ich gesucht habe. Was muß ich ändern, damit des auf einen bestimmten Bereich (z.B. B7-H25) funktioniert.
Gruß Thomas
Mit Bereichsbeschränkung
07.10.2005 12:31:33
{Boris}
Hi Thomas,
Option Explicit

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
With Target
If Not Intersect([b7:h25], Target) Is Nothing And .Count = 1 Then  'Nur bezogen auf Spalte A
Select Case .Value
Case "": .Value = "U"
Case "U": .Value = "V"
Case "V": .Value = ""
End Select
Cancel = True
End If
End With
End Sub

Grüße Boris
'Nur bezogen auf Spalte A
07.10.2005 13:23:00
{Boris}
Hi,
den Kommentar hab ich natürlich vergessen zu löschen.
Grüße Boris
Anzeige
AW: Kleiner Nachtrag
07.10.2005 12:40:01
Harald
Hallo Thomas, (net hauen, Boris ;-)))

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim RaBereich As Range
Set RaBereich = Range("B7:H25")
If Not Intersect(Target, RaBereich) Is Nothing Then
With Target
Select Case .Value
Case "": .Value = "U"
Case "U": .Value = "V"
Case "V": .Value = ""
End Select
Cancel = True
End With
End If
End Sub

Gruß
Harald
...und zu langsam war ich auch noch ;-))
07.10.2005 12:41:54
Harakld
Thomas,
nimm den Code von Boris...besser is das
Grüsse
AW: ...und zu langsam war ich auch noch ;-))
07.10.2005 15:05:54
Thomas
Ich Danke euch.
Gruß Thomas

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige