Sortierung von einer Analyse

[Jockel]

Hallo Detlef, ja sieht gut aus, hab mal vorbeitet, wie das aussehen kann..:

Arbeitsblatt mit dem Namen 'Eingangsdaten'
	I	J	K	L	M	N	O	P
1	Summe von istwert				Analyse
2	Position	sollwert	toleranz +	toleranz -	#01	#02	#03	#04
3	Pos 1	37,5	0,01	-0,01	37,533	37,51	37,501	37,501
4	Pos 2	36,0	0,02	-0,02	36,001	36,03	36,03	36,002
5	Pos 3	40,5	0,03	-0,03	40,49	40,52	40,5209	40,492
6	Pos 4	42,3	0,04	-0,04	42,299	42,312	42,31	42,303

[JimmyJoe]

Sieht gut aus.
Kann man sowas in ein Makro verpacken?
Zahlen etc. sollten keinen Bezug haben für die Weiterverarbeitung ( Zellen keine Formeln )

[JimmyJoe]

Im groben sollte das Makro so aussehen,
wahrscheinlich mit Schleifen und Bedingungen da es auch mehr oder weniger Positionen und Analysen sein können.

[JimmyJoe]

Keiner eine Idee?

[schauan]

Hallo,

die Berechnung mit der Formel aus #9 könnte z.B. so funktionieren (ungetestet)

Code:

Sub Makro1()
'Variablendeklaration
'Integer
Dim iCnt%
'Schleife ueber E2 bis E5
For iCnt = 2 To 5
    'Daten berechnen und in E eintragen
    Range("E2").Value = Application.Evaluate( _
        "=SUMPRODUCT((Eingangsdaten!$B$2:$B$17=$A" & iCnt & ")*(Eingangsdaten!$A$2:$A$17=RIGHT(E$1,3)),Eingangsdaten!$F$2:$F$17)")
'Ende Schleife ueber E2 bis E5
Next
End Sub

[JimmyJoe]

Hallo Schauan,
Danke für deine Hilfe.
Habe den Text mal in ein Makro kopiert, leider funktioniert es nicht.
Anbei die Datei.

[Rabe]

Hi,

Hallo Schauan,
Danke für deine Hilfe.
Habe den Text mal in ein Makro kopiert, leider funktioniert es nicht.
Anbei die Datei.

hier ganz ohne Makro und Formeln, einfach mit einer PivotTable.

  Analyse3 - Pivot.xlsm (Größe: 21,46 KB / Downloads: 2)

[shift-del]

hier ganz ohne Makro und Formeln, einfach mit einer PivotTable.

Das wurde bereits vor zwei Wochen ignoriert.

[Rabe]

Hi Detlef,

Das wurde bereits vor zwei Wochen ignoriert.

ich weiß, aber da es die enfachste und beste Lösung ist, habe ich Deinen Vorschlag nochmal aufgegriffen, mit Datei für die, die noch keine Pivot erstellen können.

[JimmyJoe]

hi, das mit Pivot ist mir eigentlich zu umständlich.
Geplant ist "Knopf drücken" ( Makro ) und fertig ist die Formatierung