2Bedingungen: Wert in D suchen und ZelleA muss lee
12.03.2017 14:50:42
albin
Bringe die zweite Bedienung nicht hin.
Die Spalte D ist mit mehreren Kurzeichen von Mitarbeiter versehen. (z.B: TKXX1)
In der Spalte A ist ab und zu ein X eingetragen.
Die Abfrage sollte nun folgendes durchführen.
Wurde das gesuchte Kurzeichen in D gefunden und ist die Zelle A, in der gleichen
Spalte leer, then mein Makro ausführen.
Wurde das Kurzzeichen gefunden, aber in der ZelleA von der gleichen Spalte hat es einen Wert (wie X, Zahl / Buchstaben) drin, dann then Exit
Da mal die halbe Miete.
Gruss und Dank
Albin
Sub ZweiBedingung()
Dim wb As Workbook
Dim ws As Worksheet
Dim user As String
Dim c As Range
user = LCase(Environ("Username"))
user = "TKXX1" ' für Test
Set ws = Worksheets("Adressen")
Set c = ws.Range("D:D").Find(user, LookAt:=xlWhole, LookIn:=xlValues)
If Not c Is Nothing Then 'gut
'' If Not c Is Nothing Then 'And ("c.Row:1") = "" Then
MsgBox "User vorhanden in der Zeile " & c.Row
Else
MsgBox "User vorhanden in der Zeile " & c.Row
MsgBox "Sorry " & LCase(Environ("Username")) & " oder darf ich Dir " & Mid( _
Application.UserName, InStr(Application.UserName, " ") + 1, 12) & " sagen, du hast keine _
Berechtigung!"
Exit Sub
End If
End Sub