VBA-Schleifen
08.01.2005 11:40:40
Jan
Ich will das die unten aufgeführte Schleife die Hauptnutzflächen (HNF)1-6 zusammenrechnet. Es gibt noch eine weitere Hauptnutzfläche (HNF7) diese soll, ebenso wie die ganzen anderen Flächenarten, nicht berücksichtigt werden. Die Schleife streikt in der Zeile:
If .Cells(a, 3) = "HNF1" Or "HNF2"......
Für Hilfe wäre ich sehr dankbar.
Jan
Sub HNF()
Dim a As Long
Dim Ergebnis As Double
Ergebnis = 0
With Worksheets("Raumbuch")
For a = 5 To 147
If .Cells(a, 3) = "HNF1" Or "HNF2" Or "HNF3" Or "HNF4" Or "HNF5" Or "HNF6" Then SummeHNF = SummeHNF + .Cells(a, 4)
Ergebnis = Ergebnis + .Cells(a, 4)
Next
End With
Sheets("Makros").Cells(18, 6).Value = SummeHNF
Worksheets("Makros").Select
End Sub