Thema Datum  Von Nutzer Rating
Antwort
05.08.2016 18:08:33 Marc
NotSolved
Blau User Form Daten Abgleich
05.08.2016 19:28:37 Gast30051
NotSolved

Ansicht des Beitrags:
Von:
Gast30051		 Datum:
05.08.2016 19:28:37		 Views:
784		 Rating:
     
Antwort:
  Ja
Thema:
User Form Daten Abgleich

Hy hab das was gefunden was fast funct....

wie muss ich den unteren code ändern das er mir nur die Werte in Tabelle3 kopiert die NICHT übereinstimmen

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
With Worksheets("Tabelle1")                     ' letzte Zeile in Spalte A Tabelle1
        LoLetzte1 = IIf(IsEmpty(.Cells(Rows.Count, 1)), _
            .Cells(Rows.Count, 1).End(xlUp).Row, .Rows.Count)
    End With
    With Worksheets("Tabelle2")                     ' letzte Zeile in Spalte B Tabelle2
        LoLetzte2 = IIf(IsEmpty(.Cells(Rows.Count, 2)), _
            .Cells(Rows.Count, 2).End(xlUp).Row, .Rows.Count)
    End With
    For LoI = 1 To LoLetzte1                        ' 1. Schleife alle Werte Spalte A
        For LoJ = 1 To LoLetzte2                    ' 2. Schleife alle Werte Spalte B
            ' Leerzellen nicht kennzeichnen
            If Worksheets("Tabelle1").Cells(LoI, 1) <> "" Then
                If Worksheets("Tabelle2").Cells(LoJ, 2) <> Worksheets("Tabelle1").Cells(LoI, 1) Then
                    ' Zellen sind ungleich, Zeile Kopieren
                     
                    Worksheets("Tabelle1").Rows(LoI).Copy
                    With Worksheets("Tabelle3")
                        ' letzte belegte Zeile in Tabelle3 ermitteln
                        Loletzte3 = .UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
                        ' ermittelte Zeilennummer mit max. Anzahl vergleichen
                        If Loletzte3 > Rows.Count Then
                            MsgBox "In Tabelle3 ist keine Zeile mehr frei"
                            ' Zwischenspeicher löschen
                            Application.CutCopyMode = True
                            Exit Sub
                        End If
                        ' Werte übertragen
                        .Rows(Loletzte3).PasteSpecial Paste:=xlValues
                        ' Formate übertragen
                        .Rows(Loletzte3).PasteSpecial Paste:=xlFormats
                    End With
                    ' innere Schleife verlassen da Datensatz gefunden
                    Exit For
                End If
            End If
        Next LoJ
    Next LoI
    Application.CutCopyMode = False                 ' Zwischenspeicher löschen
    Application.ScreenUpdating = True               ' Bildschirmaktualisierung ein

 

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
05.08.2016 18:08:33 Marc
NotSolved
Blau User Form Daten Abgleich
05.08.2016 19:28:37 Gast30051
NotSolved