Zeilen bedingt Kopieren
janesch
da ich noch in Anfängen von VBA bin, benötige ich Hilfe bei folgendem Problem.
Mit dem folgendem Sub, den ich aus diesem Forum habe (danke Hary.. :-), kopiere ich über ein Vergleich eine Zeile bzw Teil einer Zeile von Tabelle A nach Tabelle B.
Private Sub CommandButton1_Click()
Dim zeile As Long
Dim wert1 As Variant
Dim wert2 As Variant
For zeile = 28 To 300
wert1 = Sheets("A").Cells(zeile, 1)
wert2 = ActiveSheet.Cells(zeile, 1)
If wert1 wert2 Then
Sheets("A").Cells(zeile, 2).Resize(, 184).Copy
ActiveSheet.Cells(zeile, 2).PasteSpecial Paste:=xlPasteValues
ActiveSheet.Cells(zeile, 2).PasteSpecial Paste:=xlPasteFormats
End If
Next
Application.CutCopyMode = False
End Sub
Wäre schön, wenn mir da jemand helfen könnte.
Anzeige