Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1640to1644
1640to1644
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wert durch Doppelklick in Zelle

Forumthread: Wert durch Doppelklick in Zelle

Wert durch Doppelklick in Zelle
20.08.2018 14:33:02
mike49
Hallo Leute,
mit welchem Makro kann ich erreichen, dass durch Doppelklick in eine Zelle im Bereich C3:K33 ein "X" gesetzt wird und durch erneutes Doppelklicken wieder entfernt wird?
Gruß
mike49
Anzeige

18
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wert durch Doppelklick in Zelle
20.08.2018 14:40:03
Torsten
hallo Mike,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Value = "" Then
Target.Value = "X"
Else
Target.Value = ""
End If
Cancel = True
End Sub

AW: Wert durch Doppelklick in Zelle
20.08.2018 14:40:39
Hajo_Zi
Hallo Mike,
starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf Deine Tabelle, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt nur in dieser Tabelle. 
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim RaBereich As Range                          ' Variable f?r Bereich
Dim RaZelle As Range                            ' Variable f?r Zelle
Set RaBereich = Range("C3:K33")                 ' Bereich der Wirksamkeit
Set RaBereich = Intersect(RaBereich, Target)
If Not RaBereich Is Nothing Then
'ActiveSheet.Unprotect ("Passwort")
If Target = "" Then
Target = "X"
Else
Target.ClearContents
End If
Cancel = True
'ActiveSheet.protect ("Passwort")
End If
Set RaBereich = Nothing                         ' Variable leeren
End Sub


Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Anzeige
Das klappt prima . . .
20.08.2018 14:55:31
mike49
. . . Danke für die Hilfe.
Insbesondere dir Hajo für die tolle Beschreibung der Vorgehensweise.
Gruß
mike49
Rechts- und Linksklick schon vergeben
20.08.2018 14:59:35
mike49
Hallo nochmals,
habt ihr eine Idee, wie ich im genannten Bereich ein rotes "K" einfügen kann.
Einfügen durch Rechts- und Linksklick sind bereits vergeben.
Gruß
mike49
Anzeige
AW: Rechts- und Linksklick schon vergeben
20.08.2018 15:01:56
Hajo_Zi
Hallo Mike,
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim RaBereich As Range                          ' Variable f?r Bereich
Dim RaZelle As Range                            ' Variable f?r Zelle
Set RaBereich = Range("C3:K33")                 ' Bereich der Wirksamkeit
Set RaBereich = Intersect(RaBereich, Target)
If Not RaBereich Is Nothing Then
'ActiveSheet.Unprotect ("Passwort")
If Target = "" Then
Target = "X"
Target.Interior.Color = 255
Else
Target.ClearContents
End If
Cancel = True
'ActiveSheet.protect ("Passwort")
End If
Set RaBereich = Nothing                         ' Variable leeren
End Sub

Gruß Hajo
Anzeige
AW: Rechts- und Linksklick schon vergeben
20.08.2018 15:10:30
mike49
Hallo Hajo,
es sollte nicht die Zelle rot gefärbt werden, sondern nur das "X".
Gruß
mike49
AW: Rechts- und Linksklick schon vergeben
20.08.2018 15:16:02
Hajo_Zi
Hallo Mike,
Target.font.Interior.Color = 255
Gruß Hajo
fehler
20.08.2018 15:20:10
Hajo_Zi
Hallo Mike
Target.Font.Color = 255
Gruß Hajo
Anzeige
Prima . . .
20.08.2018 15:44:06
mike49
. . .
ich habe dieses Makro, das aber leider nur im Bereich C3:C33 funktioniert. Es soll aber für den Bereich C3:K33 funktionieren. Wie muss man abändern?
Option Explicit 
Private Sub CommandButton1_Click()
With ActiveCell
If .Column = 3 And .Row > 4 And .Row  "K", "K", "")
.Font.Color = vbRed
End If
End With
End Sub

Danke
Anzeige
AW: Prima . . .
20.08.2018 15:48:36
Hajo_Zi
.Column >= 3 an .Column Gruß Hajo
Ja. So klappt's wie ich's wollte . . .
20.08.2018 15:53:14
mike49
. . . Danke vielmals Hajo für die schnelle Hilfe.
Gruß
mike49
oder so...
20.08.2018 15:55:36
Werner
Hallo Mike,
If Not Intersect(Range("C3:K33"), ActiveCell) Is Nothing Then
With ActiveCell
.Value = IIf(.Value  "K", "K", "")
.Font.Color = vbRed
End With
End If
Gruß Werner
Anzeige
AW: oder so...
20.08.2018 17:39:32
mike49
Danke auch dir Werner für die "elegante" Version.
Gruß
mike49
Gerne u. Danke für die Rückmeldung. o.w.T.
20.08.2018 17:47:34
Werner
AW: Rechts- und Linksklick schon vergeben
20.08.2018 15:16:39
mike49
. . . Target.Font.Color = 255 funktioniert.
Ich wollte aber ein neues Makro, mit dem ich im genannten Bereich ein "K" setzen kann, da ja Links- und Rechtsklick bereits vergeben sind!
Anzeige
AW: Wert durch Doppelklick in Zelle
20.08.2018 14:56:04
Werner
Hallo Mike,
Makro gehört ins Codemodul des Blattes, auf dem sich der Code auswirken soll.
Rechtsklick auf den Tabellenblattreiter - Code anzeigen - Code rechts ins Codefenster kopieren 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("C3:K33"), Target) Is Nothing Then
Cancel = True
Target.Value = IIf(Target.Value = "X", "", "X")
End If
End Sub
Gruß Werner
Anzeige
auch diese Kurzversion funktioniert prima . . .
20.08.2018 15:06:04
mike49
. . . danke dir Werner.
Gruß
mike49
Gerne u. Danke für die Rückmeldung. o.w.T.
22.08.2018 20:02:52
Werner
;

Forumthreads zu verwandten Themen

Automatischer Eintrag durch Doppelklick auf Zelle
Micha

Hallo liebe Spezialisten,
nachdem mir vorhin so Super in diesem Forum geholfen wurde, hier gleich die nächste Frage:
Ist es möglich, das in einem bestimmten Tabellenbereich mir durch einen Doppelklick auf eine Zelle automatisch ein "x" in diese Zelle eingegeben wird?
Würde mich über...
12.02.2009 14:30:00
Thread-ID: 1050071
6 Beiträge
VBA Progr. Schleife- Doppelklick in Zelle
Jeebee

Guten Morgen,
Habe in Excel folgendes Problem: Ich übernehme eine Tabelle aus SAP. Leider Sind die Zahlen dort nicht als Zahl definiert sondern als Text. Jede Zahl zB. 33,01- hat einen Bindestrich hinten dran. Dass ich den wegkriege konnte ich bereits mit "Makro aufzeichnen" lösen.
Dies...
07.03.2009 09:56:05
Thread-ID: 1057531
3 Beiträge
Doppelklick auf zelle mit eigenem Namen
chris

Hallo VBA Experten,
habe hier eina kurze frage.
Würde mich wie immer über Hilfe freuen.
Ich habe eine Zelle Z.b L8
diese zelle hat den Namen "testzelle_8"
Ist es jetzt möglich irgendwie an diesen Namen zu kommen.
Also wenn ich die zelle Doppelklicke das dann der Name aus...
09.03.2010 15:42:23
Thread-ID: 1144625
11 Beiträge
VBA: Tagesdatum auf 3 Zellen aufteilen
KlausF

Hallo Forum,
ich stehe gerade vor folgendem Problem:
Ich habe einen Button, der zellfüllend in einer beliebigen Zelle steht, z.B. in A2
Ich möchte jetzt auf Klick immer das heutige Tagesdatum wie folgt aufteilen:
die darüber liegende Zelle (hier A1) bekommt den Tag von Heute() i...
15.10.2010 15:37:47
Thread-ID: 1182643
4 Beiträge
Doppelklick auf farbige Zelle filtert Tabelle mit
Tobias

