Zelle beim Anklicken verändern

Forumthread: 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

AW: Zelle beim Anklicken verändern

07.10.2005 08:34:56

{Boris}
Kleiner Nachtrag

07.10.2005 08:37:27

{Boris}
AW: Kleiner Nachtrag

07.10.2005 10:01:31

Thomas
Mit Bereichsbeschränkung

07.10.2005 12:31:33

{Boris}
'Nur bezogen auf Spalte A

07.10.2005 13:23:00

{Boris}
AW: Kleiner Nachtrag

07.10.2005 12:40:01

Harald
...und zu langsam war ich auch noch ;-))

07.10.2005 12:41:54

Harakld
AW: ...und zu langsam war ich auch noch ;-))

07.10.2005 15:05:54

Thomas

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

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

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)

Forumthread: Zelle beim Anklicken verändern

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread