|
Guten Abend
Ich möchte wenn alle Zeilen (Formeln in Werte uwandeln) die in Spalte AI ein erledigt enthalten in eine neue Tabelle kopieren.
Nun habe ich folgenden Code gefunden
x würde ich durch erledigt ersetzten
Colums = durch 35
Bestätigte Zahlunge durch Archiv
Dann sollet der Code funktionieren mein Problem ist nun das der Code darauf beruht das wenn sich Worksheet Change
Ich öchte das ganze aber über einen Button nur bei Bedarf auslösen.
Wie müsste ich den Cde ändern
Vielen Dank Myra
Private Sub Worksheet_Change(ByVal Target As Range)
Dim WSh As Worksheet, iZeile As Long
If UCase$(Target.Value) = "X" And Target.Column = 6 Then
Set WSh = ThisWorkbook.Sheets("bestätigte Zahlungen")
iZeile = WSh.Cells(WSh.Rows.Count, "A").End(xlUp).Row + 1
Application.EnableEvents = False
Target.EntireRow.Copy WSh.Cells(iZeile, "A")
Target.EntireRow.Delete
Application.EnableEvents = True
End If
End Sub
|