Werte in gefundene Zelle kopieren
28.03.2019 14:03:12
Alex
ich bräuchte eure Hilfe. Es geht um Folgendes: Ich habe eine fünf Werte in einer Zeile und _ diese fünf Werte möchte ich kopieren und dort einfügen, bei dem sich der erste Wert mit dem Wert in einer Spalte deckt. Der erste Wert wird quasi überschrieben (es ist ja aber der gleiche Wert) und die nächsten vier Werte werden hinten dran aufgeführt. Mir ist bewusst, dass ich mit der find-Funktion arbeiten muss, aber ich komme leider nicht weiter. So sehen meine ersten Gedanken aus:
Sub AnalytikAktualisieren()
Dim reaktion As Range
Set reaktion = Range("B5:B1000").Find(what:=Range("AA1").Value)
End Sub
Dann soll irgendwie folgendes kommen: If reaktion gefunden wurde, then Range("AA1:AE1").copy und in der ensprechenden Zelle in der Spalte B5-B1000 eingefügt werden.
Könnt ihr mir weiterhelfen?
Beste Grüße,
Alex
Anzeige