Filterung und Tabellenerstellung über Makro
18.10.2016 17:19:44
Hansi
Grundfunktion: Ich möchte aus einer Datei mit mehreren Tabs immer die letzte Zeile der Spalte A und E herausschreiben (Variabel) und aus der Spalte J immer das Datum und die Zeit. Alles soll in eine Extratabelle mit der Überschrift Kraft und Zeit und Datum geschrieben werden. Kann mir jemand helfen, ich komme nicht weiter.
Danke schon im Voraus.
Sub Erstellung Tab()
Sub TabellenKopierenUntereinander()
Dim i As Integer
With ActiveWorkbook
ActiveCell.FormulaR1C1 = "Zeit"
Range("A1").Select
ActiveCell.FormulaR1C1 = "Kraft"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Zeit"
Range("C1").Select
.Worksheets.Add Before:=.Worksheets(1)
For i = 2 To .Worksheets.Count
'Ermitteln den benutzen Bereich der einzelnen Tabellenblätter
Set rng = .Worksheets(i).UsedRange
'letzte Zeile ermitteln des ersten Blattes
Set rng1 = Worksheets(1).Cells(Rows.Count, "A", "B")
Set rng1 = Worksheets(1).Cells(Rows.Count, "J")
'Bereich kopieren
rng.Copy Destination:=rng1
Next
End With
End Sub