Sub Makro1()
Application.ScreenUpdating = False
Sheets(Sheets.Count).Select
'Deklarationsbereich
Dim Zähler As Long
Dim iZeile As Long
Dim jZeile As Long
jZeile = 3
iZeile = ActiveSheet.UsedRange.Rows.Count
For Each ar In Columns(5).SpecialCells(2).Areas 'ar ist ein Range
ar.Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.SetSourceData Source:=Range("Tabelle3!$E$4:$F$7")
Next ar
Application.ScreenUpdating = True
MsgBox ("Ihre Daten wurden visualisiert.")
End Sub