VBA-Schleifen

Forumthread: VBA-Schleifen

VBA-Schleifen

08.01.2005 11:40:40

Jan

Mahlzeit und schönes Wochenende!
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

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA-Schleifen

08.01.2005 11:44:53

Josef
AW: VBA-Schleifen

08.01.2005 12:04:07

NE
AW: VBA-Schleifen

Ottmar

AW: VBA-Schleifen

08.01.2005 11:44:53

Josef

Hallo Jan!
Du musst schon jedesmal die Zelle angeben!

Option Explicit
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 .Cells(a, 3) = "HNF2" Or _
      .Cells(a, 3) = "HNF3" Or .Cells(a, 3) = "HNF4" Or _
         .Cells(a, 3) = "HNF5" Or .Cells(a, 3) = "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

Gruß Sepp

AW: VBA-Schleifen

08.01.2005 12:04:07

Ergänzend zu Josef, wenn Du evtl. noch andre Summen brauchst,
bietet sich irgendwann vielleicht auch ein select case an.
BTW, mich würde mal die Struktur deiner Mappe intressieren und
wie kommen die Flächendaten (Dimensionen) da hinein?
Gruss Nancy
--


Sub HNF()
Dim a As Long
Dim Ergebnis As Double
Ergebnis = 0
With Worksheets("Raumbuch")
For a = 5 To 147
select case .Cells(a, 3)
case "HNF1", "HNF2", "HNF3", "HNF4", "HNF5", "HNF6"
SummeHNF = SummeHNF + .Cells(a, 4)
case "FF", "VF", "NNF"
'irgendwasandres
end select
Ergebnis = Ergebnis + .Cells(a, 4)
Next
End With
Sheets("Makros").Cells(18, 6).Value = SummeHNF
Worksheets("Makros").Select
End 

Sub

AW: VBA-Schleifen

Ottmar

Hallo Jan,
die Or-Anweisung ist falsch, sie muß lt.:
If .Cells(a, 3) = "HNF1" Or .Cells(a, 3) = "HNF2" ...
Gruß Ottmar

Beliebteste Forumthreads (12 Monate)

Forumthread: VBA-Schleifen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread