Microsoft Excel

Herbers Excel/VBA-Archiv

X bei einmaligem Klick | Herbers Excel-Forum


Betrifft: X bei einmaligem Klick von: Ralf
Geschrieben am: 27.01.2012 09:21:13

Hallo liebe Excel-Experten,

ich möchte gerne durch einen einmaligen Klick in
einer Zelle ( z.B.: A 5 ) ein X
generieren, die ich später auch zählen möchte.
Habe leider noch keine gute Idee gehabt, trotz
vielen Suchens :-)
Bin für jeden Tipp dankbar !!!

Viele Grüße aus dem Teutoburger Wald
Ralf

  

Betrifft: AW: X bei einmaligem Klick von: Heribert
Geschrieben am: 27.01.2012 09:36:02

Hallo Ralf,
dazu würde mir folgendes einfallen, mittels VBA
Wenn Zelle leer dann x , wenn x dann leer
Bereich anpassen

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim click As String
If Target.Count > 1 Then Exit Sub
If Not Intersect(Range("A1:Z100"), Target) Is Nothing Then 'Bereich A1:Z100 anpassen

    Cancel = True
    click = Target.Value
    Select Case click
        Case ""
            Target = "x"
        Case "x"
            Target = ""
                       
    End Select
End If

End Sub



  

Betrifft: Vielen Dank Heribert :-) von: Ralf
Geschrieben am: 27.01.2012 09:58:01

Hallo Heribert,

vielen DANK !!! Genau das habe ich
gesucht. Ich habe es sofort ausprobiert und
angepaßt ( daher kommt meine Antwort auch
etwas verspätet :-) ---- und ich muß sagen:
ganz toll !!!
Viele Grüße aus dem Teutoburger Wald
Ralf


  

Betrifft: AW: Vielen Dank Heribert :-) von: Heribert
Geschrieben am: 27.01.2012 10:01:44

Gern geschehen,
danke für die Rückmeldung
Heribert