Thema Datum  Von Nutzer Rating
Antwort
05.06.2014 11:59:36 Patrick
Solved
05.06.2014 13:23:53 Gast67512
NotSolved
Rot VBA LOOP
 05.06.2014 14:30:29 Gast14333
NotSolved
05.06.2014 16:38:05 Gast36954
Solved

Ansicht des Beitrags:
Von:
Gast14333		 Datum:
05.06.2014 14:30:29		 Views:
929		 Rating:
     
Antwort:
  Ja
Thema:
VBA LOOP

Der Beschreibung nach in etwa so:

Option Explicit

Public Sub Test()
  
  Dim wks As Excel.Worksheet
  Dim rowIdxV As Long
  Dim rowIdxQ As Long
  
  Set wks = ThisWorkbook.Worksheets("Bridle Steel Berechnung")
  
  rowIdxV = 4
  rowIdxQ = rowIdxV
  
  Do While (IsNumeric(wks.Cells(rowIdxQ, "Q").Value) And Not IsEmpty(wks.Cells(rowIdxQ, "Q").Value)) _
            And rowIdxV <= 100 _
            And rowIdxQ <= 100
    
    If wks.Cells(rowIdxV, "V").Value > 100 Then
      rowIdxQ = rowIdxQ + 1
    ElseIf wks.Cells(rowIdxV, "V").Value < 100 Then
      Exit Do
    Else 'If wks.Cells(rowIdxV, "V").Value = 100 Then
      '???
    End If
    
    rowIdxV = rowIdxV + 1
  Loop
  
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
05.06.2014 11:59:36 Patrick
Solved
05.06.2014 13:23:53 Gast67512
NotSolved
Rot VBA LOOP
 05.06.2014 14:30:29 Gast14333
NotSolved
05.06.2014 16:38:05 Gast36954
Solved