Formatierung, nur eine Auswahl

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) ' Wird EIN Zellinhalt in den Zelladressen verändert, ' werden alle Anderen auf leer gesetzt und ' die Veränderte Zelle erhält die Markierung Const cellAdresses As String = "D2,G2,J2" 'ggf. anpassen Const Markierung As String = "X" If Intersect(Target, Range(cellAdresses)) Is Nothing Then Exit Sub If Target.Count = 1 Then Application.EnableEvents = False Range(cellAdresses) = "" Target = Markierung Application.EnableEvents = True End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) ' Wird EIN Zellinhalt in den Zelladressen verändert, ' werden alle Anderen auf leer gesetzt und ' die Veränderte Zelle erhält die Markierung Const cellAdresses As String = "C7,F7,I7" + "C9,F9,I9" Const Markierung As String = "x" If Intersect(Target, Range(cellAdresses)) Is Nothing Then Exit Sub If Target.Count = 1 Then Application.EnableEvents = False Range(cellAdresses) = "" Target = Markierung Application.EnableEvents = True End If End Sub

Hallo Klaus,
Addieren von Strings wäre mit & nicht mit +. Würde aber bei einer CONST Definition nicht funktionieren. Besser wäre meine Anweisung ergänze statt addiere gewesen.

"C7,F7,I7,C9,F9,I9"

Aber sei es drum
Hier ein Code (basierend auf der Beispielmappe) ohne die Adressen aber mit Zeilen/Spalten Koordinaten.
Falls es dann doch mehr wie 5 Kriterien gäbe müsste die Zahl 14 durch die Zeilennummer mit dem letzten Kriterium ersetzt werden.
Fall es dann doch mehr als 3 Optionen gäbe müsste die Zahl 10 durch die Spaltennummer mit der letzten Option ersetzt werden.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
'        Wird EIN Zellinhalt in den Zelladressen einer Zeile verändert,
'        werden alle Anderen in den Spalten auf leer gesetzt und
'        die Veränderte Zelle erhält die Markierung
Dim lCol As Long
Const Markierung As String = "X"
' Jede 3 Zeile ab Zeile 2 bis 14 und jede 3 Spalte ab Spalte 4 bis 10
If Target.Row Mod 3 = 2 And _
Target.Row = 4 And Target.Column

Offensichtlich hast du am Erscheinungsbild deiner Datei wieder rumgeschraubt, den vorher waren die Zellen in Spalte 4, 7 und 10. Darum musst du halt die Zahlem im Code richtig ausrechnen und anpassen.
Gruess Hansueli

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread