Meine frage:
wie kann ich über UF nach dem vergleichen Zeile für Zeile 2 Tabellen
bestimmen, wenn vergleich zb. Spalte 1 beide Tabellen ist True, welche Spalte von 1-Tabelle in eine beliebige Spalte der zweiten Tabelle kopiere?
Grüße
klimek
Sub CompareSheet()
Dim wks1 As Worksheet, wks2 As Worksheet
Dim srcCol As Range, tarCol As Range
Dim i As Long, lastRow As Long
Set wks1 = Worksheets("Tabelle1")
Set wks2 = Worksheets("Tabelle2")
lastRow = wks1.Range("A65536").End(xlUp).Row
With wks1
.Select
For i = 1 To lastRow
If .Cells(i, 1) = wks2.Cells(i, 1) Then
On Error Resume Next
srcAgain:
Set srcCol = Application.InputBox("Spalte zum kopieren wählen", Type:=8)
If srcCol = Nothing Then Exit Sub
If srcCol.Columns.Count > 1 Then
MsgBox "Es darf nur eine Spalte ausgewählt werden"
GoTo srcAgain
End If
wks2.Select
tarAgain:
Set tarCol = Application.InputBox("In welche Spalte soll kopiert werden?", Type:=8)
If tarCol = Nothing Then Exit Sub
If tarCol.Columns.Count > 1 Then
MsgBox "Es darf nur eine Spalte ausgewählt werden"
GoTo tarAgain
End If
wks2.Cells(i, tarCol.Column) = .Cells(i, srcCol.Column)
End If
Next i
End With
End Sub