Sverweis nicht anwenden wenn

Forumthread: Sverweis nicht anwenden wenn

26.11.2019 22:02:32

Silke

Hallo Leute.
Ich habe ein Beispiel hochgeladen
Wenn in dem Grauen Bereich eine Zahl (Alte oder Neue Bestellnummer) eingegeben wird.
Wird in der Zelle davor per SVerweis die Bezeichnung eingegeben.
Wenn die Zahl nicht vorhanden ist soll "nicht vorhanden" rein geschrieben werden.
Was ich nicht hinbekomme ... wenn eine Zahl eingeben wird die in den Spalte F und G nicht vorhanden ist, aber schon eine Bezeichnung in der Celle B steht soll der Wert in C bleiben.
Siehe im Beispiel .. in Zelle C6 steht "55555" und in B6 steht "Test" wenn man jetzt eine andere Zahl oder die gleiche in C6 eingibt soll "Test" bleiben und nicht durch "nicht vorhanden" ersetzt werden.
https://www.herber.de/bbs/user/133454.xls
Gruß
Silke

Hallo Silke,
damit das wie gewünscht funktioniert muss das Makro angepasst werden, das die Formeln in Spalte B einträgt.
LG
Franz

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngZelle As Range, varWhat
Dim bolFormel As Boolean
If Target.Row >= 5 And Target.Row <= 15 Then
Select Case Target.Column
' Eingabe der alten Ersatzteilnummer
Case 3
varWhat = Target.Value
Set rngZelle = Range("F4:G9").Find(what:=varWhat, LookIn:=xlValues, _
lookat:=xlWhole)
bolFormel = False
If rngZelle Is Nothing Then
If Target.Offset(0, -1).Text = "" Then
bolFormel = True
Else
If Target.Offset(0, -1).HasFormula = True Then
bolFormel = True
End If
End If
Else
If Target.Offset(0, -1).HasFormula = True Then
bolFormel = True
End If
End If
If bolFormel = True Then
Target.Offset(0, -1).FormulaR1C1 = _
"=IF(ISBLANK(RC[1]),"""",IF(ISERROR(VLOOKUP(RC[1],C6:C9,3,0))," _
& "IF(ISERROR(VLOOKUP(RC[1],C7:C9,2,0)),""nicht vorhanden""," _
&"VLOOKUP(RC[1],C7:C9,2,0)),VLOOKUP(RC[1],C6:C9,3,0)))"
Else
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End Select
End If
End Sub
'Makros um Ereignismakros zu aktivieren/deaktivieren
Sub Events_EIN()
Application.EnableEvents = True
End Sub
Sub Events_AUS()
Application.EnableEvents = True
End Sub

Hallo Leute,
ich habe mir die Situation nochmal angeschaut.
Die Formel müsste so funktionieren
Wenn in dem Grauen Bereich eine Zahl eingegeben
Z.B in Zelle C5 wird die Zahl 4001 eingegeben dann soll in den Spalten F und G (es gibt für die manche Produkte 2 Nummern) nach der Zahl gesucht werden.
Gibt es die Nummer in F oder G soll die Bezeichnung aus H in B5 geschrieben werden.
Wenn die Nummer in F und G nicht vorhanden ist soll erst in der Zelle ( im Beispiel B5 ) geschaut werden ob was drinnen steht.
Wenn nichts drinnen steht soll nicht vorhanden reingeschrieben werden.
Wenn was drinnen steht soll der Wert bleiben.
Wie in der Testdatei wenn in Zelle C6 eine Zahl geschrieben wird ( es wurde 55555 eingegeben )
Dann wird in F und G nach der Nummer gesucht.
Die Nummer ist nicht vorhanden also bleibt weil in B6 Test steht Test stehen
Gibt man in C6 4001 ein, soll DHL Paket bis 1 Kg in B6 geschrieben werden
Kann mir jemand helfen??
Liebe Grüße Silke

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim lngLastRowF As Long, lngLastRowG As Long, lngLastRow Dim Suche lngLastRowF = Cells(Rows.Count, 6).End(xlUp).Row lngLastRowG = Cells(Rows.Count, 7).End(xlUp).Row If lngLastRowF > lngLastRowG Then lngLastRow = lngLastRowF Else lngLastRow = lngLastRowG End If If Not Intersect(Range("C:C"), Target) Is Nothing Then Set Suche = Range("F4:G" & lngLastRow).Find(Target, LookIn:=xlValues) If Suche Is Nothing Then If Target.Offset(0, -1) = "" Then Target.Offset(0, -1) = "nicht vorhanden" End If Else If Suche.Address Like "*F*" Then Target.Offset(0, -1) = Suche.Offset(0, 2).Value Else Target.Offset(0, -1) = Suche.Offset(0, 1).Value End If End If End If End Sub

Beliebteste Forumthreads (12 Monate)

Forumthread: Sverweis nicht anwenden wenn

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread