Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1616to1620
1616to1620
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

per Doppelklick Wert / Zeichen i.e. Zelle einfügen

Forumthread: per Doppelklick Wert / Zeichen i.e. Zelle einfügen

per Doppelklick Wert / Zeichen i.e. Zelle einfügen
16.04.2018 16:24:34
Lilli
Hallo Allerseits,
Folgendes Code habe ich irgendwo aus dem Netz genommen um ein Häckchen einzufügen.
Option Explicit 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
If Intersect(Target, Union(Range("A4:J11"), Range("A14:J21"))) Is Nothing Then Exit Sub 
With Target(1) 
    .Font.Name = "Wingdings" 
.Font.Size = 14
.HorizontalAlignment = xlCenter
  .Value = IIf(.Value = "ü", "", "ü") 
    Cancel = True 
End With 
End Sub
 
Das funktioniert einwandfrei
Ich habe folgende Zeile geändert:
  .Value = IIf(.Value = "ü", "û", "ü") 
um einen X zu bekommen. Allerdings kann ich damit nicht mehr bei einem Doppelklick, dass die Zelle geleert wird. Bei den Versuch einen vierten Wert hinzuzufügen, kommt eine Fehlermeldung, die ich gar nicht nachvollziehen kann, da meine VBA Kenntnisse Richtung Null gehen.
Frage 1: Wer kann mir helfen den Code so zu ändern, damit die Zelle geleert werden kann? Also so zu sagen 3 Fälle. Häckchen, Kreuz, Leer beim Doppelklick eingefügt werden kann.
Frage 2: Ich möchte in eine andere Spalte ähnliche Funktion haben, dass ich in eine andere Spalte andere Zeichen "---", "+++" sich einfügen bei einem Doppelklick? Kann man das in dem gleichen Makro machen und wenn ja, wie geht das?
Vielen Dank für die Hilfe im Voraus.
liebe Grüße,
Lilli :)
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: per Doppelklick Wert / Zeichen i.e. Zelle einfügen
16.04.2018 16:42:12
Gerd
Moin Lilli! 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A14:J21")) Is Nothing Then Exit Sub
With Target
.Font.Name = "Wingdings"
.Font.Size = 14
.HorizontalAlignment = xlCenter
If .Value = "" Then
.Value = "ü"
ElseIf .Value = "ü" Then
.Value = "û"
ElseIf .Value = "û" Then
.Value = ""
End If
Cancel = True
End With
End Sub

Gruß Gerd
Anzeige
AW: per Doppelklick Wert / Zeichen i.e. Zelle einfügen
16.04.2018 16:53:33
Lilli
Moin Moin Gerd :)
vielen Dank für Deine schnelle Hilfe. Das ist echt super. Diese End -If Dinger ;)
kann man die weiter erweitern?
kann ich den gleichen Code nutzen für meine zweite Frage?
Vielen Dank für Deine Mühe im Voraus.
liebe Grüße,
Lilli :)
AW: per Doppelklick Wert / Zeichen i.e. Zelle einfügen
16.04.2018 17:09:10
Lilli
Moin Gerd,
kann man auch vielleicht die Farbe mit
.Farbe = Grün (Für Häckchen)
.Farbe = Rot (Für das X)
vielen Dank noch mal.
Liebe Grüße,
Lilli :)
Anzeige
AW: per Doppelklick Wert / Zeichen i.e. Zelle einfügen
16.04.2018 17:31:07
Gerd
Moin Lilli!
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A14:J21")) Is Nothing Then Exit Sub
With Target
.Font.Name = "Wingdings"
.Font.Size = 14
.HorizontalAlignment = xlCenter
If .Value = "" Then
.Font.Color = -11489280
.Value = "ü"
ElseIf .Value = "ü" Then
.Font.Color = -16776961
.Value = "û"
ElseIf .Value = "û" Then
.Font.Color = 1
.Value = ""
End If
Cancel = True
End With

Ansonsten könntest du alternativ den Font.Name weglassen u. den Value als String z.B "---" angeben.
Gruß Gerd
Anzeige
AW: per Doppelklick Wert / Zeichen i.e. Zelle einfügen
17.04.2018 09:04:57
Lilli
Moin Gerd,
Vielen Dank für Deinen neuen Code. Wo bekomme ich die Farbenwerte her? Gibt es irgendwo in Excel ein Verzeichnis oder eine Liste im Netz? Die Frage dazu unter welchen Begriff könnte ich das suchen?
Ich wünsche Dir einen schönen Tag noch.
Liebe Grüße,
Lilli :)
AW: per Doppelklick Wert / Zeichen i.e. Zelle einfügen
17.04.2018 09:26:57
Daniel
Hi
Es gibt 256*256*256 verschiedene Farben, da gibt es keine Liste
Wenn du eine bestimmte Farbe haben willst, dann färbe die Zelle damit und gib im Direktfenster den Befehl ein: ?Selection.Font.Color
Dann bekommst du den Farbwert der Zelle angezeigt.
Für die Grundfarben gibt es auch vom System bereitgestellte Variablen: vbRed, vbGreen usw.
Gruß Daniel
Anzeige
Gesamtlösung
16.04.2018 18:16:43
Daniel
Hi
probier mal das Makro
ist zwar etwas tricky, aber du kannst es für verschiedene Zellbereiche mit verschiedenen Inhalten und Farben verwenden.
die Arrays für die unterschiedlichen Zellbereiche können unterschiedlich groß sein, du kannst eine beliebige Anzahl an Werten angeben.
Die Anzahl der Farben muss aber gleich der Anzahl der Werte für einen Zellbereich sein.
Wenn weiter Zellbereiche hinzukommen, musst du lediglich eine weitere ElseIF-Option hinzufügen.
der Rest bleibt gleich.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim x As Long
Dim arrZeichen
Dim arrFarbe
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
arrZeichen = Array("", "ü", "û")
arrFarbe = Array(vbWhite, vbGreen, vbRed)
ElseIf Not Intersect(Target, Range("B3:F9")) Is Nothing Then
arrZeichen = Array("---", "+++", "")
arrFarbe = Array(vbYellow, vbBlue, vbWhite)
Else
Exit Sub
End If
On Error Resume Next
x = WorksheetFunction.Match(Target.Value & "", arrZeichen, 0)
On Error GoTo 0
x = x Mod (UBound(arrZeichen) + 1)
Target.Value = arrZeichen(x)
Target.Font.Color = arrFarbe(x)
Cancel = True
End Sub
Gruß Daniel
Anzeige
AW: Gesamtlösung
17.04.2018 09:15:39
Lilli
Hi Daniel,
ich habe den Makro gestest. Das funzt auch einwandfrei. Ich danke Dir ganz herzlich für Deine Mühe.
Ich habe die Spalten angepasst. Kann man vielleicht bei jeden Bereich die Schriftart noch dazu angeben? Beim ersten Teil handelt es sich um "Wingdings" und bei dem anderen "Calibri".
Gibt es so eine Art wie arrSchriftart?
Vielen Dank für die Mühe.
Liebe Grüße,
Lilli :)
Anzeige
AW: Gesamtlösung
17.04.2018 09:32:08
Daniel
Hi
Kannst du genauso machen wie mit den Farben. 

arrSchriftart = Array("Fontname1", "Fontname2", usw)
Target.Font.Name = arrSchriftart(x)
Würde ich aber nur machen wenn die Schriftart beim Klicken wechseln soll.
Bleibt sie für alle Möglichkeiten gleich, würde ich die Zellen normal formatieren
Gruß Daniel
Anzeige
AW: Gesamtlösung
17.04.2018 10:02:56
Lilli
Hallo Daniel,
darf ich Dich um Dein prüfendes Blick noch mal bitten:
Wäre das so in Ordnung:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim x As Long
Dim arrZeichen
Dim arrFarbe
Dim arrSchriftart
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
arrSchriftart = Array("Calibri", "Wingdings","Wingdings")
arrZeichen = Array("", "ü", "û")
arrFarbe = Array(vbWhite, vbGreen, vbRed)
ElseIf Not Intersect(Target, Range("B3:F9")) Is Nothing Then
arrSchriftart = Array("Calibri", "Calibri","Calibri")
arrZeichen = Array("---", "+++", "")
arrFarbe = Array(vbYellow, vbBlue, vbWhite)
Else
Exit Sub
End If
On Error Resume Next
x = WorksheetFunction.Match(Target.Value & "", arrZeichen, 0)
On Error GoTo 0
x = x Mod (UBound(arrZeichen) + 1)
Target.Value = arrZeichen(x)
Target.Font.Color = arrFarbe(x)
Target.Font.Name = arrSchriftart(x)
Cancel = True
End Sub
liebe Grüße,
Lilli :)
Anzeige
AW: Gesamtlösung
17.04.2018 11:11:33
Daniel
probiers doch aus.
wobei ich es lassen würde und die Zellen direkt formatieren würde.
Da bei einer Leerzelle ("") die Schriftart egal ist, ändern sich bei dir die Schriftarten eigentlich nicht, so dass eine Umformatierung im Code nicht notwendig ist.
Gruß Daniel
AW: Gesamtlösung
17.04.2018 13:32:35
Lilli
Hallo Daniel,
ich habe es Probiert und es funzt !!!!
Vielen Dank für Deinen Einsatz. Ich kann den Makro jetzt mehrfach einsetzen. Das ist echt total klasse.
Vielen Dank noch mal für Deine Mühe.
Liebe Grüße,
Lilli :)
Anzeige
;

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
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
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
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
Zellinhalt bei doppelklick auf Zelle nicht löschen
ac_service

Hallo Ihr Excel-Experten...
ich möchte gerne das löschen des Zellinhalts beim doppelklick auf die Zelle unterbinden. Hat jemand nen Tip wie es am schnellsten und einfachsten zu bewerkstelligen ist?
Danke schon mal für eine Antwort!
mfg ac_service
01.01.1970 00:00:00
Thread-ID: 403141
4 Beiträge
Anzeige
doppelklick auf zelle
klausk

Guten Abend,
in eine Tabelle werden die Dateien eines Unterverzeichnisses eingelesen. Wie schaffe ich es, per Doppelklick auf eine Zelle die darin angezeigte Datei zu öffnen ? Eine Listbox soll nicht verwendet werden.
Vielen Dank und Grüße
KlausK
01.01.1970 00:00:00
Thread-ID: 418752
4 Beiträge
Anzeige
Per Doppelklick auf Zelle Worddokument öffnen
Dieter

Hallo Experten ,
in einem Tabellenblatt sind die Zellen C2:C100 mit verschiedenen Werten belegt.
Für jeder dieser Zellen besteht ein gleichnamiges Worddukument hier ein Beispiel
Zelle C2 = Wert 215a , in einem anderen Verzeichnis "Dokumente" ist ein Dokument mit dem Namen 215a.doc...
11.09.2004 17:05:14
Thread-ID: 483606
5 Beiträge
Doppelklick auf Zelle Notiz (.txt) öffnen
Martin

Hi,
Kann mir bitte einer bei folgender Problematik helfen.
Bei Doppelklick auf A1, A2 usw. wird eine txt-Datei mit
dem Name A1.txt, A2.txt usw. erzeugt.
Ich habe einen Code ergänzt, welche beim Doppelklick
zusätzlich ein Windings-Symbol einfügt.
Welchen Code brauche ich,...
23.01.2005 12:27:17
Thread-ID: 552927
3 Beiträge
Aktion bei Doppelklick auf beliebige Zelle und...
Joachim

Liebe Kollegen,
wie kann ich eine Aktion in Visual Basic auslösen (Sub) wenn ich auf eine beliebige Zelle doppelklicke?
Außerdem, wie kann man dann den Textbearbeitungsmodus unterbinden, wenn ich eine SUb aufrufe, welche dass für mich dann macht?
WÄre euch eeecht dankbar,
MfG
05.09.2005 17:53:35
Thread-ID: 662789
5 Beiträge
Mit Doppelklick auf Zelle einen einen Punkt dazuzä
alina-michelle

