Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
516to520
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
516to520
516to520
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige