Microsoft Excel

Herbers Excel/VBA-Archiv

Vergleichen

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


  


Betrifft: AW: Vergleichen von: Stephan
Geschrieben am: 26.08.2004 17:48:37

Perfekt, nochmals vielen Dank!!


 

Beiträge aus den Excel-Beispielen zum Thema "Vergleichen"