Thema Datum  Von Nutzer Rating
Antwort
29.11.2019 11:55:27 Marian
NotSolved
29.11.2019 12:06:21 Mase
NotSolved
Rot Kopie, weiter und vergleichen
 29.11.2019 17:38:50 Werner
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
29.11.2019 17:38:50		 Views:
447		 Rating:
     
Antwort:
  Ja
Thema:
Kopie, weiter und vergleichen

Hallo,

ich hab es so verstanden:

Public Sub Kopieren()
Dim loLetzteQ As Long, loLetzteZ As Long

Application.ScreenUpdating = False

With Worksheets("Tabelle2")
    .Range("A2:A" & .Cells(.Rows.Count, "A").End(xlUp).Row).Copy
    With Worksheets("Tabelle1")
        .Range("E" & .Cells(.Rows.Count, "E").End(xlUp).Offset(1).Row).PasteSpecial Paste:=xlPasteValues
        .Range("F2:F" & .Cells(.Rows.Count, "E").End(xlUp).Row).FormulaLocal = "=ZEILE()"
        .Range("F2:F" & .Cells(.Rows.Count, "E").End(xlUp).Row).Value = .Range("F2:F" & .Cells(.Rows.Count, "E").End(xlUp).Row).Value
    End With
End With

With Worksheets("Tabelle3")
    .Range("B2:B" & .Cells(.Rows.Count, "A").End(xlUp).Row).FormulaLocal = "=WENN(ZÄHLENWENN(Tabelle2!$A:$A;Tabelle1!A2)>0;""x"";ZEILE())"
    .Range("A2:B" & .Cells(.Rows.Count, "A").End(xlUp).Row).Copy
    With Worksheets("Tabelle1")
        .Range("E" & .Cells(.Rows.Count, "E").End(xlUp).Offset(1).Row).PasteSpecial Paste:=xlPasteAll
        .Range("F1") = "x"
        .Columns("E:F").RemoveDuplicates Columns:=2, Header:=xlNo
        Application.CutCopyMode = False
        .Range("E:F").RemoveDuplicates Columns:=2, Header:=xlNo
        .Range("F1").ClearContents
        .Columns("F").ClearContents
    End With
    .Columns(2).ClearContents
End With
    
Application.CutCopyMode = False
End Sub

 

Voraussetzung: Im Blatt 3 in Spalte B stehen keine Daten und in Blatt 1 in Spalte F stehen keine Daten. Dort schreibt der Code Formeln rein.

 

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
29.11.2019 11:55:27 Marian
NotSolved
29.11.2019 12:06:21 Mase
NotSolved
Rot Kopie, weiter und vergleichen
 29.11.2019 17:38:50 Werner
NotSolved