In Spalte A habe ich Werte der Form:
R101_1
R101_2
R101_3
R101_3
R101_4
R102_1
R102_1
R102_1
R102_3
R102_4
R102_4
R103_1
R103_2
R103_3
R103_4
Die Werte von _1 bis _4 sind immer eine Einheit (es handelt sich hierbei um Wiederstände einer Gruppe). Danach beginnt eine neue Einheit. Ich würde an anderer Stelle dann gerne eine Auswertung machen:
Beispiel:
Einheit 1 (Anzahl der Werte): 5
Einheit 2 (Anzahl der Werte): 6
Einheit 3 (Anzahl der Werte): 3
usw.
Von Peter bekam ich folgendes Makro, dieses zählt irgendetwas, aber nicht das, was ich bräuchte (nämlich zähle immer von _1 bis _4, danach beginnt eine neue Einheit, zähle wieder von _1 bis _4, bis keine _1 mehr kommt).
Option Explicit
Sub zaehlen()
Dim lgRow As Long
Dim lgZiel As Long
Dim wks As Worksheet
Set wks = Worksheets("Tabelle2")
lgRow = 1
lgZiel = 1
Do
If Left(Cells(lgRow, 1), 5) <> Left(Cells(lgRow + 1, 1), 5) Then
wks.Cells(lgZiel, 1) = Left(Cells(lgRow, 1), 4)
wks.Cells(lgZiel, 2) = Right(Cells(lgRow, 1), Len(Cells(lgRow, 1)) - 5)
lgZiel = lgZiel + 1
End If
lgRow = lgRow + 1
Loop Until IsEmpty(Cells(lgRow, 1))
End Sub
Problem 2(hängt mit dem ersten zusammen):
Hinter den Bezeichnungen R101_1 kommen Werte z.B.
Bezeichnung__Wert1__Wert2__Abweichung__Abweichung zu hoch?
R101_1 78,12__78,83__0,71__Abweichung zu hoch!
Der Text Abweichung zu hoch ! kommt nur, wenn die Abweichung größer als 0,5 ist.
Über
=ZÄHLENWENN(D:D;"Abweichung zu hoch!") zähle ich die Abweichungen. Der Sinn des Zählens ist klar, ich möchte pro Einheit den Prozentsatz der Abweichungen herausfinden.
Dummerweise zählt =ZÄHLENWENN(D:D;"Abweichung zu hoch!") die Abweichungen der ganzen Spalte runter (also D:D; ist auch klar, sage ich ihm ja auch).
Bräuchte aber wie oben wieder eine Separierung der Abweichungen von _1 bis _4 um am Ende sagen zu können:
Einheit 1 hat: 5 (Anzahl Werte), Abweichungen gezählt: 1
Also in % : 1/5 = 20 % Abweichung
Kann mir jemand helfen ?
Gruß
Dari