Ich möchte noch einmal um Ihre Hilfe bitten. Arbeiten an einem Teil von VBA, der ein Eingabefeld öffnet, einen bestimmten Wert in Arbeitsblatt X findet und dann die gesamte Zeile in Arbeitsblatt Y schneidet. .
Meine Frage ist ziemlich einfach; Wie würde ich das benutzen?Wert gefunden von der Inputbox / Findstring? Mit der Absicht, diesen Wert zu verwenden, um den Code zu erstellen, der die gesamte Zeile ausschneidet und den verbleibenden Platz löscht.
Antworten:
0 für die Antwort № 1If Not Rng Is Nothing Then
Rng.Copy
Worksheet("Y").Range("A1").Paste
Rng.EntireRow.Delete
Else
MsgBox("Nothing found")
End If
0 für die Antwort № 2
Da hast du schon die Bereichsvariable RngIch würde so etwas tun:
Rng.Cut
DestinationSheet.Range("destinationRange").select.Paste