Thema Datum  Von Nutzer Rating
Antwort
30.11.2011 15:30:17 Ömer
Solved
Blau 2 Tabellen miteinander vergleichen
 30.11.2011 18:51:19 Till
NotSolved
30.11.2011 19:37:54 Ömer
NotSolved
30.11.2011 20:26:52 Till
NotSolved
30.11.2011 20:30:18 Ömer
Solved

Ansicht des Beitrags:
Von:
Till		 Datum:
30.11.2011 18:51:19		 Views:
1021		 Rating:
     
Antwort:
  Ja
Thema:
2 Tabellen miteinander vergleichen		 
Private Sub Befüllen(spalte1 As Integer, spalte2 As Integer, vergleichstabelle As Worksheet)
   
    With Eingangstabelle
        lZeile1 = .Cells(.Rows.Count, 1).End(xlUp).Row
    End With
   
    With vergleichstabelle
        lZeile2 = .Cells(.Rows.Count, 1).End(xlUp).Row
    End With
   
    i = 3
    While i <= lZeile1
        For j = 2 To lZeile2
            If Eingangstabelle.Cells(i, spalte1).Value = vergleichstabelle.Cells(j, spalte2).Value Then
                Ergebnistabelle.Cells(i - 2, spalte1).Value = vergleichstabelle.Cells(j, spalte2 + 1).Value
              
            Exit For
            End If
        Next
        If j > lZeile2 Then
            Ergebnistabelle.Cells(i - 2, spalte1).Value = Eingangstabelle.Cells(i, spalte1).Address
        End If
            i = i + 1
      Wend
      With Eingangstabelle
        lZeile1 = .Cells(.Rows.Count, 1).End(xlUp).Row
    End With
   
    With vergleichstabelle
        lZeile2 = .Cells(.Rows.Count, 1).End(xlUp).Row
    End With
  
End Sub

Gruß

Till

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
30.11.2011 15:30:17 Ömer
Solved
Blau 2 Tabellen miteinander vergleichen
 30.11.2011 18:51:19 Till
NotSolved
30.11.2011 19:37:54 Ömer
NotSolved
30.11.2011 20:26:52 Till
NotSolved
30.11.2011 20:30:18 Ömer
Solved