vba - ich finde den Fehler nicht
28.03.2023 17:23:06
Fred
Hallo Excel Profis,
ich habe 2 Makro, das 1. funzt und das 2. Makro gibt zumindest in der Summe falsch an.
bzw. sind die Summen in Makro 2 identisch denen von Makro 1,- und das kann nicht sein.
Sub Makro1()
Dim StartTitel As Integer
Dim EndTitel As Integer
Dim Summe As Double
Dim MinSumme(1 To 5) As Double
Dim TitelMitMinSumme(1 To 5) As Integer
Dim i As Integer
Dim j As Integer
Dim StartZelle As Range
StartTitel = 1
EndTitel = 37
For j = 1 To 5
MinSumme(j) = 1E+100
Next j
Set StartZelle = Worksheets("1Hz").ListObjects("tab_1Hz").ListColumns(7).Range
For Titel = StartTitel To EndTitel
Summe = WorksheetFunction.Sum(StartZelle.Resize(, 8))
For i = 1 To 5
If Summe MinSumme(i) Then
For k = 5 To i + 1 Step -1
MinSumme(k) = MinSumme(k - 1)
TitelMitMinSumme(k) = TitelMitMinSumme(k - 1)
Next k
MinSumme(i) = Summe
TitelMitMinSumme(i) = Titel
Exit For
End If
Next i
Set StartZelle = StartZelle.Offset(0, 1)
Next Titel
For i = 1 To 5
Worksheets("1Hz").Cells(i + 1, "DA").Value = TitelMitMinSumme(i)
Worksheets("1Hz").Cells(i + 1, "DB").Value = MinSumme(i)
Next i
End SubMakro2
Makro2()
Dim StartTitel As Integer
Dim EndTitel As Integer
Dim Summe As Double
Dim MinSumme(1 To 5) As Double
Dim TitelMitMinSumme(1 To 5) As Integer
Dim i As Integer
Dim j As Integer
Dim StartZelle As Range
StartTitel = 46
EndTitel = 82
For j = 1 To 5
MinSumme(j) = 1E+100
Next j
Set StartZelle = Worksheets("1Hz").ListObjects("tab_1Hz").ListColumns(7).Range
For Titel = StartTitel To EndTitel
Summe = WorksheetFunction.Sum(StartZelle.Resize(, 8))
For i = 1 To 5
If Summe MinSumme(i) Then
For k = 5 To i + 1 Step -1
MinSumme(k) = MinSumme(k - 1)
TitelMitMinSumme(k) = TitelMitMinSumme(k - 1)
Next k
MinSumme(i) = Summe
TitelMitMinSumme(i) = Titel
Exit For
End If
Next i
Set StartZelle = StartZelle.Offset(0, 1)
Next Titel
For i = 1 To 5
Worksheets("1Hz").Cells(i + 1, "DM").Value = TitelMitMinSumme(i)
Worksheets("1Hz").Cells(i + 1, "DN").Value = MinSumme(i)
Next i
End Sub