Programmieren - alles kontrollieren 4.941 Themen, 20.708 Beiträge

Verfolgung starten Optionen

Excel makro

logo_2 / 3 Antworten / Baumansicht Nickles

Hallo


ich habe folgendes problem im excel, ich möchte nen feld kopieren im blatt 1 und den inhalt dieses feldes im blatt 2 suchen lassen.


hier nen blick auf den code:


Sheets("DVDliste").Select
Cells(ycelt, xcelt).Select
Selection.Copy


Sheets("vergleichsliste").Select


 Cells.Find(What:="eee", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
        .Activate


statt nach "eee" möchte ich, den Inhalt der in der zwischenablage ist suchen


ich mit


 Cells.Find(What:=selection.paste,.....


versucht aber es geht nicht 


hat jemand eine Idee??


danke


 

bei Antwort benachrichtigen
hddiesel logo_2 „Excel makro“
Optionen

Formuliere das ganze daß jeder es Versteht.

ich habe folgendes problem im excel, ich möchte nen feld kopieren im blatt 1 und den inhalt dieses feldes im blatt 2 suchen lassen.???

Mfg. hddiesel

Windows 10 Pro 64-Bit, 22H2: MS Office Pro Plus 2016 32-Bit: Mein Motto: Leben und leben lassen: Gruss Karl
bei Antwort benachrichtigen
Uli M logo_2 „Excel makro“
Optionen

Dazu musst du nichts kopieren:
Sheets("vergleichsliste").Select
Cells.Find(What:=Sheets("DVDliste").Cells(ycelt, xcelt), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate

bei Antwort benachrichtigen
lachi logo_2 „Excel makro“
Optionen

Mein Vorschlag:

Sheets("vergleichsliste").Select
Cells.Find(What:=Sheets("DVDliste").Selection, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate

Habe ich nicht ausprobiert, denke aber dass es funktionieren sollte.
Vielleicht solltest Du noch den Parameter zu After:= wechseln (mehr dazu in der VBA-Hilfe)

bei Antwort benachrichtigen