Makro nach Zelländerung ausführen

Hallo,
ich habe folgendes Problem und hoffe, dass mir jemand von euch helfen kann:
Ich habe einen Zellbereich mit 5 Spalten (E8:I33), in dem pro Zeile nur ein Wert in einer der 5 Spalten eingegeben werden darf. Die anderen 4 Zeilen sollen leer bleiben, ansonsten sollen die anderen Zellen fablich rot angezeigt werden.
Praktisches Beispiel:
Die 5 Spalten sind mit jeweils einer Arbeitsschicht beschriftet. Wenn ich z. B. in der 2. Spalte im definierten Bereich ein "X" eintrage, dann soll geprüft werden, ob sich in den anderen 4 übrigen Spalten (hier die 1., 3., 4. und 5. Spalte) ein Wert befindet, falls ja, soll die Zelle, in dem sich der Wert befindet rot hinerlegt angezeigt werden. Die aktuell eingegebenen Zelle soll aber nicht rot hinterlegt angezeigt werden.
Falls der Fall eingetreten ist, dass eine Zelle per Makro rot markiert wurde, werde ich zur roten Zelle gehen und diesen Wert löschen, damit die Zelle die rote Markierung wieder verliert.
Geht so was überhaupt?
Über eine Bedingte Formatierung geht sowas meiner Meinung nach leider nicht, oder doch?
Bitte um euer Hilfe.
Schöne Grüße
Florian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo
Zitat
... dann kommt z. B. ein Anruf dazwischen und ich weiß dann nicht mehr ...
Das ist dann ein Fall für den Arzt ;o)
Zum Thema:
Du hast ja Dein ganzes Projekt hochgeladen, das war so nicht gemeint.
Hier ein minimiertes Beispiel:
https://www.herber.de/bbs/user/79416.xls
Das sehe dann so aus:

	D	E	F	G	H	I
6	MA1		x
7	MA2			x
8	MA3	x
9	MA4				x
10	MA5					x
11	MA6	x
12	MA7		x
13	MA8			x
14	MA9		x		x
15	MA10					x

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
E6:I15 ist als BereichsName definiert!
Der Code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim X&
If Not Intersect(Target, Range("Bereich")) Is Nothing And Target.Count = 1 Then
If Target.Value  "" Then
Target.Interior.ColorIndex = xlNone
For X = 5 To 9
If Target.Column  X Then
If Cells(Target.Row, X).Value  "" Then
Cells(Target.Row, X).Interior.ColorIndex = 6
Else
Cells(Target.Row, X).Interior.ColorIndex = xlNone
End If
End If
Next X
End If
End If
End Sub

Im Moment ist es so, das wenn Du ein "x" setzt obwohl schon eins vorhanden ist die bereits belegte Zelle gefärbt wird.
Wenn Du abgelenkt warst, so weißt Du nun was die "letzte Schicht" war.
Entfernst Du das neu gesetzte "x" wieder bleibt die alte Schicht trotzdem noch markiert!
Ich würde aber mit Daten Gültigkeit die max. Einträge des Zeilenbereichs auf 2 setzen!
Warum?
Wenn Du 2 mal ein "x" setzt wird die erste Zelle auch gefärbt!
Dann weißt Du wieder nichts (sollte nochmal ein Anruf dazwischen kommen) ;o)
Gruß Matthias

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim X& If Not Intersect(Target, Range("Bereich")) Is Nothing And Target.Count = 1 Then If WorksheetFunction.CountA(Range(Cells(Target.Row, 5), Cells(Target.Row, 9))) = 1 Then Range(Cells(Target.Row, 5), Cells(Target.Row, 9)).Interior.ColorIndex = xlNone Exit Sub End If If Target.Value "" Then Target.Interior.ColorIndex = xlNone For X = 5 To 9 If Target.Column X Then If Cells(Target.Row, X).Value "" Then Cells(Target.Row, X).Interior.ColorIndex = 6 Else Cells(Target.Row, X).Interior.ColorIndex = xlNone End If End If Next X End If End If End Sub

Beliebteste Forumthreads (12 Monate)

Makro nach Zelländerung ausführen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread