Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
220to224
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
220to224
220to224
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

" X " in Zelle durch Mausklick

" X " in Zelle durch Mausklick
22.02.2003 13:35:15
udo
Hallo ihr Lieben,

weis mir bitte jemand einen Rat . ich bräuchte ein VBA das fogendes ausführt.

Der zu behandelnde Bereich wäre Spalte 2 ( B ) , Zeilen 19-500

in diesem Bereich würde ich gerne ein spezielles Makro ausführen. Es sollte möglich sein mit der Maus , und somit mit der linken Taste, eine dieser Zellen dieser Splate anzuklicken , sodass sich selbst ohne Benutzung von Tastatur ( auch nicht Gültigkeit oder ähnliches wie kopieren von wo anders .... ) dort dann durch den Klick sich selbstständig Beispielsweise ein " X " einträgt. Klickt mann nochmals auf die Zelle mit dem vorhandenen " X " , soll sich dass " X " wieder löschen. Aber bitte nur für den Bereich.

Wüsstet ihr mir bitte einen Rat, wäre euch sehr sehr dankbar,
sollte aber schon ein VBA sein ,
herzlichen Dank im Voraus für eure Vorschläge,

Gruß udo



5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: " X " in Zelle durch Mausklick
22.02.2003 13:49:35
Ramses

Hallo Udo,

NUR durch Mausklick geht nicht, denn wenn das Selection_Change Ereignis ( 1-Mausklick) funktioniert nur, wenn eine andere Zelle ausgewählt wurde.
Hier eine Variante mit Doppelklick oder 1-Klick mit der rechten Maustaste.

Den Code in die Tabelle kopieren, wo er funktionieren soll.


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 2 Then Exit Sub
If Target.Row >= 19 And Target.Row <= 500 Then
    If Target.Value = UCase("x") Then
        Target.Value = ""
    Else
        Target.Value = "X"
    End If
End If
Cancel = True
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 2 Then Exit Sub
If Target.Row >= 19 And Target.Row <= 500 Then
    If Target.Value = UCase("x") Then
        Target.Value = ""
    Else
        Target.Value = "X"
    End If
End If
Cancel = True
End Sub 

     Code eingefügt mit Syntaxhighlighter 1.16

Dann kannst du auswählen was für dich besser ist.
Den anderen Code dann einfach aus der Tabelle löschen.

Gruss Rainer

Anzeige
Re: " X " in Zelle durch Mausklick
22.02.2003 13:49:37
Ramses

Hallo Udo,

NUR durch Mausklick geht nicht, denn wenn das Selection_Change Ereignis ( 1-Mausklick) funktioniert nur, wenn eine andere Zelle ausgewählt wurde.
Hier eine Variante mit Doppelklick oder 1-Klick mit der rechten Maustaste.

Den Code in die Tabelle kopieren, wo er funktionieren soll.


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 2 Then Exit Sub
If Target.Row >= 19 And Target.Row <= 500 Then
    If Target.Value = UCase("x") Then
        Target.Value = ""
    Else
        Target.Value = "X"
    End If
End If
Cancel = True
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 2 Then Exit Sub
If Target.Row >= 19 And Target.Row <= 500 Then
    If Target.Value = UCase("x") Then
        Target.Value = ""
    Else
        Target.Value = "X"
    End If
End If
Cancel = True
End Sub 

     Code eingefügt mit Syntaxhighlighter 1.16

Dann kannst du auswählen was für dich besser ist.
Den anderen Code dann einfach aus der Tabelle löschen.

Gruss Rainer

Anzeige
Re: " X " in Zelle durch Mausklick
22.02.2003 14:04:18
udo @ Ramses 1

Mensch Ramses, super

herzlichen Dank, dass hätte ich nie hinbekommen, vielen vielen Dank dafür , werde es gleich mal testen, melde mich dann nochmals , Danke

udo

perfekt , vielen lieben Dank
22.02.2003 14:10:16
udo @ Ramses 2

Wow , das funktioniert mal richtig gut.

Beide Möglichkeiten sind echt genial, vielen Lieben Dank, Gruß
einstweilen, werde mich wenns fertig ist bei dir revanchieren,
kannst bestimmt auch brauchen die Datei.
Meld mich dann die nächsten Tage. Danke derweil

udo

Gern geschehen o.T.
22.02.2003 14:24:52
Ramses

...

254 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige