Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

2Bedingungen: Wert in D suchen und ZelleA muss lee

2Bedingungen: Wert in D suchen und ZelleA muss lee
12.03.2017 14:50:42
albin
Hallo
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 2Bedingungen: Wert in D suchen und ZelleA muss lee
12.03.2017 15:00:19
Werner
Hallo Albin,
so
If Not c Is Nothing And Cells(c.Row, 1) = "" Then
oder so
If Not c Is Nothing And c.Offset(, -3) = "" Then
Gruß werner
AW: 2Bedingungen: Wert in D suchen und ZelleA muss lee
12.03.2017 15:53:32
albin
Hoi Werner
Danke für das rasche Feedback.
Musste = mit ersetzen. Da sonst bei der Abfrage mit dem Mauszeiger der Wert "=" angezeigt
wurde.
If Not c Is Nothing And Cells(c.Row, 1) "" Then
Läuft jetzt wie eine 1.
Noch einen schönen Sonntag.
Albin
Gerne u. Danke für die Rückmeldung. o.w.T.
12.03.2017 15:59:59
Werner
Anzeige

316 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige