Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Sheets vergleichen u. Daten übertragen??? - VBA

Forumthread: Sheets vergleichen u. Daten übertragen? - VBA

Sheets vergleichen u. Daten übertragen? - VBA
15.11.2004 16:33:08
birgit
Hallo Leute!!
Habe mal wieder ein kleines Problem!!
Habe 2 sheets. Im sheet 1 ist eine Tabelle, in Spalte A stehen Namen und in den Spalten B bis E irgendwelche Daten. Im sheet 2 stehen in der Spalte A auch Namen und in den Spalten B bis E irgendwelche Daten.
Nun möchte ich per Makro erreich, dass zwischen den Beiden sheets die Namen verglichen werden und bei Übereinstimmung die dazugehörigen Daten aus dem sheet 2 ins sheet 1 ab Spalte F eingetragen werden.
Wer kann mir dabei helfen?
Gruß
birgit
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sheets vergleichen u. Daten übertragen? - VBA
15.11.2004 17:10:54
Roland
Hallo Birgit,
ungefähr so:

Sub Von2nach1undBnachF()
Dim i As Integer, j As Integer
For i = 2 To Sheets(2).Range("A65536").End(xlUp).Row
For j = 2 To Sheets(1).Range("A65536").End(xlUp).Row
If Sheets(2).Range("A" & i).Value = Sheets(1).Range("A" & j).Value Then
Sheets(1).Range("F" & j & ":I" & j).Value = Sheets(2).Range("B" & i & ":E" & i).Value
End If
Next
Next
End Sub

Gruß Roland
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige