Thema Datum  Von Nutzer Rating
Antwort
Rot Zeile löschen wenn vlookup = false
 31.03.2022 17:13:38 Saka
NotSolved
31.03.2022 17:35:41 Gast68726
Solved
31.03.2022 17:57:33 ralf_b
NotSolved
06.04.2022 16:02:17 saka
NotSolved

Ansicht des Beitrags:
Von:
Saka		 Datum:
31.03.2022 17:13:38		 Views:
1816		 Rating:
     
Antwort:
  Ja
Thema:
Zeile löschen wenn vlookup = false

Hallo,

ich komme leider trotz vieler Sucherei nicht weiter und wende mich nun an das begehrte Forum.

In meinem Fall habe ich zwei Datensätze, die ich auf eine per Vlookup abgleichen will.

Sollte der Wert von wb1 in wb2 gefunden werden, soll in wb2 die Wert aus der gefunden Zeile und den Spalten A-K kopiert und in wb1 in Zeile x und Spalten A-K eingefügt werden. Sollte allerdings der Wert von wb1 nicht in wb2 enthalten sein (also ein Error), dann soll die Zeile x in wb1 gelöscht werden.

Der nachfolgende Code soll das Ziel ggf. etwas besser darstellen.

?
1
2
3
4
5
6
7
8
9
10
11
12
Set Lookuprange = wb2.Sheets(1).Range("A:A")
    For x = lastrow To 2 Step -1
        
        If Application.Vlookup(wb1.Sheets(1).Cells(x, 1).Value, Lookuprange, 1, 0) = True (bzw gefunden) Then
            wb2.Sheets(1).Range(Cells(gefundene Zeile, 1), Cells(gefundene Zeile, 11).Copy _
            Destination:= wb1.Sheets(1).Range(Cells(x, 1), Cells(x, 11)
 
        Else: (also wenn nicht gefunden bzw Error)
            wb1.Sheets(1).Rows(x).EntireRow.Delete
        End If
 
    Next x

 

Kann mir bitte jemand behilflich sein? Ich komme hier nicht weiter.

Viele Grüße

Saka

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Zeile löschen wenn vlookup = false
 31.03.2022 17:13:38 Saka
NotSolved
31.03.2022 17:35:41 Gast68726
Solved
31.03.2022 17:57:33 ralf_b
NotSolved
06.04.2022 16:02:17 saka
NotSolved