Spalten Durchlauf Problem
22.10.2021 14:57:46
Mo
ich habe folgendes Problem. Ich möchte hier die Spalte H in Arbeitsblatt Daten nach Stichwörtern durchsuchen und dann alle Zellen mit dem Stichwort, im selben Durchlauf, mit der passenden Formel berechnen. Mein Code startet einen neuen Durchlauf jedoch immer direkt nach dem ersten Fund. Dadurch ändern sich aber die Werte mit denen gerechnet wird. Das soll erst geschehen, wenn H einmal komplett durchsucht wurde und alle Treffer berechnet wurden.
Kann mir hier vielleicht jemanden helfen den Code so umzuschreiben, dass H immer erst komplett durchlaufen wird?
Sub BrennstofkostenDurchlauf()
'Variablen definieren
Dim anzR As Double
Dim iBrennstoffkosten As Double
Dim ZelleAktuell As String
Dim ZelleErgebnis As String
With Worksheets("Daten")
anzR = .Cells(.Rows.Count, 1).End(xlUp).Row
For iBrennstoffkosten = 2 To anzR
ZelleAktuell = "H" & iBrennstoffkosten
Range(ZelleAktuell).Select
ZelleErgebnis = "O" & iBrennstoffkosten
'Berechnet Brennstoffkosten nach Brennstoffart Formel: Brennstoffkostenel = (Brennstoffkosten + Transportkosten) / Effizienz
If ActiveCell.Value = "SK" Then
Range(ZelleErgebnis).Value = (Worksheets("Input Daten").Cells(iBrennstoffkosten, 5) + Worksheets("Input Daten").Cells(iBrennstoffkosten, 11)) / Worksheets("Daten").Cells(iBrennstoffkosten, 13)
ElseIf ActiveCell.Value = "BK" Then
Range(ZelleErgebnis).Value = (Worksheets("Input Daten").Cells(iBrennstoffkosten, 6) + Worksheets("Input Daten").Cells(iBrennstoffkosten, 12)) / Worksheets("Daten").Cells(iBrennstoffkosten, 13)
ElseIf ActiveCell.Value = "EG" Then
Range(ZelleErgebnis).Value = (Worksheets("Input Daten").Cells(iBrennstoffkosten, 7) + Worksheets("Input Daten").Cells(iBrennstoffkosten, 13)) / Worksheets("Daten").Cells(iBrennstoffkosten, 13)
ElseIf ActiveCell.Value = "KG" Then
Range(ZelleErgebnis).Value = (Worksheets("Input Daten").Cells(iBrennstoffkosten, 8) + Worksheets("Input Daten").Cells(iBrennstoffkosten, 14)) / Worksheets("Daten").Cells(iBrennstoffkosten, 13)
ElseIf ActiveCell.Value = "MÖ" Then
Range(ZelleErgebnis).Value = (Worksheets("Input Daten").Cells(iBrennstoffkosten, 9) + Worksheets("Input Daten").Cells(iBrennstoffkosten, 15)) / Worksheets("Daten").Cells(iBrennstoffkosten, 13)
End If
Next iBrennstoffkosten
End With
End Sub