Zählen mit mehreren Bedingungen (Makro)

Dieses Thema Zählen mit mehreren Bedingungen (Makro) im Forum "Microsoft Office Suite" wurde erstellt von Prak, 9. Mai 2005.

Thema: Zählen mit mehreren Bedingungen (Makro) Hallo Leute, habe ein problem mit VBA (Excel) - Makro, und hoffe ihr könnt mir helfen. Ich muss eine Tabelle mit...

  1. Hallo Leute,
    habe ein problem mit VBA (Excel) - Makro, und hoffe ihr könnt mir helfen.
    Ich muss eine Tabelle mit mehreren 10-tausend Werten auslesen, diese in Kategorien einteilen, und die jeweilige Anzahl der Werte festhalten.
    Also zum Beispiel alle Werte zwischen -10 und -8, zählen wieviele es sind, und in ein neues Sheet oder neue Datei schreiben. Bitte Euch dringend um Hilfe.
    Vielen dank im Voraus. Grüße Prak :(

    Als VBA Anfänger bin ich bisher soweit gekommen:

    Sub Countdata_191RH()

    Dim zaehler1 As Integer->für werte: -8 <= x <= 0 ml
    Dim zaehler2 As Integer->für werte: -10 <= x < -8 ml
    Dim zaehler3 As Integer->für werte: -12 <= x < -10 ml
    Dim zaehler4 As Integer->für werte: -14 <= x < -12 ml
    Dim zaehler5 As Integer->für werte: x < -14 ml
    Dim zaehler6 As Integer->für leere Zellen
    Dim Zelle As Range
    Dim x As Integer

    On Error Resume Next

    Set Range_191RH = Worksheets(1 - 2002).Range(B:AF)

    'For x = 1 To Rows.Count Step 1

    For Each Zelle In Range_191RH

    If Zelle <= 0 Or Zelle >= -8 Then
    zaehler1 = zaehler1 + 1 ->Zaehler für Werte zwischen 0 und -8

    ElseIf Zelle < -8 Or Zelle >= -10 Then
    zaehler2 = zaehler2 + 1 ->Zaehler für Werte zwischen -8 und -10

    ElseIf Zelle < -10 Or Zelle >= -12 Then
    zaehler3 = zaehler3 + 1 ->Zaehler für Werte zwischen -10 und -12

    ElseIf Zelle < -12 Or Zelle >= -14 Then
    zaehler4 = zaehler4 + 1 ->Zaehler für Werte zwischen -12 und -14

    ElseIf Zelle < -14 Then
    zaehler5 = zaehler5 + 1 ->Zaehler für Werte kleiner als -14

    Else
    zaehler6 = zaehler6 + 1

    End If

    'Next x
    Next
     
  2. Hi,

    sieht soweit gut aus, aber Du solltest überall dort, wo Du Or geschrieben hast, stattdessen ein And einsetzen.

    Melde Dich, falls Du noch Fragen hast. Ich melde mich dann morgen wieder.

    Gruß
    PiPi
     
  3. Danke für Eure Hilfe, hat mir sehr geholfen und wieder neue Denkanstösse gegeben.
    Grüße Prak
     
Die Seite wird geladen...

Zählen mit mehreren Bedingungen (Makro) - Ähnliche Themen

Forum Datum
Excel Buchstabenkombination z.B. "ABC" durch Zahlenkombination z.B."1,2,3" ersetzen Microsoft Office Suite 29. Juli 2013
[INFO] Software-Pirat muss 500.000 Euro Strafe zahlen Windows 7 Forum 18. März 2010
Access Zeilen zählen und dann für jeden Datensatz +1 Windows XP Forum 25. Juli 2013
Excel 2010 - Spalten automatisch zählen Windows XP Forum 22. Apr. 2013
Warum undeutliche Zahlen- und Buchstabencodes Sonstiges rund ums Internet 28. Dez. 2012