Office: (Office 2016) Vba

Hallo Zusammen,

nach dem man mir nun gesagt hat Makro Aufzeichnen sei alle nicht so toll, habe ich mich echt ne Weile mit VBA auseinandergesetzt :-)

nun habe ich die nachfolgenden Codes, der obere funktioniert super der untere nicht :-( obwohl ich ihn nur auf eine andere Liste und andere Spalten übertragen habe... Nun ist es aber so das in der Suchspalte O nicht immer Inhalte stehen, kann das der Fehler sein?

PHP:

Sub SVERWEIS_aus_Shoppingcart_aus_EVO()
Debug.Print Now

Dim i As Long, letzteZeile As Long
Dim Arbeitsmappe As Workbook
Dim Datenbasis As Worksheet
Dim Ziel As Worksheet
Dim Bereich As Range
Dim ZelleFirma As Range
Dim WsF As WorksheetFunction

Set Arbeitsmappe = ThisWorkbook
Set Datenbasis = Arbeitsmappe.Worksheets("Shoppingcart_aus_EVO")
Set Ziel = Arbeitsmappe.Worksheets("Arbeitsliste")

letzteZeile = Datenbasis.Range("K" & Rows.Count).End(xlUp).Row

Set Bereich = Datenbasis.Range("A1:W" & letzteZeile)
Set WsF = Application.WorksheetFunction

For i = 2 To Ziel.Range("K" & Rows.Count).End(xlUp).Row
    On Error Resume Next
    Ziel.Range("F" & i).Value = WsF.VLookup(Ziel.Range("K" & i).Value, Bereich, 2, False)
     Ziel.Range("C" & i).Value = WsF.VLookup(Ziel.Range("K" & i).Value, Bereich, 23, False)
     Ziel.Range("J" & i).Value = WsF.VLookup(Ziel.Range("K" & i).Value, Bereich, 10, False)
     Ziel.Range("L" & i).Value = WsF.VLookup(Ziel.Range("K" & i).Value, Bereich, 5, False)
     Ziel.Range("O" & i).Value = WsF.VLookup(Ziel.Range("K" & i).Value, Bereich, 20, False)
     Ziel.Range("N" & i).Value = WsF.VLookup(Ziel.Range("K" & i).Value, Bereich, 4, False)
    Ziel.Range("G" & i).Value = "DG"
    
Next i

Debug.Print Now
End Sub
Sub SVERWEIS_SAP_Bericht()
Debug.Print Now

Dim i As Long, letzteZeile As Long
Dim Arbeitsmappe As Workbook
Dim Datenbasis As Worksheet
Dim Ziel As Worksheet
Dim Bereich As Range
Dim ZelleFirma As Range
Dim WsF As WorksheetFunction

Set Arbeitsmappe = ThisWorkbook
Set Datenbasis = Arbeitsmappe.Worksheets("SAP_Bericht")
Set Ziel = Arbeitsmappe.Worksheets("Arbeitsliste")

letzteZeile = Datenbasis.Range("O" & Rows.Count).End(xlUp).Row

Set Bereich = Datenbasis.Range("A2:W" & letzteZeile)
Set WsF = Application.WorksheetFunction

For i = 2 To Ziel.Range("O" & Rows.Count).End(xlUp).Row
    On Error Resume Next
    Ziel.Range("T" & i).Value = WsF.VLookup(Ziel.Range("O" & i).Value, Bereich, 2, False)
    Ziel.Range("P" & i).Value = WsF.VLookup(Ziel.Range("O" & i).Value, Bereich, 9, False)
     Ziel.Range("Q" & i).Value = WsF.VLookup(Ziel.Range("O" & i).Value, Bereich, 7, False)
     
    
Next i
 
Debug.Print Now
End Sub

Ich hoffe hier kann mir Jemand helfen?

 

Hallo,

die VBA-Funktion "VLookup" entspricht im Arbeitsblatt der "SVERWEIS"-Funktion und es ist klar, dass, wenn diese Funktion genau den entscheidenden Wert, nach dem sie suchen soll, nicht erhält, es zu einem Fehler kommt - im Arbeitsblatt wäre das ein "#NV" (="nicht verfügbar").

Es gibt dann im Prinzip 2 Möglichkeiten, dieses Problem zu umschiffen:

1. Man bettet die VLOOKUP-Funktion in eine IFNA(…)-Funktion (entspricht im Arbeitsblatt: WENNNV(…)) ein, zB.
   
   Code:

      '...
      [COLOR="#0000CD"][B]Dim Suche As Variant[/B][/COLOR]
      With Ziel
        For i = 2 To .Range("O" & Rows.Count).End(xlUp).Row
          On Error Resume Next
          Suche = .Range("O" & i).Value
          .Range("T" & i).Value = [COLOR="#0000CD"][B]WsF.IfNa([/B][/COLOR]WsF.VLookup(Suche, Bereich, 2, False)[COLOR="#0000CD"][B], "Leer2")[/B][/COLOR]
          .Range("P" & i).Value = [COLOR="#0000CD"][B]WsF.IfNa([/B][/COLOR]WsF.VLookup(Suche, Bereich, 9, False)[COLOR="#0000CD"][B], "Leer9")[/B][/COLOR]
          .Range("Q" & i).Value = [COLOR="#0000CD"][B]WsF.IfNa[/B][/COLOR](WsF.VLookup(Suche, Bereich, 7, False)[COLOR="#0000CD"][B], 77.5)[/B][/COLOR]
        Next i
      End With
     '...
   

2. oder aber du überprüfst bereits die Variant-Variable "Suche", ob sie einen Leer-Wert hat mit einer der Funktionen:
   IsEmpty(Suche) oder IsNull(Suche) oder Len(Suche)=0
   
   Code:

      '....
      [COLOR="#0000CD"][B]Dim Suche As Variant[/B][/COLOR]
      With Ziel
        For i = 2 To .Range("O" & Rows.Count).End(xlUp).Row
          On Error Resume Next
          Suche = .Range("O" & i).Value
          [COLOR="#0000CD"][B]If IsEmpty(Suche) Then Suche = "LeerWert"[/B][/COLOR]
          .Range("T" & i).Value = WsF.VLookup(Suche, Bereich, 2, False)
          .Range("P" & i).Value = WsF.VLookup(Suche, Bereich, 9, False)
          .Range("Q" & i).Value = WsF.VLookup(Suche, Bereich, 7, False)
        Next i
      End With
     '....
   

 

Huhu vielen Dank für deine Hilfreichen Antworten, ich werde es gleich mal ausprobieren welche Variante für mich die Sinnvollste ist, aber tausend Dank....

 

Ich Danke dir sehr das hat super geklappt :-)