Moin Thomas,
sry, ich will dich sicher nicht niedermachen, aber mal die "Anleitung"
Nehmen wir einmal an, ich bin kein Anfänger. Trotzdem steht bei mir bei jedem Code
erst einmal ein Menge Kommentarzeilen. Was will ich und was soll der Code dazu tun.
Option Explicit
Sub Schaltfläche61_Klicken()
'per Button abgerufen
'was soll untersucht werden und dann passieren
'ein Wert in Spalte A - Wenn... / Dann...
'Zeile wo
Dim Zeile As Long
'woher Menge 1 nehmen, der Button kennt sie nicht
'Vereinbarung es ist immer "diese" Zelle mit "Verschieben" in Spalte A
'Zelle finden
Dim Target As Range
Set Target = Range("A1:A1000").Find(What:="Verschieben", LookIn:=xlFormulas)
'Treffer ??
If Target Is Nothing Then Exit Sub
'jetzt die Aktion
'zeile ermitteln
Zeile = Target.Row
'Zeilenbereich definieren
'kopieren
Range(Cells(Zeile, 2), Cells(Zeile, 50)).Copy _
Destination:=Sheets("Laufende Bewerbungen").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)
'löschen
Range(Cells(Zeile, 2), Cells(Zeile, 50)).ClearContents
End Sub
Ob dieser Codevorschlag im Gesamtzusammenhang auch sinnvoll, kann ich nicht beurteilen.
Ich kenne den Zweck und Aufbau deiner Arbeitsmappe nicht.
Gruß
|