Gruppe
Allgemein
Problem
Die Daten aus Tabelle1 sollen in Tabelle2 übertragen werden. Nach der Übertragung ist in Spalte B der jeweiligen Zeile ein X einzutragen. Dieser Datensatz ist bei der nächsten Übertragung nicht mehr zu berücksichtigen.
StandardModule: basMain
Sub PruefenUebertragen()
Dim var As Variant
Dim lRow As Long, lRowL As Long
lRow = 1
Do Until IsEmpty(Cells(lRow, 1))
With Worksheets("Tabelle2")
If Cells(lRow, 2).Value > 0 And Cells(lRow, 2) <> "X" Then
var = Application.Match(Cells(lRow, 1).Value, .Columns(1), 0)
If IsError(var) Then
lRowL = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(lRowL, 1) = Cells(lRow, 1)
.Cells(lRowL, 2) = Cells(lRow, 2)
.Cells(lRowL, 3) = Cells(lRow, 3)
Else
.Cells(var, 2) = .Cells(var, 2) + Cells(lRow, 2)
End If
Cells(lRow, 2) = "X"
End If
lRow = lRow + 1
End With
Loop
End Sub