Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
540to544
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
540to544
540to544
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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
Anzeige
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
Anzeige
AW: VBA-Schleifen
08.01.2005 12:04:07
NE
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

Anzeige
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige