Private Sub CommandButton4OberwellenAuto_Click()
With Worksheets("Tabelle1")
.Cells(1, 1).Value = "Frequenz"
.Cells(1, 2).Value = "Level Grundfrequenz"
.Cells(1, 3).Value = "Level 1. Oberwelle (f2)"
.Cells(1, 4).Value = "Level 2. Oberwelle (f3)"
.Cells(1, 5).Value = "delta 1. Oberwelle (f2)"
.Cells(1, 6).Value = "delta 2. Oberwelle (f3)"
End With
Counter = 2
FrequensSteps = Round((StopFrequenzHz - StartFrequenzHz) / AnzahlSteps, 0)
LabelState.Caption = "Status: " & FrequensSteps
Me.Repaint
For Grundfrequenz = StartFrequenzHz To StopFrequenzHz Step FrequensSteps
.
.
.
With Worksheets("Tabelle1")
.Cells(Counter, 1).Value = Grundfrequenz
.Cells(Counter, 2).Value = PegelF0
.Cells(Counter, 3).Value = PegelF2
.Cells(Counter, 4).Value = PegelF3
.Cells(Counter, 5).Value = DeltaF2
.Cells(Counter, 6).Value = DeltaF3
End With
ActiveWorkbook.RefreshAll
Counter = Counter + 1
Next
Counter = Counter + 1
Columns("A:A").Select
Selection.NumberFormat = "#,##0"" Hz"""
Columns("B:D").Select
Selection.NumberFormat = "#,##0.0"" dBm"""
Columns("E:F").Select
Selection.NumberFormat = "#,##0.0"" dB"""
End Sub