Office: ganze Zeile durchsuchen ?

Hallo Ich habe hier im Forum ein Code gefunden der läuft auch gut nur mein Problem ist er soll immer von H1 bis H1000 durchsuchen und Kopieren nicht nur ab da wo er denn Wert gefunden hat.

wie müßte man den ändern ??

Private Sub CommandButton1_Click()


Dim i As Long
Dim j As Long
Dim p As String

j = 1
With Sheets("Tabelle1")
For i = 1 To .Cells(Rows.Count, 2).End(xlUp).Row
If .Cells(i, 24).Value "" Then
p = .Cells(i, 24)
End If
If .Cells(i, 8).Value = p Then
.Rows(i).Copy _
Destination:=Worksheets("Tabelle2").Rows(j)
j = j + 1
End If
Next
End With

End Sub

:)

 

Hallo Victor,

Code:

 

Hallo Hjao,

danke es funtioniert aber nicht ganz so wie ich mir das vorstellte also ich habe ja in Spalte X ab und zu mal werte die dann in Spalte H gesucht werden soll jetzt ist es so das er wenn er Z.B in Spakte X10 ein wert hat und dan in Spalte H sucht erst ab H10 sucht und nicht ab H1 anfängt verstanden wie ich das meinte

 

Hallo Viktor,

ich habe mich an Deinen Code gehalten und nur Deine Veränderung eingearbeitet. Der Code läuft von Zeile 1 bis 1000 und schaut ob Spalte X "" falls es irgendwann ist wird sich dieser wert gemerkt und in den restlichen Zeilen in Spalte H geschaut ob da der gemerkte Wert steht, falls ja wird duie Zeile kopiert in Tabelle2 beginnend in zeile 1.
Ich habe jetzt nur übersetzt was Dein Code macht.
Du siehst schon für VBA mußt Du das ganz genau aufschreiben was passieren soll.
Den Code hast Du erstellt. Ich habe nur die Anpassung an Zeile 1 bis 1000 gemacht.
was Du mir mitteilen willst ist mir nicht klar.

 

Ja ok das mit Spalte X prüfen klappt ja wunderbar aber den Wert suchen in Spalte H klappt nicht ganz weil er immer dort ansetzt wo der erste Wert in Spalte X auftaucht

ich weiss nicht ganz wie aber dachte das müßte in etwa so aussehen

Dim i As Long
Dim j As Long
Dim p As String
Dim r As Range

Set r = Range("H1:H1000")

j = 1
With Sheets("Tabelle1")
For i = 1 To .Cells(Rows.Count, 2).End(xlUp).Row
If .Cells(i, 24).Value "" Then
p = .Cells(i, 24)
End If
If .Cells(r, 8).Value = p Then
.Rows(i).Copy _
Destination:=Worksheets("Tabelle2").Rows(j)
j = j + 1
End If
Next
End With

End Sub


also so das er imm von H1 aus anfängt den wert zu suchen und wenn gleich dann kopieren aber so geht der Code leider nicht

 

Hallo Viktor,

wenn Du Dir meinen Beitrag ansiehst, wird Dir auffallen das ich das was de Code macht ganz genau beschrieben habe.
Du möchtest dies nicht, also bin ich raus.

 

Ich habe das schon verstanden was du gesagt ahst aber irgendwie funtioniert dein Code nicht er Kopiert immernoch ab der Zeile woh er es gefunden hatt