Schleife für einen Wenn-Funktion
#1
Liebe Forumsgemeinde!

ich habe gewisse Schwierigkeiten mit Schleifen. Ich habe folgende Wenn-Funktion die sich in einem gewissen Bereich wiederholen sollte:

Code:
Sub Portfix()
If Range("H3") = 1 And Range("K3") = "BU" Then
Range("I3").Copy
Range(Cells(WorksheetFunction.CountA("B4:B500") + 1), 2).PasteSpecial
ElseIf Range("H3") = "NO" And Range("K3") = "LL" Then
Range("I3:L3").Delete
End If
End Sub

Die Schleife sollte sich über den Bereich I3:L500 ziehen.

Vielen Dank im Voraus!

Liebe Grüße
Walter
to top
#2
Hi,

(17.02.2016, 12:11)wiesi0392 schrieb: ich habe gewisse Schwierigkeiten mit Schleifen. Ich habe folgende Wenn-Funktion die sich in einem gewissen Bereich wiederholen sollte:
[...]

Die Schleife sollte sich über den Bereich I3:L500 ziehen.

so?
Code:
Sub Portfix()
   For i = 3 To 500
      If Range("H" & i) = 1 And Range("K" & i) = "BU" Then
         Range("I" & i).Copy
         Range(Cells(WorksheetFunction.CountA("B4:B500") + 1), 2).PasteSpecial
      ElseIf Range("H" & i) = "NO" And Range("K" & i) = "LL" Then
         Range("I" & i & ":L" & i).Delete
      End If
   Next i
End Sub
[-] Folgende(r) 1 Benutzer sagt Danke an Rabe für diesen Beitrag:
  • wiesi0392
to top
#3
Hallo zusammen,

wenn Zeilen gelöscht werden, dann die Schleife immer rückwärts laufen. (Step -1)
Gruß Atilla
[-] Folgende(r) 2 Benutzer sagt Danke an atilla für diesen Beitrag:
  • Rabe, wiesi0392
to top
#4
Hallo ihr beiden!

Vielen Dank! Klappt!
to top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste