Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1344to1348
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
Inhaltsverzeichnis

Zellwert per Klick ändern (0 und 1)

Zellwert per Klick ändern (0 und 1)
18.01.2014 15:46:47
John
Hallo liebe Community,
ich muss so ein kleines Projekt machen und stehe vor folgendem Problem:
Ich habe einen größeren Zellbereich mit 0 und 1 und möchte die darin enthaltenen Werte per Mausklick ändern können. Leider habe ich bis jetzt noch nicht soviel Erfahrung mit VBA gesammelt, deshalb wäre ich für jegliche Hilfe sehr dankbar.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellwert per Klick ändern (0 und 1)
18.01.2014 15:51:33
Hajo_Zi
unter die Tabelle.
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim dblCount As Double
If CallByName(Selection, IIf(Val( _
Application.Version) > 11, "CountLarge", "Count"), VbGet) = 1 Then
' von Nepumuk
Application.EnableEvents = False
If Target  "" And Target = 0 Then
Target = 1
ElseIf Target = 1 Then
Target = 0
End If
Application.EnableEvents = True
End If
End Sub


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige