Thema Datum  Von Nutzer Rating
Antwort
24.12.2016 19:56:46 René
NotSolved
25.12.2016 00:48:11 Onur
NotSolved
26.12.2016 18:38:07 Werner
NotSolved
26.12.2016 19:54:30 Onur
NotSolved
26.12.2016 20:24:58 Werner
NotSolved
26.12.2016 20:42:02 Gast97509
NotSolved
26.12.2016 20:51:45 Onur
***
NotSolved
28.12.2016 18:09:58 Gast36873
NotSolved
28.12.2016 19:02:39 Onur
NotSolved
28.12.2016 20:48:47 Werner
NotSolved
Rot Spalten Vergleich
29.12.2016 12:07:21 Werner
Solved
29.12.2016 21:55:08 Gast91286
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
29.12.2016 12:07:21		 Views:
660		 Rating:
     
Antwort:
 Nein
Thema:
Spalten Vergleich

Hallo Rene,

lass das mal laufen (in meinem ersten Code war eh noch ein Fehler drin).

Wenn das Ergebnis das selbe ist wie beim Code von Onur, dann liegt der Fehler definitiv in deinem Datenbestand. Der Code von Onur läuft nämlich auch richtig durch und kopiert keine Doppler.

 

Public Sub Doppler_raus()
Dim loLetzteQ As Long
Dim loLetzteZ As Long

Application.ScreenUpdating = False
loLetzteQ = Sheets("Tabelle1").Cells(Rows.Count, 3).End(xlUp).Row
loLetzteZ = Sheets("Tabelle2").Cells(Rows.Count, 3).End(xlUp).Row

For i = loLetzteQ To 2 Step -1
    If Application.WorksheetFunction.CountIf(Sheets("Tabelle2").Range("C:C"), Cells(i, 3)) > 0 Then
        Rows(i).Delete
    End If
Next i

loLetzteQ = Sheets("Tabelle1").Cells(Rows.Count, 3).End(xlUp).Row

With Sheets("Tabelle1")
    If loLetzteQ > 1 Then
        .Rows("2:" & loLetzteQ).Copy
        Sheets("Tabelle2").Rows(loLetzteZ + 1).Insert
        Application.CutCopyMode = False
        Application.ScreenUpdating = True
        MsgBox "Es wurden " & loLetzteQ - 1 & " neue Datensätze kopiert."
    Else
        Application.ScreenUpdating = True
        MsgBox "Es sind keine neuen Daten vorhanden."
    End If
End With
End Sub

 

Gruß Werner

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:



  • 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
24.12.2016 19:56:46 René
NotSolved
25.12.2016 00:48:11 Onur
NotSolved
26.12.2016 18:38:07 Werner
NotSolved
26.12.2016 19:54:30 Onur
NotSolved
26.12.2016 20:24:58 Werner
NotSolved
26.12.2016 20:42:02 Gast97509
NotSolved
26.12.2016 20:51:45 Onur
***
NotSolved
28.12.2016 18:09:58 Gast36873
NotSolved
28.12.2016 19:02:39 Onur
NotSolved
28.12.2016 20:48:47 Werner
NotSolved
Rot Spalten Vergleich
29.12.2016 12:07:21 Werner
Solved
29.12.2016 21:55:08 Gast91286
NotSolved