VBA Code eine Zahl suchen und ersetzen

[BCCOOL]

Hi zusammen,

ich suche nun schon verzweifelt und hoffe Ihr könnt mir helfen.

Mein Problem: Ich habe in den Zeilen A1 bis D1 mehrere Werte.

Nun möchte ich das die A1 in der Tabelle A3 bis D400 gesucht wird und sollte der Wert A1 gefunden werden, die Zeile mit den Werten A1 bis D1 überschrieben wird.

Quasi eine Aktualisierung der Liste A3 bis D400.

Finde aber da keine 100% passenden VBA Code.

Danke im Voraus

[BachFel]

Hi,

Suchen und Ersetzen als Excel Funktion stellt keine Lösung dar?

Gruß
Fel

[BCCOOL]

Reicht leider nicht, da es ca ein Abgleich von 3000 zahlen täglich ist (Zeitaufwand) und man ja nur 1 Übereinstimmung sucht und dann quasi diese Zeile dann überschreibt. 

Daher wäre eine VBA Lösung von nöten...

[Werner.M]

Hallo,

was ist, wenn der Inhalt von A1 z.B. in der Zelle D375 gefunden wird?
Was soll dann in A1, B1, C1 und D1 ausgegeben werden?

Am besten machst du mal eine Beispielmappe und zeigst darin an ein paar Beispielen auf, wie das Ergebnis aussehen soll. Beispielmappe hier hochladen.

Gruß Werner

[Steffl]

Auch Hallo,

mal ein Ansatz

Code:

Sub prcSuchen()
   Dim rngTreffer As Range
  
   With Worksheets("Tabelle1") 'Namen anpassen
      Set rngTreffer = .Range("A3:D400").Find(.Range("A1").Value, LookIn:=xlValues, lookat:=xlWhole)
      If Not rngTreffer Is Nothing Then
         .Range("A1").Resize(, 4).Copy .Cells(rngTreffer.Row, 1).Resize(, 4)
      End If
   End With
End Sub

[BCCOOL]

Hi Stefan,

dies war genau das was ich suchte! 1000 Dank und es klappt perfekt!

Gruß