Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1140to1144
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1140to1144
1140to1144
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

x eintragen / löschen

x eintragen / löschen
Ernst
Guten Tag Forum
Könnte mir jemand helfen für folgende VBA Aufgabenstellung?
Wenn die Zellen C5 bis C10 angeklickt werden, soll ein x in die angeklickte Zelle eingetragen werden und zugleich die Zellenfarbe grau werden. Und umgekehrt ist ein x in der Zelle und ich klicke die Zelle an, dann soll das x gelöscht werden und die Zellenfarbe weiss werden.
Für eine konstruktive Hilfe bin ich ^dankbar.
Mit freundlichen Grüßen
Ernst Dunkel

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: x eintragen / löschen
22.02.2010 09:50:27
Reinhard
Hallo Ernst,
im Modul "Tabelle1"
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Zelle As Range
Set Target = Intersect(Target, Range("C5:C10"))
If Target Is Nothing Then Exit Sub
For Each Zelle In Target
Zelle.Value = IIf(Zelle.Value = "x", "", "x")
Zelle.Interior.ColorIndex = IIf(Zelle.Value = "x", 15, xlNone)
Next Zelle
End Sub

Gruß
Reinhard
AW: x eintragen / löschen
22.02.2010 11:21:18
Ernst
Hallo Rainer
Recht herzlichen Dank für Deine schnelle Hilfe.
Ernst Dunkel
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige