jerry0110
Erfahrenes Mitglied
Hallo zusammen,
ich habe folgenden Code aus dem Internet rausgesucht und angepasst:
Folgendes soll passieren. Wenn in Cells(i, 8) nichts steht, soll er weiter und weiter prüfen ob in 9 zwei unterschiedliche Dinge stehen. Und wenn dann in 10 noch ein Ja steht soll er die Zeile kopieren und in ein extra Datenblatt packen.
Macht er aber nicht. Er schreibt auch Dinge in das Tabellenblatt wo in Cells(i, 8) etwas steht.
Habe noch mehrere von diesen If Anweisungen wo andere Sachen gesucht werden. Aber die Suche ist da immer voll und das klappt auch. Aber mit dem Leer funktioniert nicht.
ich habe folgenden Code aus dem Internet rausgesucht und angepasst:
Code:
Private Sub Kopie_755ohneZuständigkeit()
Worksheets("Data").Activate
Dim source As Worksheet
Dim target As Worksheet
Dim LastRowNrInTarget As Long
Dim i
Set source = ThisWorkbook.Worksheets("Data")
Set target = ThisWorkbook.Worksheets("755ohneZuständigkeit")
Call source.Rows(1).Copy(Destination:=target.Rows(1))
LastRowNrInTarget = lastRowNr(target)
For i = lastRowNr(source) To 1 Step -1
If Cells(i, 8) = "" Then
If Cells(i, 9) = "755 QS" Or Cells(i, 9) = "755 QS und 541" And Cells(i, 10) = "Ja" Then
LastRowNrInTarget = LastRowNrInTarget + 1
Call source.Rows(i).Copy(Destination:=target.Rows(LastRowNrInTarget))
End If
Next i
End Sub
Folgendes soll passieren. Wenn in Cells(i, 8) nichts steht, soll er weiter und weiter prüfen ob in 9 zwei unterschiedliche Dinge stehen. Und wenn dann in 10 noch ein Ja steht soll er die Zeile kopieren und in ein extra Datenblatt packen.
Macht er aber nicht. Er schreibt auch Dinge in das Tabellenblatt wo in Cells(i, 8) etwas steht.
Habe noch mehrere von diesen If Anweisungen wo andere Sachen gesucht werden. Aber die Suche ist da immer voll und das klappt auch. Aber mit dem Leer funktioniert nicht.