Office: Überschneidung in einer Zelle Verhindern

Hallo zusammen, folgendes Problem. Ich erstelle im Moment einen Dienstplan für meine Abteilung und suche nach einem VBA Code, welcher eine Fehlermeldung gibt, wenn ein U (für Urlaub ) eingetragen wird und in der gleichen Spalte 5 Reihen darunter schon das Kürzel der Person steht. Also z.B. A1 ist Müller, A5 ist Dienst, B1 soll U aber B5 steht Mü. Ab besten wäre es, wenn das für die ganze Zeile so gehen würde. Gibt es da eine Möglichkeit? Danke schonmal !

 

starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf Deine Tabelle, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt nur in dieser Tabelle.

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row = 1 And Target.Offset(4, 0) <> "" And UCase(Target) = "U" Then
        MsgBox "flasche Eingabe"
    End If
End Sub

 

Super vielen Dank, das funktioniert im Prinzip gut! Allerdings steht in der Zelle manchmal eine Formel, sodass dann auch eine Fehlermeldung kommt. Kann man das noch modifizieren, sodass "" auch Formeln im Hintergrund erlaubt?

 

im ersten Beitrag Stand es wird ein "U" eingegeben, wenn das nicht mehr stimmt, habe ich für den Papierkorb gearbeitet. Das mache ich nbicht gerne und bin darum raus.
Viel Erfolg noch.
Di Veränderung der Formel bekommst Du selber hin.

Gruß Hajo

 

Vielen Dank, ja ich habe einfach das <> """ durch ein gleich des Werts ersetzt, dann funktioniert es bestens.