habe folgendes Problem,ich habe zwei Tabellenblätter. Diese sollen nach Händlernummer verglichen werden und die dazugehörigen Daten aus der Spalte G Tabelle 2 in die Splate Q Tabelle 1 geschrieben werden.
siehe das beispiel
https://www.herber.de/bbs/user/20659.xls
und hier das Marko, wie kann ich das ergänzen, damit es funktioniert?
Sub Vergleichen()
Dim LoI As Long
Dim LoJ As Long
Dim LoLetzte1 As Long
Dim LoLetzte2 As Long
Dim Loletzte3 As Long
With Worksheets("Tabelle1")
LoLetzte1 = IIf(IsEmpty(.Range("A65536")), .Range("A65536").End(xlUp).Row, 65536)
End With
With Worksheets("Tabelle2")
LoLetzte2 = IIf(IsEmpty(.Range("b65536")), .Range("b65536").End(xlUp).Row, 65536)
End With
For LoI = 1 To LoLetzte1
For LoJ = 1 To LoLetzte2
' Leerzellen nicht kennzeichnen
If Worksheets("Tabelle1").Cells(LoI, 1) <> "" Then
If Worksheets("Tabelle1").Cells(LoI, 1) = Worksheets("Tabelle2").Cells(LoJ, 2) Then
Worksheets("Tabelle1").Rows(LoI).Copy
With Worksheets("Tabelle3")
Loletzte3 = .UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
If Loletzte3 > 65536 Then
MsgBox "In Tabelle3 ist keine Zeile mehr frei"
Application.CutCopyMode = False
Exit Sub
End If
.Rows(Loletzte3).PasteSpecial Paste:=xlValues
.Rows(Loletzte3).PasteSpecial Paste:=xlFormats
End With
Exit For
End If
End If
Next LoJ
Next LoI
Application.CutCopyMode = False
End Sub
Vielen Dank für die Hilfe
MFG
Aruk