do while mit oder

'"COMMENTS:" Dim rngCOM As Range, iCom As Long For iCom = 26 To 300 '11 wurde 26 If left$(Cells(iCom, 20), 9) = "COMMENTS:" Then Set rngCOM = Cells(iCom, 16) Do While rngCOM "F " Or rngCOM "C " Or rngCOM "D " Set rngCOM = rngCOM.Offset(-1) Loop Cells(iCom, 20).Cut rngCOM.Offset(, 4) End If Next iCom

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hi Mehmet,
überleg mal kurz, ob


rngCOM  "F " Or rngCOM  "C "

überhaupt jemals falsch sein kann.
Wenn da ein X drinsteht, ist es ungleich "F " - also: WAHR
Wenn da ein F drinsteht, ist es ungleich "C " - also: WAHR
Wenn da ein C drinsteht, ist es ungleich "F " - also: WAHR
Wenn es leer ist, ist es ungleich "F " - also: WAHR
Das bedeutet für deinen Code, dass der Loop unendlich lange laufen möchte.
Er endet mit einem Fehler (den du hier hättest beschreiben sollen), wenn in Spalte A versucht wird:
Set rngCOM = rngCOM.Offset(-1)
Dann soll rngCOM gleich einer Zelle links von Spalte A gesetzt werden. Rummms.
Wenn sicher ist, dass da ein F, C oder D gefunden werden, kannst du es mal mit


Do While rngCOM  "F " and rngCOM  "C " and rngCOM  "D "

versuchen, also mit And statt Or.
Oder du machst das so (ungetestet!):


Option Explicit
Sub aTest()
'"COMMENTS:"
Dim lngZ As Long, lngS As Long
For lngZ = 26 To 300 '11 wurde 26
If Cells(lngZ, 20) Like "COMMENTS:*" Then
For lngS = 16 To 1 Step -1
Select Case Cells(lngZ, 16)
Case "F ", "C ", "D ":  Exit For    ' Treffer, Ende
Case Else                           ' weiter
End Select
Next lngS
' wenn Treffer war
If lngS > 0 Then Cells(lngZ, 20).Cut Cells(lngZ, lngS + 4)
End If
Next lngZ
End Sub

Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Sub abTest() ' "COMMENTS:" Dim tt As Long, pp As Long For tt = 26 To 300 '11 wurde 26 If Cells(tt, 20) Like "COMMENTS:*" Then For pp = tt To 1 Step -1 Select Case Cells(pp, 16) ' Suche in Spalte P Case "F ", "C ", "D ": Exit For ' Treffer, Ende End Select Next pp Select Case pp Case 0 MsgBox "Kein Treffer für COMMENTS-Zeile " & tt & " gefunden!" Case tt ' dann ist nichts zu tun Case Else ' wenn Treffer war Cells(tt, 20).Cut Cells(pp, 20) ' verschiebt COMMENTS nach oben End Select End If Next tt End Sub

Sub aaTest() '"COMMENTS:" Dim rngCOM As Range, iCom As Long For iCom = 26 To 300 '11 wurde 26 If Left$(Cells(iCom, 20), 9) = "COMMENTS:" Then Set rngCOM = Cells(iCom, 16) Do While Not (rngCOM = "F " Or rngCOM = "C " Or rngCOM = "D ") If rngCOM.Row = 1 Or rngCOM.Column = 1 Then MsgBox "für Zeile 26 wurde kein Treffer gefunden!" GoTo Next_iCom End If '? Willst du in der Zeile iCom oder in der Spalte 16 die Werte vergleichen 'Spalte 16: dann ' Set rngCOM = rngCOM.Offset(-1) 'Zeile iCom: dann Set rngCOM = rngCOM.Offset(0, -1) Loop Cells(iCom, 20).Cut rngCOM.Offset(0, 4) End If Next_iCom: Next iCom End Sub

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread