Hallo,
hab schon selber n bisschen rumgefummelt aber der Groschen fällt bei mir nicht, bin auch in VBA nicht wirklich fit.
Worksheet 1 hat eine Tabelle
TeileNummer - Messung1 - Messung2 -…- Messung10
Worksheet 2 sieht genauso aus
Nun wähle ich mit nem Kreuzchen in Spalte A aus Tabelle1 8 Stück aus und aus Tabelle 2 4 Stück und schreibe diese in Tabelle 3 als Übersichtsblatt. Nun hab ich oben eine Tabelle mit 8 Einträgen und mit etwas Abstand eine Tabelle mit 4 Einträgen.
Jetzt möchte ich die (unsortierten) Messungen vergleichen. Und zwar dürfen die gefundenen Meßwerte nicht zu nah aneinanderliegen.
Folgende Idee:
nimm Wert 1 aus Tabelle 2
a = Wert minus 20
b= Wert plus 20 (somit hab ich einen Bereich von ± 20 der nicht gestört werden darf)
durchlaufe Tabelle 1 und vergleiche
a
Hallo Hitzl…,
das ist mir heute genauso unklar wie gestern.
Wie wäre es mit einer aussagekräftigeren Beispielmappe, hochgeladen mit FAQ:2606
Gruß
Reinhard
Hallo Reinhard,
das hatte ich leider befürchtet, von hier aus kann ich nichts hochladen, ich machs später von zu Hause aus.
Danke trotzdem!
Gruß
hitz
Guten Tag,
Hallo Reinhard,
ich habe ne Datei hochgeladen, ich hoffe es wird dadurch verständlicher.
Danke
http://www.cplaga.de/beispiel_auswertung.xls
Hallo nochmal,
hab selber was gefummelt das funktioniert, geht wahrscheinlich auch einiges kürzer, Verbesserungen willkommen, hab keine Ahnung von VB:
Sub Vergleich()
Dim a As Long
Dim B As Long
Dim c As Long
Dim d As Long
Dim e As Long
Dim f As Long
Dim g As Long
Dim h As Long
Dim i As Long
Dim strg As String
Dim strg1 As String
Dim strg2 As String
Dim bln As Boolean
a = 23
f = 7
h = 3
i = 3
bln = False
strg1 = Worksheets(„Parameter“).Cells(3, „C“).Value 'Auslesen des Parameters
c = Val(strg1) 'speichern des Par. in Variable
For h = 3 To 12 'Beginn der Schleife für Spalten
For a = 23 To 26 'Beginn der Schleife für Zeilen
strg = Worksheets(„Auswertung“).Cells(a, h).Value
B = Val(strg)
d = B - c
e = B + c 'Generieren des „verbotenen“ Bereichs
For i = 3 To 12
For f = 7 To 14 'Durchlaufen des Sensor1
strg2 = Worksheets(„Auswertung“).Cells(f, i).Value
g = Val(strg2)
If B 0 Then
If d