das Makro kopiert Zeilen aus Tabelle 2 in Tabelle 1, wenn in Tabelle 1, Spalte A ein Wert eingegeben wird, der in Tabelle 2, Spalte A vorkommt.
So weit, so gut. Ich möchte das Makro so modifizieren, das die Daten nicht mehr mit Tabelle 2, Spalte A sondern mit externer Datei (daten.xls) Spalte G verglichen werden.
Die Eingebe soll natürlich mit passender Spalte G in Tabelle 1 verglichen werden.
Vielen Dank,
Uwe
Sub makro1()
For Each ergebnis In Selection.Offset(-1, 0)
For Each zelle In Sheets("Tabelle2").Range("Nummern")
If Selection.Offset(-1, 0) = "" Then GoTo bye
If ergebnis.Offset(0, 1) <> "" Then GoTo bye
If zelle = ergebnis Then
For i = 1 To 5
ergebnis.Offset(0, i).Select
With Selection
.Value = zelle.Offset(0, i).Value
.Interior.ColorIndex = zelle.Offset(0, i).Interior.ColorIndex
.Interior.Pattern = zelle.Offset(0, i).Interior.Pattern
.HorizontalAlignment = zelle.Offset(0, i).HorizontalAlignment
.VerticalAlignment = zelle.Offset(0, i).VerticalAlignment
.WrapText = zelle.Offset(0, i).WrapText
.Orientation = zelle.Offset(0, i).Orientation
.ShrinkToFit = zelle.Offset(0, i).ShrinkToFit
.MergeCells = zelle.Offset(0, i).MergeCells
.Font.ColorIndex = zelle.Offset(0, i).Font.ColorIndex
.Font.Size = zelle.Offset(0, i).Font.Size
.Font.Bold = zelle.Offset(0, i).Font.Bold
End With
Next i
End If
bye:
Next zelle
Next ergebnis
End Sub