Das Clever-Excel-Forum.de - Treffen
... 14.-16. September 2018 im Allgäu ...

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
Gruß Ralf

?mage

Die deutsche Rechtschreibung ist Freeware, d.h. du kannst sie kostenlos nutzen.
Allerdings ist sie nicht Open Source, deswegen darfst du sie nicht verändern oder in veränderter Form veröffentlichen.
[-] 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