Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
16.10.2025 17:40:39
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Bei Mausklick, Zelle mit z.B. " X " füllen

Bei Mausklick, Zelle mit z.B. " X " füllen
24.06.2005 15:54:42
gunter
Hallo Zusammen,
ich habe mit Excel ein Formular erstellt. In dem Formular sind auch jede Menge Zellen, die wenn, nur mit einem " X " gefüllt werden.
Ist es möglich eine Zelle so zu formatieren, dass wenn ich mit der Maus auf die Zelle klicke, diese mit einem X gefüllt wird.
Danke für Eure Hilfe
Gruß Gunter
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bei Mausklick, Zelle mit z.B. " X " füllen
24.06.2005 16:25:10
Marc
Hallo Gunter,
mit Doppelklick ist es möglich.
Dieser Code in das Klassenmodul der Arbeitsmappe...

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
ActiveCell.Value = "X"
End Sub

Gruß Marc
Anzeige
AW: Bei Mausklick, Zelle mit z.B. " X " füllen
24.06.2005 16:45:30
Peter
Hallo Gunter,
versuch mal das:
- mit der rechten Maustaste-

Private Sub Worksheet_BeforeRightClick _
(ByVal Target As Range, Cancel As Boolean)
'Bsp. gilt für den Bereich ("D13:M22")
Cancel = 1
If Target.Row >= 13 And Target.Row <= 22 And _
Target.Column >= 4 And Target.Column <= 13 And _
Target.Value = "" Then
Target.Value = "x"
Else: Target.Value = ""
End If
End Sub

Anzeige
AW: Bei Mausklick, Zelle mit z.B. " X " füllen
24.06.2005 17:33:11
Hajo_Zi
Hallo Gunter,
schaue mal auf meine Homepage da ist ein Beispiel auf der Seite VBA.
Beispieldatei
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Home und Excel Version XP 2003 SP1.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.



"Wer Rechtschreibfehler findet, darf sie behalten!"
Anzeige
Danke Ihr 3. Ihr habt mir sehr geholfen.
27.06.2005 10:29:46
gunter
Danke Ihr 3. Ihr habt mir sehr geholfen.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Zelle mit "X" bei Mausklick füllen in Excel


Schritt-für-Schritt-Anleitung

Um eine Zelle in Excel mit einem "X" auszufüllen, wenn du darauf klickst, kannst du VBA (Visual Basic for Applications) verwenden. Hier ist eine einfache Anleitung:

  1. Öffne Excel und lade die Arbeitsmappe, in der du die Funktion hinzufügen möchtest.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Im Projektfenster auf der linken Seite suchst du deine Arbeitsmappe. Klicke mit der rechten Maustaste darauf und wähle „Einfügen“ > „Modul“.

  4. Füge den folgenden Code in das Modul ein:

    Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
       ActiveCell.Value = "X"
    End Sub
  5. Schließe den VBA-Editor und kehre zu Excel zurück.

  6. Jetzt kannst du mit einem Doppelklick auf eine Zelle diese mit einem "X" ausfüllen.


Häufige Fehler und Lösungen

  • Fehler: Der Code funktioniert nicht.

    • Lösung: Stelle sicher, dass du den Code im richtigen Modul eingefügt hast. Er sollte im Klassenmodul der Arbeitsmappe sein, nicht in einem normalen Modul.
  • Fehler: Excel zeigt eine Fehlermeldung an.

    • Lösung: Überprüfe, ob du die Makros in Excel aktiviert hast. Gehe zu „Datei“ > „Optionen“ > „Sicherheitscenter“ > „Einstellungen für das Sicherheitscenter“ und aktiviere die Makros.

Alternative Methoden

Eine andere Möglichkeit, eine Zelle mit "X" auszufüllen, besteht darin, einen Rechtsklick zu verwenden. Hier ist der Code, den du dafür benötigst:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    ' Beispiel gilt für den Bereich ("D13:M22")
    Cancel = True
    If Target.Row >= 13 And Target.Row <= 22 And _
       Target.Column >= 4 And Target.Column <= 13 And _
       Target.Value = "" Then
        Target.Value = "X"
    Else
        Target.Value = ""
    End If
End Sub

Füge diesen Code ebenfalls in das entsprechende Modul ein, um eine Zelle mit einem Rechtsklick zu füllen.


Praktische Beispiele

  • Beispiel 1: Du möchtest, dass in den Zellen von D13 bis M22 ein "X" erscheint, wenn du sie mit der rechten Maustaste anklickst. Verwende den oben genannten Code.

  • Beispiel 2: Wenn du mit einem Doppelklick auf eine beliebige Zelle in deinem Arbeitsblatt klickst, wird diese Zelle mit einem "X" gefüllt. Dazu verwendest du den Doppelklick-Code.


Tipps für Profis

  • Verwende benutzerdefinierte Formate: Wenn du mehr Kontrolle über die Darstellung der Zelle haben möchtest, kannst du die Zelle so formatieren, dass sie nur "X" anzeigt, aber tatsächlich einen anderen Wert speichert.

  • Automatisiere weitere Funktionen: Du kannst auch zusätzliche Logik in den VBA-Code einfügen, um z.B. das "X" zu entfernen, wenn die Zelle erneut angeklickt wird.


FAQ: Häufige Fragen

1. Frage
Kann ich den Code auch für andere Buchstaben oder Werte verwenden?
Ja, du kannst den Wert "X" einfach durch einen anderen Buchstaben oder Wert ersetzen, den du verwenden möchtest.

2. Frage
Funktioniert dies auch in neueren Excel-Versionen?
Ja, der Code funktioniert in Excel-Versionen ab 2003 und auch in neueren Versionen wie Excel 2016, 2019 und Microsoft 365.

3. Frage
Wie kann ich die Funktion wieder deaktivieren?
Um die Funktion zu deaktivieren, kannst du den VBA-Code einfach aus dem Modul löschen oder die Makros in Excel deaktivieren.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige