/ / Verwenden der Ausgabe von FindString in VBA - Excel, VBA, Excel-VBA

Verwenden der Ausgabe von FindString in VBA - Excel, VBA, Excel-VBA

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. dieser Screenshot.

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 № 1
If 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