Werte >0 in anderes Tabellenblatt kopier
28.07.2021 14:09:29
Andre
ich suche einen Code, der meine Spalte B durchsucht und jedes Mal wenn ein Wert >0 ist, soll in einem anderen Tabellenblatt der Eintrag aus Spalte A und B dieser Zeile rüber kopiert werden. Bsp: In Spalte A1 steht "Test", in Spalte B1 steht 17, dann soll im 2. Tabellenblatte in Spalte A Test und in Spalte B 17 stehen.
Ziel ist es in Tabellenblatt 2 die gleichen Inhalte wie in Tabellenblatt 1 stehen zu haben, nur eben ohne die Zeilen, wo der Wert 0 ist.
Mein Ansatz bisher:
Private Sub CopyPaste(ByVal Target As Range)
Dim B As Long
With Sheets("Tabelle1")
For B = .Cells(65536, 1).End(xlUp).Row To 1 Step -1
If .Cells(B, 2).Value > 0 Then Worksheets("Tabelle2").Cells(B, 1).Value = .Cells(B, 1)
If .Cells(B, 2).Value > 0 Then Worksheets("Tabelle2").Cells(B, 2).Value = .Cells(B, 2)
Next B
End With
End If
End Sub
Viele Grüße,
Andre
