" X " in Zelle durch Mausklick

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

Re: " X " in Zelle durch Mausklick

22.02.2003 13:49:35

Ramses
Re: " X " in Zelle durch Mausklick

22.02.2003 13:49:37

Ramses
Re: " X " in Zelle durch Mausklick

22.02.2003 14:04:18

udo @ Ramses 1
perfekt , vielen lieben Dank

22.02.2003 14:10:16

udo @ Ramses 2
Gern geschehen o.T.

22.02.2003 14:24:52

Ramses

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

Hallo Udo,

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

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um ein "X" in eine Excel-Zelle durch einen Mausklick einzufügen oder zu entfernen, kannst du ein VBA-Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

Öffne deine Excel-Datei und gehe zu dem Arbeitsblatt, wo du das Makro anwenden möchtest.
Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
Doppelklicke auf das Arbeitsblatt, in dem du das Makro verwenden möchtest (zum Beispiel "Tabelle1").

Füge folgenden VBA-Code in das Codefenster ein:

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

Schließe den VBA-Editor und gehe zurück zu Excel.
Jetzt kannst du mit einem Doppelklick oder einem Rechtsklick in den Zellen der Spalte B (Zeilen 19-500) ein "X" einfügen oder entfernen.

Häufige Fehler und Lösungen

Fehler: Das Makro funktioniert nicht.
- Lösung: Stelle sicher, dass du den Code im richtigen Arbeitsblatt eingefügt hast. Das Makro funktioniert nur für das Arbeitsblatt, in dem es eingefügt wurde.
Fehler: Das "X" wird nicht korrekt eingefügt.
- Lösung: Überprüfe, ob die Zelle bereits ein "X" enthält oder leer ist. Der Code prüft dies, bevor er das "X" einfügt oder entfernt.

Alternative Methoden

Falls du keine VBA-Lösungen verwenden möchtest, kannst du auch die Datenüberprüfung in Excel nutzen:

Wähle den Zellbereich B19:B500 aus.
Gehe zu Daten > Datenüberprüfung.
Wähle "Liste" aus und gib "X" als möglichen Wert ein.
Damit kannst du in jeder Zelle durch einen Klick ein "X" auswählen.

Praktische Beispiele

Angenommen, du hast eine Liste von Aufgaben in Spalte B. Du möchtest den Fortschritt markieren, indem du ein "X" einfügst. Mit dem obigen VBA-Code kannst du einfach auf die Zelle klicken, um das "X" hinzuzufügen oder zu entfernen, was die Verwaltung deiner Aufgaben erheblich erleichtert.

Tipps für Profis

Verwendung von Tastenkombinationen: Wenn du häufig mit Makros arbeitest, kannst du auch Tastenkombinationen zuweisen, um den Prozess noch schneller zu gestalten.
Code anpassen: Du kannst den Code anpassen, um andere Zeichen oder Werte einzufügen, indem du einfach "X" durch den gewünschten Wert ersetzt.

FAQ: Häufige Fragen

1. Kann ich das Makro auch für andere Spalten verwenden? Ja, du kannst die Target.Column-Bedingung im VBA-Code ändern, um das Makro für andere Spalten zu aktivieren.

2. Ist das Makro in allen Excel-Versionen verfügbar? Ja, solange du eine Version von Excel verwendest, die VBA unterstützt, kannst du dieses Makro verwenden.

Beliebteste Forumthreads (12 Monate)