Hi Leute,
habe vor einiger Zeit die gleiche Frage gestellt, auch die richtige Antwort bekommen. (Danke nochmal dafür)
Leider funktioniert es wieder nicht. Problem:
In ausgesuchten Zellen soll per Doppelklick jeweils nur eine 1 dazugezählt werden. Da ich nicht erfahren bin, bitte ein...
09.07.2007 10:01:16
Thread-ID: 885310
19 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Mit Doppelklick Werte in Excel-Zellen einfügen

Schritt-für-Schritt-Anleitung

Um in Excel mit einem Doppelklick auf eine Zelle verschiedene Werte oder Zeichen einzufügen, kannst du ein VBA-Makro verwenden. Folge diesen Schritten:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu starten.

  2. Wähle das entsprechende Arbeitsblatt in der Projektansicht aus.

  3. Füge den folgenden Code in das Codefenster ein:

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Dim x As Long
   Dim arrZeichen
   Dim arrFarbe
   If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
       arrZeichen = Array("", "ü", "û")
       arrFarbe = Array(vbWhite, vbGreen, vbRed)
   ElseIf Not Intersect(Target, Range("B3:F9")) Is Nothing Then
       arrZeichen = Array("---", "+++", "")
       arrFarbe = Array(vbYellow, vbBlue, vbWhite)
   Else
       Exit Sub
   End If
   On Error Resume Next
   x = WorksheetFunction.Match(Target.Value & "", arrZeichen, 0)
   On Error GoTo 0
   x = x Mod (UBound(arrZeichen) + 1)
   Target.Value = arrZeichen(x)
   Target.Font.Color = arrFarbe(x)
   Cancel = True
End Sub

  4. Schließe den VBA-Editor und teste den Doppelklick auf die definierten Zellbereiche.

Häufige Fehler und Lösungen

  • Fehler: "Ausführung des Makros nicht möglich."

    • Stelle sicher, dass du das Makro in der richtigen Arbeitsmappe platziert hast und dass die Sicherheitsstufe für Makros in Excel auf "Aktivieren" gesetzt ist.

  • Fehler: Doppelklick funktioniert nicht.

    • Überprüfe, ob du das richtige Zellintervall im Code definiert hast. Stelle sicher, dass das Makro auf das gewählte Intervall angewendet wird.

Alternative Methoden

Eine alternative Methode zum Einfügen von Werten per Doppelklick ist, die Zellen manuell zu formatieren. Du kannst auch die Excel-Funktion "Datenüberprüfung" verwenden, um vorgegebene Werte in eine Zelle einzufügen, allerdings ist dies nicht so flexibel wie ein VBA-Skript.

Praktische Beispiele

  1. Häkchen und Kreuz einfügen: Um Häkchen (ü) und Kreuze (û) in den Zellen zu wechseln, kannst du den folgenden angepassten Code verwenden:

    If .Value = "" Then
   .Value = "ü"
ElseIf .Value = "ü" Then
   .Value = "û"
ElseIf .Value = "û" Then
   .Value = ""
End If

  2. Farbe ändern: Du kannst die Schriftfarbe je nach Wert ändern. Beispiel:

    If .Value = "ü" Then
   .Font.Color = vbGreen
ElseIf .Value = "û" Then
   .Font.Color = vbRed
Else
   .Font.Color = vbBlack
End If

Tipps für Profis

  • Verwendung von Arrays: Nutze Arrays für verschiedene Zellbereiche, um mehrere Zeichen und Farben dynamisch zu verwalten. Das erleichtert die Anpassung und Erweiterung deines Codes.
  • Debugging: Wenn du auf Fehler stößt, nutze das Direktfenster im VBA-Editor, um Werte und Variablen zu überprüfen.
  • Farbwerte: Um spezifische Farbwerte zu bestimmen, kannst du eine Zelle einfärben und im Direktfenster den Befehl ?Selection.Font.Color verwenden.

FAQ: Häufige Fragen

1. Wie kann ich den Code auf andere Zellen anwenden? Du kannst die Zellbereiche in den Intersect-Befehlen anpassen, um den Code auf andere Zellen anzuwenden.

2. Wo finde ich Farbwerte für Schriftarten? Du kannst Farbwerte über das VBA-Direktfenster abrufen oder die vordefinierten Farbvariablen wie vbRed oder vbGreen verwenden.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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