VBA MsgBox

[skoppe]

Hallo zusammen,

vielleicht könnt Ihr mir helfen.

Ich habe eine Liste zur Personalplanung geschrieben. Dabei zeigt die Tabelle 2 alle Mitarbeiter (Name,Vorname etc.), Tabelle 3 und folgende listet die einzelnen Monate.
In der Tabelle 2 befinden sich die Namen der Mitarbeiter in der Spalte C.

In den Tabellen 3 und folgende soll der Name für jeden Wochentag in Spalte D eingetragen werden (manuell). Nun hätte ich aber gerne die Möglichkeit, dass VBA mir eine MsgBox mit "Name nicht vorhanden" auswirft, wenn der eingetragene Wert in Tabelle 2 nicht gefunden wurde.



Danke

[ralf_b]

den code in das Codemodul von "DieseArbeitsmappe" einfügen und testen. Tabellennamen prüfen.

Code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  Dim RFund As Range
  If Not Sh Is Nothing Then
    If Sh.Name <> "Tabelle2" Then
     
      With Sheets("Tabelle2").Columns("C")
        If Target <> "" And Target.Column = 4 Then
        Set RFund = .Find(Target.Value, LookIn:=xlValues, lookAt:=xlWhole)
        If RFund Is Nothing Then
          MsgBox " Mitarbeiter. " & Target & " existiert nicht"
        End If
        End If
      End With
    End If
  End If
End Sub

[skoppe]

Vielen Vielen Dank, perfekt!!

[ralf_b]

macht 9,99 €  

[RPP63]

Shift-del hatte in einem anderen Forum 1.000,- Stundenlohn aufgerufen.
Hast Du nur 36 Sekunden dran gesessen?
Chapeau!

[ralf_b]

scheinbar bin ich genügsamer als Andere.    Und nein, mind. 36 sek hat schon das Lesen der Problemstellung gedauert. 

[snb]

Warum nicht die Dateneingabe für nicht existierende Arbeiter verhindern ?