VBA-Codierung - Kopieren einer Reihe von Zellen in Excel

Question

Entschuldigung, wenn dies eine einfache Sache zu tun ist, aber ich VBA neu lernen nach Jahren der Nichtbenutzung. Ich habe ein Arbeitsblatt, in dem ich eine bestimmte Zelle innerhalb dieser Arbeitsmappe basierend auf dem Text innerhalb dieser Zelle finden muss. Ich muss dann die ganze Zeile kopieren, die diese Zelle enthält, und die drei Zeilen darunter, so dass ein Bereich von vier ganzen Zeilen entsteht. Jede Hilfe wäre willkommen.

Answer 1

Sie haben nicht angegeben, wo Sie das Material einfügen wollen, aber:

Sub qwerty() 
    Dim s As String, sh As Worksheet, r As Range 

    s = "happiness" 
    For Each sh In Sheets 
     Set r = Cells.Find(What:=s) 
     If Not r Is Nothing Then 
      r.Resize(4, 1).EntireRow.Copy 
     End If 
    Next sh 
End Sub 

Hier haben wir für das Glück suchen.