Komplexes Problem - mehrere Klassen auf Tabelle

Hallo !
Werde mal versuchen ein etwas komplexeres Problem zu beschreiben für das mir noch keine (zufriedenstellende) Lösung eingefallen ist:
Tabelle mit folgendem Aufbau:
Spalte A "NL" (Niederlassung) mit Ziffern dargestellt ("02","07","61",...). Die Ziffern sind nicht fortlfd. Die Anzahl der Zeilen je NL sind unterschiedlich ! (Mal 14 Zeilen mit "02", dann 9 Zeilen mit "07")
Spalten B, C und D beschreiben 3 Rubriken; .B. "Umsatz", "Stornos",
"Gutschrift".
In einer anderen Tabelle soll nun ausgewertet werden:
Wieviele Werte einer NL in der Rubrik "Stornos" fallen in die Größenklasse "größer 5000 und kleiner 10000" und wieviele in die Klasse "kleiner 2000" ?
Dies bedeutet bei der Auswertung muß nach der NL, der Rubrik und der Anzahl der Werte die der Klasseneingrenzung entspricht gesucht werden.
Komme leider an dieser Stelle nicht so richtig weiter. Vielen Dank für jeden Tip !

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Dim i, Klasse1, Klasse2 As Long, storno As Double Klasse1 = 0: Klasse2 = 0 For i = 2 To Range("A65536").End(xlUp).Row 'Stornowert ermitteln ab Zeile 2 in Spalte 3 storno = Cells(i, 3).Value 'Prüfen, ob in Zelle G1 die NL-Vorgabe übereinstimmt If Cells(i, 1).Value = Cells(1, 7).Value Then 'Prüfen, ob Klasse 1 If storno > 5000 And storno < 10000 Then Klasse1 = Klasse1 + 1 'Prüfen, ob Klasse2 If storno < 2000 Then Klasse2 = Klasse2 + 1 End If Next i 'Ausgabe in Zellen K1 und K2 Cells(1, 11).Value = Klasse1 Cells(2, 11).Value = Klasse2 End Sub

... oder für Umsatz, Storno, Gutschrift wählbar:


Sub test()
Dim i, Klasse1, Klasse2 As Long, wert As Double, Art As Integer
Klasse1 = 0: Klasse2 = 0
For i = 2 To Range("A65536").End(xlUp).Row
'Art (Umsatz,Storno,Gutschrift) aus Zelle I1 ermitteln
Select Case Cells(1, 9).Text
Case "U"
Art = 2
Case "S"
Art = 3
Case "G"
Art = 4
Case Else
MsgBox "Fehler: Art '" & Cells(1, 9).Text & "' unbekannt!"
Exit Sub
End Select
'wert ermitteln ab Zeile 2 (spalte 2,3,4: Umsatz,Storno,Gutschrift)
wert = Cells(i, Art).Value
'Prüfen, ob in Zelle G1 die NL-Vorgabe übereinstimmt
If Cells(i, 1).Value = Cells(1, 7).Value Then
'Prüfen, ob Klasse 1
If wert > 5000 And wert < 10000 Then Klasse1 = Klasse1 + 1
'Prüfen, ob Klasse2
If wert > 0 And wert < 2000 Then Klasse2 = Klasse2 + 1
End If
Next i
'Ausgabe in Zellen K1 und K2
Cells(1, 11).Value = Klasse1
Cells(2, 11).Value = Klasse2
End Sub

Gruss

Beliebteste Forumthreads (12 Monate)

Komplexes Problem - mehrere Klassen auf Tabelle

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread