Thema Datum  Von Nutzer Rating
Antwort
24.11.2017 09:45:18 Gast9612
NotSolved
24.11.2017 17:17:08 Mackie
NotSolved
26.11.2017 13:31:11 Gast 9612
NotSolved
24.11.2017 18:02:33 Gast70117
NotSolved
26.11.2017 13:27:33 Gast9612
NotSolved
26.11.2017 14:09:16 Mackie
NotSolved
26.11.2017 16:06:00 fkw48
NotSolved
26.11.2017 16:09:58 Mackie
NotSolved
26.11.2017 16:22:24 Gast9612
NotSolved
Blau Abgleichen und einsetzen
 27.11.2017 09:38:13 Gast70117
NotSolved
27.11.2017 22:28:18 Gast9612
NotSolved

Ansicht des Beitrags:
Von:
Gast70117		 Datum:
27.11.2017 09:38:13		 Views:
613		 Rating:
     
Antwort:
  Ja
Thema:
Abgleichen und einsetzen

Hallo Andreas,

neue Woche, neues Glück

Sub Test()
Dim MatrixA As Range, MatrixB As Range, cDf As Range
Dim x As Long, y As Long, z As Long

   Set MatrixA = Range("D2")
   Set MatrixA = Range(MatrixA, MatrixA.End(xlDown))
   Set MatrixB = Range("I2")
   Set MatrixB = Range(MatrixB, MatrixB.End(xlDown))
   
   With MatrixB
      z = .Cells(.Cells.Count).Row
   End With
   With MatrixA
      For x = .Cells(.Cells.Count).Row To 2 Step -1
         For y = z To 2 Step -1
            If MatrixB.Cells(y) = MatrixA.Cells(x) And _
               MatrixB.Cells(y).Offset(, 3) = MatrixA.Cells(x).Offset(, 2) And _
                  MatrixB.Cells(y).Offset(, 1) <> MatrixA.Cells(x).Offset(, 1) Then
                  MatrixB.Cells(y).Offset(, 1) = MatrixA.Cells(x).Offset(, 1)
                  z = y - 1
                  Exit For
            End If
         Next y
      Next x
   End With
   
End Sub

 

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.11.2017 09:45:18 Gast9612
NotSolved
24.11.2017 17:17:08 Mackie
NotSolved
26.11.2017 13:31:11 Gast 9612
NotSolved
24.11.2017 18:02:33 Gast70117
NotSolved
26.11.2017 13:27:33 Gast9612
NotSolved
26.11.2017 14:09:16 Mackie
NotSolved
26.11.2017 16:06:00 fkw48
NotSolved
26.11.2017 16:09:58 Mackie
NotSolved
26.11.2017 16:22:24 Gast9612
NotSolved
Blau Abgleichen und einsetzen
 27.11.2017 09:38:13 Gast70117
NotSolved
27.11.2017 22:28:18 Gast9612
NotSolved