Hallo
Ich möchte einen wert in einer spalte suchen und dann die ganze Zeile in einer anderen Zeile kopieren.
Ich habe ein makro im Internet gefunden was auch gut funktioniert nur leider kopiert diesen nur eine Zeile.
Dim Ergebnis As Range
Set Ergebnis = Tabelle1.Columns(1).Find(what:=Tabelle1.Range("E4").Value, _
lookat:=xlWhole)
If Ergebnis Is Nothing Then
MsgBox "Container nicht vorhanden"
Else
Tabelle1.Range("A2").Value = Tabelle1.Cells(Ergebnis.Row, 1).Value
End If
Folgendes würde ich gerne ereichen.
Es soll ein wert z.b 123 der in E4 steht aus Spalte A (ab A9) gesucht werden und falls vorhanden soll dann die ganze Zeile A bis F in Zeile A 2 bis F2 eigefügt werden und der Ursprüngliche wert Entfernt werden.
Also die spalte soll nicht Kopiert sonder verschoben werden damit der wert nur einmal auftaucht.
Für Hilfe wäre ich wirklich sehr Dankbar