title image


Smiley Story vom "Suchen, Finden und Kopieren ...."
Hey Achim,



Teste mal dieses Makro (Werte werden in Sheet "Kopie" ab Zelle A20 kopiert) :



Sub SuchenFindenUndKopieren()

    Set gefunden = Range("A3:A20").Find([C3])

    If Not gefunden Is Nothing Then

        Range(gefunden.Offset(0, 1), gefunden.Offset(0, 25)).Copy Sheets("Kopie").[A20]

    End If

End Sub


Grüße, NoNet

  1,2,3 - kleine Excelei :   Infos + Anmeldung zum Jährlichen Exceltreffen



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: