VBA-Spaltenvergleich in zwei Tabellen
06.08.2013 07:08:59
Peter
ich vergleiche die Spalte 2 der Tab. Bestand mit der Spalte 4 der Tab. GesDaten.
Bei Übereinstimmung werden die Werte in die Tab. GesDaten übernommen und mit Aktuell gekennzeichnet. Funktioniert soweit-
Da die Tab. Bestand Leerzeilen enthält werden diese mit in die Tab. GesDaten übernommen.
Ich möchte in der Tab. GesDaten keine Leerzeilen haben.
Wie erreicht man das, ohne das die Leerzeilen noch extra gelöscht werden?
Danke im voraus
Peter
Option Explicit
Sub Vergleich_aktBestand ()
Dim rngC As Range, ShQ As Worksheet, ShZ As Worksheet
Set ShQ = Sheets("Bestand")
Set ShZ = Sheets("GesDaten")
Application.ScreenUpdating = False
With ShQ
For Each rngC In .Range(.Cells(2, 2), .Cells(Rows.Count, 2).End(xlUp))
If IsEmpty(ShZ.Cells(rngC.Row, 4)) Then
ShZ.Range(ShZ.Cells(rngC, 3), ShZ.Cells(rngC, 10)).Value = _
.Range(.Cells(rngC.Row, 1), .Cells(rngC.Row, 8)).Value
ShZ.Cells(rngC, 19).Value = "Aktuell"
End If
Next
End With
End Sub
Anzeige