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:
1164		 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.

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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 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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
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