Thema Datum  Von Nutzer Rating
Antwort
Rot Gerade Zahlen Zählen
 16.05.2017 13:20:03 Jascha
Solved
02.08.2017 13:28:23 RPP63
NotSolved

Ansicht des Beitrags:
Von:
Jascha		 Datum:
16.05.2017 13:20:03		 Views:
1319		 Rating:
     
Antwort:
 Nein
Thema:
Gerade Zahlen Zählen
Hallo VBA-Profis, ich mache seit einigen Tagen meine ersten Gehversuche in VBA und hänge nun bei einer Prozedur die die Anzahl der geraden Zahlen in einer Spalte wiedergeben soll (zur Vereinfachung wird zunächst nur "A1" abgefragt) Mein Plan ist zu checken ob die Zahl in der Zelle durch 2 teilbar ist, wenn ja den Wert einer Variablen um eins zu erhöhen. Anschließend soll eine Zelle nach unten gesprungen werden und die Funktion wiederholt werden.Am Ende soll der Wert der Variablen in einer msgbox erscheinen. Aktuell habe ich das Probleme die Variable zu erhöhen, kann mir dazu jemand einen Tipp geben? .Count i + 1 funzt nicht. Ich denke das ist nicht mein einziges Problem, vielleicht habt Ihr ja noch Tipps für andere Fehler die ich noch nicht sehe :) Option Explicit Sub GZZ() Dim X As Integer Dim i As Integer 'Anzahl gerader Zahlen ActiveSheet.Range("A1").Select 'Wähle Zelle A1 aus Do Until ActiveCell Is Empty If ActiveCell.Value = X Then 'Prüfe ob in Zelle eine Zahl des Formates Integer steht Call fktCheckNumber If fktCheckNumber = True Then 'Wenn fkt den Wert true ausgibt Steigt die Variable i um den Wert 1 .Count i + 1 Else End If ActiveCell.Offset(1, 0).Select 'Springe eine Zelle nach unten Else End If Loop MsgBox "Anzahl ist: " & i Function fktCheckNumber() As Boolean 'Prüfen ob gerade Zahl If ActiveCell.Value / 2 = X Then 'Wenn Wert aus Aktiver Zelle durch 2 ist Integer gib true fktCheckNumber = True On Error Resume Next End If End Function

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
Rot Gerade Zahlen Zählen
 16.05.2017 13:20:03 Jascha
Solved
02.08.2017 13:28:23 RPP63
NotSolved