Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Schleife, Zähler nur hochzählen wenn Bedingung erfüllt ist
08.02.2019 11:49:03 Pascal
NotSolved
08.02.2019 12:00:40 Gast34362
*****
Solved
08.02.2019 12:15:37 Gast53311
NotSolved

Ansicht des Beitrags:
Von:
Pascal
Datum:
08.02.2019 11:49:03
Views:
80
Rating: Antwort:
  Ja
Thema:
VBA Schleife, Zähler nur hochzählen wenn Bedingung erfüllt ist

Hallo,

 

ich hab folgendes Problem, was ich nicht nachvollziehen kann woran es liegt, mein Zähler in dem Fall i soll nur + 1 hochzählen - wenn die erste If Bedinungen erfüllt ist, d.h. das er nur hochzählen soll wenn in der Zelle ein Wert steht. Steht in der Zelle kein Wert soll auch nicht hochgezählt werden, sondern zur nächsten Zelle gesprungen werden. Läuft auch alles, nur das er auch hochzählt wenn in der Zelle kein Wert steht. Vielen dank im Voraus.

 

Sub Test7()

    Dim i As Long
    Dim LetzteZeile As Long
    
    On Error Resume Next
    
    i = 0
    
    LetzteZeile = Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row
    
    For i = 0 To LetzteZeile
        
        If ActiveCell <> "" Then
        
            ActiveCell.Offset(0, -1).Activate
            
            ActiveCell = i + 1
            
            ActiveCell.Offset(1, 1).Activate
            
        Else
            
            ActiveCell.Offset(1, 0).Activate
                    
        End If
        
    Next i
    
End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Schleife, Zähler nur hochzählen wenn Bedingung erfüllt ist
08.02.2019 11:49:03 Pascal
NotSolved
08.02.2019 12:00:40 Gast34362
*****
Solved
08.02.2019 12:15:37 Gast53311
NotSolved