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: Doppelklick => Range("A1") = 1

Doppelklick => Range("A1") = 1
04.08.2004 09:49:09
Ulrike
Hallo Excelperten,
mein momentanes Problem übersteigt leider meine VBA-Kenntnisse:
Die Zellen A1 bis D4 können NUR die Werte 1 und 0 annehmen.
Ich brauche ein Makro, das wenn es aktiviert ist, das folgende tut: Wenn eine Zelle den Wert 0 hat und ich einen Doppelklick darauf mache, soll sie den Wert 1 bekommen und wenn sie 1 ist und ich doppelklicke den Wert 0.
Könnt Ihr mir vielleicht verraten, wie ein soches Makro aussehen muß?
Vielen Dank schon jetzt für Eure Mühe,
sonnige Grüße
Ulrike
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Doppelklick => Range("A1") = 1
04.08.2004 10:13:16
Nepumuk
Hallo Ulrike,
so geht's:


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Row >= 1 And Target.Row <= 4 And Target.Column >= 1 And Target.Column <= 4 Then
        If Target.Value = 1 Then Target.Value = 0 Else Target.Value = 1
        Cancel = True
    End If
End Sub


Gruß
Nepumuk
Anzeige
Danke, werd's mal testen! o.T.
04.08.2004 10:37:34
Ulrike
.
AW: Doppelklick => Range("A1") = 1
04.08.2004 10:18:33
Uwe
Hallo Ulrike,
so sollte es gehen:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If IsNumeric(Target) Then
If Target <= 1 Then Target = Abs(Target - 1)
Cancel = True
End If
End Sub
Gruß Uwe
Werd's gleich mal ausprobieren,danke o.T.
04.08.2004 10:35:23
Ulrike
.
Anzeige
AW: Doppelklick => Range("A1") = 1
04.08.2004 10:40:07
Ulrike
Vielen Dank Euch beiden, jetzt ist mein Problem gelöst und ich hab wieder etwas dazu gelent!
Beste Grüße
Ulrike
;

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

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