Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
464to468
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
464to468
464to468
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
.
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

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige