Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
30.11.2011 15:30:17 |
Ömer |
|
|
2 Tabellen miteinander vergleichen |
30.11.2011 18:51:19 |
Till |
|
|
|
30.11.2011 19:37:54 |
Ömer |
|
|
|
30.11.2011 20:26:52 |
Till |
|
|
|
30.11.2011 20:30:18 |
Ömer |
|
|
Von:
Till |
Datum:
30.11.2011 18:51:19 |
Views:
1020 |
Rating:
|
Antwort:
|
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
2 Tabellen miteinander vergleichen |
30.11.2011 18:51:19 |
Till |
|
|
|
30.11.2011 19:37:54 |
Ömer |
|
|
|
30.11.2011 20:26:52 |
Till |
|
|
|
30.11.2011 20:30:18 |
Ömer |
|
|