Kleines Programm zur Sporenmessung
17.06.2022 17:07:19
Sebastian
mit meiner Mikroskopsoftware messe ich Pilzsporen aus. Die ermittelten Werte kann man in eine CSV-Datei exportieren. Leider kann man in dem Programm nur Längen nacheinander messen, die dann aufgelistet werden. Nun misst man bei Pilzsporen aber immer Länge und dann von der selben Spore die Breite. Das ist relevant, da man zu mykologischen Zwecken immer mehrere Sporen misst und dann das Ergebnis sowohl der Länge als auch der Breite mittelt und zudem aus der Länge und Breite der jeweiligen Spore den Quotient berechnet. Das weiß die Software aber nicht. Sie misst nur stumpf Länge 1, 2, 3, 4, 5, 6 usw. ... die ausgegebene Tabelle des Programms sieht dann so aus:
In dem Fall wäre Länge 1 die Länge von Spore 1, Länge 2 die Breite von Spore 1 ... Länge 3 wäre dann die Länge von Spore 2 und Länge 4 eben die Breite von Spore 2
Ich möchte die ausgegebenen Werte automatisiert nun so sortieren, das die Länge und Breite der jeweiligen Spore nebeneinander in einer Zeile liegen (Längen in Spalte B und Breite in Spalte C). Mit einem aufgezeichneten Makro lösche ich dazu schonmal die Spalte B (ausgegebene Daten "Distanz" brauche ich nicht) und ändere die Überschriften nach meinen Wünschen:
Sub Sporenmessung()
' Sporenmessung Makro
' Tastenkombination: Strg+m
Range("A1").Select
ActiveCell.FormulaR1C1 = "Sporen"
Range("C1").Select
ActiveCell.FormulaR1C1 = "Länge µm"
Range("D1").Select
ActiveCell.FormulaR1C1 = "Breite µm"
Range("E1").Select
ActiveCell.FormulaR1C1 = "Quotient"
Columns("B:B").Select
Selection.Delete Shift:=xlToLeft
End Sub
Die rote Farbe habe ich manuell eingefügt. Das sind die jeweiligen Sporenbreiten, die nun neben die Sporenlängen sollen. Also B4 auf C3; B6 auf C5; B8 auf C7 und so weiter. Die dann leeren Zeilen (B4, B6 usw. könnten dann gelöscht werden). Leider bekomme ich das nicht mit einem Makro hin, da ich nicht weiß wieviel Sporen insgesamt gemessen werden. Das können mal 5 oder eben mal hundert sein. Deswegen bräuchte ich wohl so etwas wie eine Schleife?
Super wäre, wenn dann in Spalte D gleich noch der Quotient zu den Sporenmaßen gerechnet würde (also hier beispielsweise D3=B3/C3) und am Ende der Spalte B (unter dem letzten Wert - hier B17 ... könnte aber auch B101 sein!) der Mittelwert der Längen bzw. der Breiten (Spalte C).
Ich hoffe ich konnte mich verständlich machen und ihr könnt mir helfen und mich vielleicht mit einem passenden Codeschnipsel versorgen. Vielen Dank bereits schon mal im Voraus!
Herzlich Sebastian
