Vergleichen

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Vergleichen

Vergleichen von Stephan vom 26.08.2004 17:11:38

AW: Vergleichen - von Roland Hochhäuser am 26.08.2004 17:25:45
AW: Vergleichen - von Stephan am 26.08.2004 17:36:35
- AW: Vergleichen - von Roland Hochhäuser am 26.08.2004 17:41:21
  - AW: Vergleichen - von Stephan am 26.08.2004 17:48:37

Betrifft: Vergleichen von: Stephan
Geschrieben am: 26.08.2004 17:11:38

Hi,

ich habe zwei Tabellen, in der einen stehen in Spalte A Namen/Nummern in der anderen stehen in Spalte A ein Teil der Namen/Nummern aus der ersten Tabelle. Ich moechte nun die Werte aus der Spalte B der zweiten Tabelle in Spalte I der ersten Tabelle unter dem richtigen Namen/Nummer einfuegen, bzw. addieren.

Vielen Dank im Voraus.

Betrifft: AW: Vergleichen von: Roland Hochhäuser
Geschrieben am: 26.08.2004 17:25:45

Hallo Stephan,
versuch mal das:

Sub Vergleichen()
Dim i As Integer, j As Integer, wa As Worksheet, wb As Worksheet
Set wa = Worksheets("Tabelle1")
Set wb = Worksheets("Tabelle2")
For i = 1 To wa.Range("A65536").End(xlUp).Row
    For j = 1 To wb.Range("A65536").End(xlUp).Row
        If wa.Range("A" & i).Value = wb.Range("A" & j).Value _
        Then wa.Range("I" & i).Value = wb.Range("B" & j).Value
    Next
Next
Set wa = Nothing
Set wb = Nothing
End Sub

Gruß
Roland

Betrifft: AW: Vergleichen von: Stephan
Geschrieben am: 26.08.2004 17:36:35

Hi Roland,

vielen Dank fuer die schnelle Hilfe!!!
Die Werte werden zwar nicht zu moeglich vorhandenen in Spalte I addiert, aber es funktioniert super.

see u
stephan

Betrifft: AW: Vergleichen von: Roland Hochhäuser
Geschrieben am: 26.08.2004 17:41:21

hab das addieren glett überlesen . . . so müsste es gehen

Sub Vergleichen()
Dim i As Integer, j As Integer, wa As Worksheet, wb As Worksheet
Set wa = Worksheets("Tabelle1")
Set wb = Worksheets("Tabelle2")
For i = 1 To wa.Range("A65536").End(xlUp).Row
    For j = 1 To wb.Range("A65536").End(xlUp).Row
        If wa.Range("A" & i).Value = wb.Range("A" & j).Value _
        Then wa.Range("I" & i).Value = wa.Range("I" & i).Value + wb.Range("B" & j).Value
    Next
Next
Set wa = Nothing
Set wb = Nothing
End Sub

Gruß
Roland