VBA- Makro zum Filtern und erstellen
17.10.2016 23:10:57
Müller
ich habe ein dringliches Problem bezüglich eines Makros. Und Zwar ist es mir dank euer Hilfe gelungen das ein Makro mehrere Dateien eines Ordners in eine Exceldatei mit mehreren Shets erstellt. Nun ist aber bei der Auswertung ein erneutes Problem aufgetreten.
Ich möchte 2 Makros, welche aus den vielen Shets jeweils die Letzten Werte der Spalte A und E in eine Tabelle mit den Spalten Zeit und Kraft überführt.
Desweiteren möchte ich vom Ablauf das gleiche, nur für den Maximalwert aus der Spalte der Kraft.
Bitte um Hilfe. Vielen Dank.
Meine Daten:
Sub Makro5()
' Makro5 Makro
Sheets("Tabelle1").Select
Sheets.Add
ActiveCell.FormulaR1C1 = "Zeit"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Kraft"
Range("A2").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[559]C"
Range("B2").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[559]C[4]"
Range("A3").Select
ActiveCell.FormulaR1C1 = "='Sheet1 (2)'!R[558]C"
Range("B3").Select
ActiveCell.FormulaR1C1 = "='Sheet1 (2)'!R[558]C[4]"
Range("A4").Select
ActiveCell.FormulaR1C1 = "='Sheet1 (3)'!R[557]C"
Range("B4").Select
ActiveCell.FormulaR1C1 = "='Sheet1 (3)'!R[557]C[4]"
Range("A2:A4").Select
End Sub
Anzeige