Hallo,
ich suche nach einer Möglichkeit um folgendes zu erreichen:
doppelklick auf eine blaue Zelle (im Original durch bedingte Formatierung gefärbt):
1. springt excel in ein anderes Tabellenblatt
2. filtert eine Liste mit dem entsprechenden Kriterium
Die genaue Beschreibung...
21.11.2012 15:00:10
Thread-ID: 1287591
8 Beiträge
Zellen bedingt neu Auflisten (ohne VBA/Filter)
SebastianSchelb

Hallo liebe Forumuser,
ich brauche euere Hilfe.
Ich habe diese Tabelle:
https://www.herber.de/bbs/user/83422.xls
Die Matrix B:C soll durchsucht werden und bei von allen Zellen, in welcher ein "X" ist, die zugehörige Bezeichnung in einer neuen Tabelle (ohne Leerzellen) auflisten...
16.01.2013 12:03:34
Thread-ID: 1294571
3 Beiträge
Doppelklick-Event nur auf ungeschützter Zelle
Marcus

Liebe Expertenrunde,
derzeit knabbere ich an einem kleinen Problem.
Folgende Situation: In einem geschützten Tabellenblatt (der Benutzer darf nur ungeschützte Zellen auswählen) ist nur eine Spalte ungeschützt.
Bei der Bewegung mit den Cursor-Tasten und nach erfolgten Eingaben bleibt...
28.03.2013 03:23:00
Thread-ID: 1306269
4 Beiträge
Mit Doppelklick auf eine Zelle Word öffnen und Inh
Sören

Hallo, trotz Fußballfieber habe ich eine Frage:
Ich möchte meine Adressdatei in Excel so erweitern, dass sich durch Doppelklick auf eine Zelle der Inhalt der ganzen Zeile in ein Worddokument überträgt. Das Worddokument soll sich durch den Doppelklick öffnen und die Daten aus der Excel sollen...
30.06.2002 11:11:52
Thread-ID: 132505
7 Beiträge
Doppelklick auf Zelle .. Fehler wenn Wert Leer
Sabrina

Hallo Leute,
Ich habe in dem Bereich A5:T18 sowie A24:T40 per Formel Zahlen ( oder leer ) drinnen stehen.
Wenn man ein Doppelklick drauf macht soll der Inhalt in die Zelle A19 geschrieben werden.
Ich habe Fundstücke zusammengesucht. Es funktioniert außer wenn die Zelle leer ist....
11.10.2015 13:15:11
Thread-ID: 1451738
4 Beiträge
Anzeige
Zellen bei abgelaufenem Datum sperren mit VBA
Andreas

Hallo zusammen,
ich habe heute ein kleines Problem.
Ich habe einen Kalender und möchte dass ab dem abgelaufenen Datum (gestern) keine Einträge mehr eingetragen oder gelöscht werden.
Eintragen kann ich über die Datenüberprüfung lösen, allerdings mag ich die Meldung nicht, die ersche...
23.06.2016 10:40:46
Thread-ID: 1500507
18 Beiträge
VBA Focus auf Zelle in Zeile überspringen
Peer

Hallo.
Ich versuche gerade über VBA folgendes Ereignis zu erzeugen, scheitere aber mangels Wissen daran.
Vielleicht findet von Euch jemand den Fehler oder/und weiß eine bessere Lösung.
Ich möchte bei Auswahl ab Zeile 10 in der Spalte 4, dass der Focus auf in derselben Zeile auf die...
09.08.2017 12:10:35
Thread-ID: 1573445
11 Beiträge
VBA - verweisen auf Wert in Zelle
Fred

Hallo VBA & Excel Profis,
ich möchte den Bereich A1532:N - letzte Zeile löschen.
"Normalerweise" schreibe ich LZ = Sheets("Basis").Cells(Rows.Count, 1).End(xlUp).Row - 0 Sheets("Basis").Range("A1532:N" & LZ).ClearContents
Nun möchte ich allerdings, dass "A1532" nicht im Co...
27.06.2019 14:37:19
Thread-ID: 1699774
5 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Wert durch Doppelklick in Zelle setzen und entfernen

Schritt-für-Schritt-Anleitung

Um durch einen Doppelklick in eine Zelle im Bereich C3:K33 ein "X" zu setzen und durch erneutes Doppelklicken wieder zu entfernen, folge diesen Schritten:

  1. Öffne den VBA-Editor:

    • Drücke Alt + F11, um den VBA-Editor zu starten.

  2. Finde das richtige Arbeitsblatt:

    • Im Projektfenster auf der linken Seite, doppelklicke auf die Tabelle, in der du das Makro verwenden möchtest.

  3. Füge den VBA-Code ein:

    • Kopiere den folgenden Code und füge ihn in das rechte Fenster ein:
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Dim RaBereich As Range
   Set RaBereich = Range("C3:K33")
   Set RaBereich = Intersect(RaBereich, Target)
   If Not RaBereich Is Nothing Then
       If Target.Value = "" Then
           Target.Value = "X"
       Else
           Target.ClearContents
       End If
       Cancel = True
   End If
   Set RaBereich = Nothing
End Sub

  4. Schließe den VBA-Editor:

    • Drücke Alt + Q, um den VBA-Editor zu schließen.

  5. Teste das Makro:

    • Doppelklicke in eine Zelle im Bereich C3:K33, um zu prüfen, ob ein "X" gesetzt wird oder entfernt werden kann.

Häufige Fehler und Lösungen

  • Fehler: Das Makro funktioniert nicht.

    • Lösung: Stelle sicher, dass der Code im richtigen Arbeitsblattmodul eingefügt wurde. Es muss das spezifische Blatt sein, auf dem du das Doppelklicken nutzen möchtest.

  • Fehler: Es wird kein "X" gesetzt.

    • Lösung: Überprüfe, ob die Zelle leer ist. Wenn sie bereits einen Wert hat, wird dieser entfernt.

Alternative Methoden

Falls du Excel in Zelle schreiben ohne Doppelklick nutzen möchtest, kannst du ein anderes Eingabeverfahren in Betracht ziehen:

  • Eingabe durch eine Schaltfläche: Du kannst eine Schaltfläche auf deinem Arbeitsblatt platzieren, die beim Klicken ein "X" in die aktive Zelle setzt.

  • Alternative Tastenkombinationen: Du kannst auch VBA verwenden, um bestimmte Tastenkombinationen für das Setzen von Werten zu programmieren.

Praktische Beispiele

  1. Setze ein "K" in Rot: Um ein rotes "K" in Zellen C3:K33 durch Doppelklick zu setzen, passe den Code an:

    If Not RaBereich Is Nothing Then
   If Target.Value = "" Then
       Target.Value = "K"
       Target.Font.Color = vbRed
   Else
       Target.ClearContents
   End If
End If

  2. Zelle färben: Wenn du die Zelle färben möchtest, kannst du den folgenden Code verwenden:

    Target.Interior.Color = RGB(255, 0, 0) ' Färbt die Zelle rot

Tipps für Profis

  • Schutz des Arbeitsblatts: Wenn deine Zellen geschützt sind, achte darauf, den Schutz vor der Änderung aufzuheben und danach wieder zu aktivieren.

  • Verwendung von Variablen: Nutze Variablen, um den Code klarer und leichter wartbar zu gestalten.

  • Testen von Makros: Teste deine Makros immer in einer Kopie deiner Datei, um Datenverlust zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich die Funktion auf andere Zellen ausdehnen? Du kannst den Bereich C3:K33 im Code anpassen, um andere Zellen einzuschließen.

2. Funktioniert dieses Makro in allen Excel-Versionen? Ja, dieser Code sollte in den meisten modernen Excel-Versionen funktionieren, die VBA unterstützen.

3. Kann ich mit dem Doppelklick auch andere Werte setzen? Ja, du kannst den Code anpassen, um verschiedene Werte oder Formate zu setzen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige