Sub
Datum_kopieren()
Range(
"A11"
).
Select
Range(Selection, Selection.
End
(xlDown)).
Select
Selection.Copy
Sheets(
"Diagramme"
).
Select
Range(
"A1"
).
Select
ActiveSheet.Paste
End
Sub
Sub
werte_kopieren()
Range(Selection, Selection.
End
(xlDown)).
Select
Selection.Copy
Sheets(
"Diagramme"
).
Select
Range(
"B1"
).
Select
ActiveSheet.Paste
Sheets(
"Werte bereinigt"
).
Select
Range(Selection, Selection.
End
(xlDown)).
Select
Application.CutCopyMode =
False
Selection.Copy
Sheets(
"Diagramme"
).
Select
Range(
"C1"
).
Select
ActiveSheet.Paste
Range(
"D1"
).
Select
Sheets(
"Werte bereinigt"
).
Select
Range(
"E11"
).
Select
Sheets(
"Werte unbereinigt"
).
Select
Range(
"E11"
).
Select
End
Sub
Sub
Diagramm_erstellen()
Range(
"A1"
).
Select
Selection.
End
(xlToRight).
Select
Range(
"A1"
).
Select
Range(Selection, Selection.
End
(xlToRight)).
Select
Range(Selection, Selection.
End
(xlDown)).
Select
ActiveSheet.Shapes.AddChart.
Select
ActiveChart.ChartType = xlXYScatterLinesNoMarkers
ActiveChart.SetSourceData Source:=Range(
"Diagramme!$A$1:$C$105408"
)
ActiveSheet.Shapes(
"Diagramm 15"
).ScaleWidth 2.25625, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes(
"Diagramm 15"
).ScaleHeight 1.2048611111, msoFalse, _
msoScaleFromTopLeft
End
Sub
Sub
löschen()
ActiveWindow.SmallScroll Down:=-18
ActiveWindow.ScrollRow = 105246
ActiveWindow.ScrollRow = 105011
ActiveWindow.ScrollRow = 104660
ActiveWindow.ScrollRow = 104425
ActiveWindow.ScrollRow = 103722
ActiveWindow.ScrollRow = 102550
ActiveWindow.ScrollRow = 101144
ActiveWindow.ScrollRow = 99269
ActiveWindow.ScrollRow = 96690
ActiveWindow.ScrollRow = 89658
ActiveWindow.ScrollRow = 79814
ActiveWindow.ScrollRow = 73133
ActiveWindow.ScrollRow = 60241
ActiveWindow.ScrollRow = 53795
ActiveWindow.ScrollRow = 40903
ActiveWindow.ScrollRow = 34809
ActiveWindow.ScrollRow = 23089
ActiveWindow.ScrollRow = 18518
ActiveWindow.ScrollRow = 12190
ActiveWindow.ScrollRow = 7619
ActiveWindow.ScrollRow = 5861
ActiveWindow.ScrollRow = 4220
ActiveWindow.ScrollRow = 939
ActiveWindow.ScrollRow = 1
Range(
"A1"
).
Select
Range(Selection, Selection.
End
(xlToRight)).
Select
Range(Selection, Selection.
End
(xlToLeft)).
Select
Range(Selection, Selection.
End
(xlDown)).
Select
Range(Selection, Selection.
End
(xlToRight)).
Select
Range(Selection, Selection.
End
(xlDown)).
Select
Selection.ClearContents
End
Sub