title image


Smiley Re: Das ist kein Problem
Hi,



hatte mich irgendwann mal kurz gewundert, dass man nur die neuen Zeilen

überträgt. Aber es gibt ja auch Fälle wo so was nötig ist.



Hab jetzt eine Zeile eingefügt, wo eine Zelle der jeweiligen Zeile

kopiert wird.

Welche Spalte kann man oben mit der Variable aktSpalte bestimmen.

Auch leicht möglich wäre, wenn man die ganze Zeile kopiert, so wie

wenn die Nummer nicht gefunden wird.







      

Option Explicit

Public Sub Vergleich()

Dim Quelle As Worksheet

Dim Ziel As Worksheet

Dim qlr As Long, zlr As Long

Dim aktSpalte As Integer

Dim Hilfspalte As Integer, Hilfstext As String

Dim i As Long

Dim c As Range



aktSpalte = 2

Hilfspalte = 20

Hilfstext = "abc"



Set Quelle = Workbooks("Mappe2").Sheets(1)

Set Ziel = Workbooks("Mappe1").Sheets(1)

qlr = Quelle.Cells(Rows.Count, 1).End(xlUp).Row

zlr = Ziel.Cells(Rows.Count, 1).End(xlUp).Row



For i = 1 To qlr  'Textdatei durchlaufen und fehlende Nummern übertragen, und gefundenen Markieren

    Set c = Ziel.Columns("A:A").Find(What:=Quelle.Cells(i, 1).Value, After:=Ziel.Cells(1, 1), LookIn:=xlFormulas, LookAt _

        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _

        False)

    If c Is Nothing Then ' Wenn Nummer in Ziel nicht gefunden, dann unten anfügen, und Markieren

        zlr = zlr + 1

        Ziel.Rows(zlr).Value = Quelle.Rows(i).Value

        Ziel.Cells(zlr, Hilfspalte).Value = Hilfstext

    Else  ' Wenn Nummer gefunden Zeile markieren, und QuellZeile kopieren

        Ziel.Cells(c.Row, Hilfspalte).Value = Hilfstext

        Ziel.Cells(c.Row, aktSpalte).Value = Quelle.Cells(i, aktSpalte).Value

    End If

Next i



For i = zlr To 2 Step -1 'Nicht gefunden Nummern löschen

    If Ziel.Cells(i, Hilfspalte).Value <> Hilfstext Then Ziel.Rows(i).Delete

Next i

Ziel.Columns(Hilfspalte).Clear

End Sub



 



Code eingefügt mit Syntaxhighlighter 3.0




Gruss Klapperstorch
----------------------------------------------------
Aus Felern lernt man oder...
Edjucashon isnt woerking

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: