Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Daten übertragen oder addieren

Gruppe

Kopieren

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.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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