Thema Datum  Von Nutzer Rating
Antwort
23.05.2016 10:44:29 Andi
NotSolved
Blau Tabellen vergleichen und Zellen kopieren
23.05.2016 11:22:24 Crazy Tom
NotSolved
23.05.2016 13:19:01 Andi
NotSolved

Ansicht des Beitrags:
Von:
Crazy Tom		 Datum:
23.05.2016 11:22:24		 Views:
600		 Rating:
     
Antwort:
  Ja
Thema:
Tabellen vergleichen und Zellen kopieren

Hi

in meinem Test stehen die zu suchenden Werte in den Zellen A2 und B2

wenn die beiden Zellen in Tabelle2 gefunden werden, werden die Zellen E2 bis P2 kopiert

und in die Spalten E bis P auf Tabelle2 eingefügt

Sub test()
    Dim c As Range, rngBereich As Range
    Dim firstAddress As String
    With Sheets("Tabelle2")
        Set rngBereich = .Range("C2:D" & .Cells(.Rows.Count, 4).End(xlUp).Row)
        Set c = rngBereich.Find(Range("A2").Value, LookIn:=xlValues, lookat:=xlWhole)
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
                If .Cells(c.Row, 4).Value = Range("B2").Value Then
                    Application.ScreenUpdating = False
                    Range("E2:P2").Copy
                    .Cells(c.Row, 5).PasteSpecial Paste:=xlValues
                    Application.CutCopyMode = False
                    Application.ScreenUpdating = True
                End If
                Set c = rngBereich.FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstAddress
        End If
    End With
    Set rngBereich = Nothing
    Set c = Nothing
End Sub

 

MfG Tom

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
23.05.2016 10:44:29 Andi
NotSolved
Blau Tabellen vergleichen und Zellen kopieren
23.05.2016 11:22:24 Crazy Tom
NotSolved
23.05.2016 13:19:01 Andi
NotSolved