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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen