Supportnet / Forum / Tabellenkalkulation
Zellenformat bearbeiten mit Doppelklick
Frage
Hallo,
ich würde gerne in einer bestehneden Tabelle mit Doppelklick eine Zelle z.B. fett formatieren und beim 2. Doppelclick wieder Standard. Jemand ´nen Tipp
Gruß Hansenen
Antwort 1 von Annan
Hallo,
so sollte es eigentlich funzen (konnte es allerdings nicht testen):
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim RaBereich As Range
Set RaBereich = Range("A1:A3")
If Intersect(Target, RaBereich) Is Nothing Then Exit Sub
Application.EnableEvents = False
Cancel = True
If Selection.Font.FontStyle = "Standard" Then
Selection.Font.FontStyle = "Fett"
Application.EnableEvents = True
Else
Selection.Font.FontStyle = "Standard"
Application.EnableEvents = True
End If
End Sub
Die Zellen, bei denen es funzen soll, sind in diesem Beispiel A1:A3. Kannst du ja nach deinem Belieben ändern (bei Range) !
Ist die Schrift FETT, wird sie bei Doppelklick zu Standard u. umgekehrt !
MfG
so sollte es eigentlich funzen (konnte es allerdings nicht testen):
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim RaBereich As Range
Set RaBereich = Range("A1:A3")
If Intersect(Target, RaBereich) Is Nothing Then Exit Sub
Application.EnableEvents = False
Cancel = True
If Selection.Font.FontStyle = "Standard" Then
Selection.Font.FontStyle = "Fett"
Application.EnableEvents = True
Else
Selection.Font.FontStyle = "Standard"
Application.EnableEvents = True
End If
End Sub
Die Zellen, bei denen es funzen soll, sind in diesem Beispiel A1:A3. Kannst du ja nach deinem Belieben ändern (bei Range) !
Ist die Schrift FETT, wird sie bei Doppelklick zu Standard u. umgekehrt !
MfG
Antwort 2 von martl
Hallo Annan,
herzlichen Dank für deine Codezeilen. Über das Problem hab ich mir beim Lesen der Anfrage auch schon Gedanken gemacht, die Lösung aber nich auf die Reihe bekommen und heute konnt ich Deine Zeilen (leicht abgewandelt) bei mir verwenden.
Wünsche noch einen wunderschönen Tag und viele Grüße
martl
herzlichen Dank für deine Codezeilen. Über das Problem hab ich mir beim Lesen der Anfrage auch schon Gedanken gemacht, die Lösung aber nich auf die Reihe bekommen und heute konnt ich Deine Zeilen (leicht abgewandelt) bei mir verwenden.
Wünsche noch einen wunderschönen Tag und viele Grüße
martl
Antwort 3 von Hansenen
Hallo Annan und Martl,
zunächst ´mal Danke für Eure Mühe, leider konnte ich den Entwurf von Annan nicht nachvollziehen. Martl könntest Du mir Deinen geänderten Code mal reinstellen?
Liebe Grüße und nochmal Danke
Hansenen
zunächst ´mal Danke für Eure Mühe, leider konnte ich den Entwurf von Annan nicht nachvollziehen. Martl könntest Du mir Deinen geänderten Code mal reinstellen?
Liebe Grüße und nochmal Danke
Hansenen
Antwort 4 von martl
Hallo Hansenen,
der Code von Annan ist vollkommen funktionsfähig. Hab den Code nur entsprechend meinen Anforderungen ändern müssen (der Text soll nicht fett geschrieben, sondern bei Doppelclick ein Wert eingetragen werden). Der geänderte Code wird dich daher eher vielleicht verwirren.
Vorab möcht ich aber ergänzend mitteilen, wo der Code einzufügen ist: Hierzu musst Du in die Entwicklungsumgebung von Excel, dem VBA-Editor. Diesen erreichst du in Excel über STRG+F11. Dann über ANSICHT/Projektexplorer aufrufen und in der Arbeitsmappe, in der der Code ausgeführt werden soll (z.B. Mappe1.xls) den von Annan geschriebenen Code in das Tabellenblatt (z.B. Tabelle1 - mit Doppelclick) einfügen, in dem sich in der Exceltabelle auch die Zellen befinden, die auf den Doppelclik mit Formatänderungen reagieren sollen.
Wie Annan geschrieben hat, ist es wichtig, dass der Bereich, der mit folgender Zeile festgelegt wird:
Set RaBereich = Range("A1:A3")
und den durch Doppelclick zu bearbeitenden Bereich auf die Zellen A1 bis A3 einschränkt, evtl noch angepasst werden muss.
Bitte schreib doch nochmal, an welcher Stelle es genau Probleme gibt.
Viele Grüße
martl
der Code von Annan ist vollkommen funktionsfähig. Hab den Code nur entsprechend meinen Anforderungen ändern müssen (der Text soll nicht fett geschrieben, sondern bei Doppelclick ein Wert eingetragen werden). Der geänderte Code wird dich daher eher vielleicht verwirren.
Vorab möcht ich aber ergänzend mitteilen, wo der Code einzufügen ist: Hierzu musst Du in die Entwicklungsumgebung von Excel, dem VBA-Editor. Diesen erreichst du in Excel über STRG+F11. Dann über ANSICHT/Projektexplorer aufrufen und in der Arbeitsmappe, in der der Code ausgeführt werden soll (z.B. Mappe1.xls) den von Annan geschriebenen Code in das Tabellenblatt (z.B. Tabelle1 - mit Doppelclick) einfügen, in dem sich in der Exceltabelle auch die Zellen befinden, die auf den Doppelclik mit Formatänderungen reagieren sollen.
Wie Annan geschrieben hat, ist es wichtig, dass der Bereich, der mit folgender Zeile festgelegt wird:
Set RaBereich = Range("A1:A3")
und den durch Doppelclick zu bearbeitenden Bereich auf die Zellen A1 bis A3 einschränkt, evtl noch angepasst werden muss.
Bitte schreib doch nochmal, an welcher Stelle es genau Probleme gibt.
Viele Grüße
martl