PDA

Vollständige Version anzeigen : Findnext und DoLoop


DeBabba
02.07.2015, 09:18
Hallo liebes Forum,

Hiiilfe, ich find den Fehler nicht und hoffe mal auf eure Hilfe
Also
habe ein File mit mehreren Listen. Hier suche ich eine bestimmte nummer und finde diese auch. Jetzt muss ich alle Einträge mit dieser Nummer finden und dann sachen kopieren und woanders einfügen
ALLERDINGS
klappt das mit dem FindNext nicht die Adresse bleibt immer gleich, obwohl in der zu durchsuchenden mappe der Wert 4 x vorkommt
Hier mal mein Script, vielleicht habt ihr nene Tipp für mich
Set P = Ber4.Find(Erg3, LookIn:=xlValues)
If Not P Is Nothing Then
Erster = P.Address

Do
Erg4 = P.Row
If BL4.Cells(Erg4, 2).Value = Erg3 And BL4.Cells(Erg4, 6) = Erg1 Then
Reihe = BL5.Cells(100000, 1).End(xlUp).Offset(1, 0).Row
'------------part1
BL4.Range(BL4.Cells(Erg4, 1), BL4.Cells(Erg4, 13)).Copy
BL5.Cells(Reihe, 1).PasteSpecial (xlPasteValues)
'---------2222
BL4.Cells(Erg4, 15).Copy
BL5.Cells(Reihe, 18).PasteSpecial (xlPasteValues)
'---------3333-
BL4.Range(BL4.Cells(Erg4, 16), BL4.Cells(Erg4, 18)).Copy
BL5.Cells(Reihe, 20).PasteSpecial (xlPasteValues)
'---------4444
BL4.Range(BL4.Cells(Erg4, 19), BL4.Cells(Erg4, 24)).Copy
BL5.Cells(Reihe, 24).PasteSpecial (xlPasteValues)
'---------5555
BL4.Cells(Erg4, 25).Copy
BL5.Cells(Reihe, 31).PasteSpecial (xlPasteValues)
'---------6666
BL4.Cells(Erg4, 26).Copy
BL5.Cells(Reihe, 34).PasteSpecial (xlPasteValues)

End If
Set P = P.FindNext(P)
L4 = P.FindNext(P).Address
Loop While Not P Is Nothing And P.Address <> Erster

End If


Schon mal ein DICKES DANKE im voraus

Gruß
Debabba

Beverly
02.07.2015, 09:25
Hi,

ich würde mal darauf tippen, dass es so heißen müsste:

Set P = Ber4.FindNext(P)

<hr width="20%" align="left"><img src="http://excel-inn.de/images/grusz.gif" height=35" align="left" alt="Grußformel"><a href="http://excel-inn.de/"><img border="0" src="http://excel-inn.de/images/logo1.gif" height=35" align="middle" alt="Beverly's Excel - Inn"></a>

DeBabba
02.07.2015, 09:29
:knuddel: Hi karin,
VIELEN LIEBEN DANK :knuddel: :knuddel: :knuddel:

kann man denn so blind sein? Ich guck mir das jetzt schon ne gesschlagen 1/2 Stunde an und seh es nicht. Vielleicht brauch ich Urlaub oder mal nen RESET :stupid:

Nochmal danke :five:

Gruß
klaus

Beverly
02.07.2015, 09:39
Hi Klaus,


kann man denn so blind sein? .... Vielleicht brauch ich Urlaub oder mal nen RESET



Am besten du schiebst es auf die Temperaturen und die daraus resultierende Überhitzung des RAM :grins:

<hr width="20%" align="left"><img src="http://excel-inn.de/images/grusz.gif" height=35" align="left" alt="Grußformel"><a href="http://excel-inn.de/"><img border="0" src="http://excel-inn.de/images/logo1.gif" height=35" align="middle" alt="Beverly's Excel - Inn"></a>