Makro auf alle Tabellenblätter laufen lassen
Teggnodd
ich habe ein digitales Oszilloskop mit dem ich alle paar Minuten Werte aufnehmen will, dazu benutze ich Excel. Ich habe mir schon ein kleines Makro zum auslesen der Werte erstellt, hat auch ganz gut Funktioniert. Nun möchte ich aber auch ein Diagramm zu den Werten haben. Dazu habe ich mir ein Makro aufgezeichnet, dass funktioniert aber nur für das erste Tabellnblatt und auf die restlicheen wird es nicht übernommen. Meine Frage ist nun wie bekomme ich das auf alle Tabellenblätter hin.
Hier mal die beiden Makros:
Option Explicit
Dim DataBuffer1(0 To 5000) As Long
Dim DataBuffer2(0 To 5000) As Long
Private Declare
Sub ReadCh1 Lib "DSOLink.dll " (Buffer As Long)
Private Declare
Sub ReadCh2 Lib "DSOLink.dll " (Buffer As Long)
Sub Auslesen()
Dim i As Long
ReadCh1 DataBuffer1(0)
ReadCh2 DataBuffer2(0)
With ActiveSheet
For i = 0 To 4098
.Cells(i + 1, 2) = DataBuffer1(i)
.Cells(i + 1, 3) = DataBuffer2(i)
Next i
End With
Application.OnTime Now + TimeValue("00:00:5"), "Auslesen"
Sheets.Add
End Sub
-----
Sub Diagramm()
' Diagramm Makro
' Tastenkombination: Strg+d
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "='Tabelle '!$C$4:$C$4099"
ActiveChart.SeriesCollection(1).Values = "='Tabelle '!$B$4:$B$4099"
ActiveWindow.ScrollRow = 1
Columns("B:B").Select
Selection.ClearContents
Range("C1").Select
Selection.ClearContents
Columns("C:C").Select
Selection.ClearContents
Range("D5").Select
ActiveWorkbook.Save
Range("H2").Select
End Sub
Anzeige