MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 12.06.2019, 15:39   #1
Koelni1507
Neuer Benutzer
Neuer Benutzer
Standard VBA - ForNext Schleife_ beginnt nicht, wo sie soll

Hallo zusammen,

ich bin ganz neu in der VBA Welt unterwegs und komme bei einer Schleife einfach nicht weiter.

Das Ergebnis von meiner SumIf Funktion soll im Tabellenblatt "Gesamt" ab Zeile 2 ausgegeben werden. Wenn ich die Ausführung starte dann erscheinen die ersten Ergebnisse erst in Zeile 22 für 8 Zeilen, dann passiert 180 Zeilen gar nichts und danach geht es erst mit dem Rest der Schleife weiter.
Die Schleife soll von E2 bis E43 ausgeführt werden.

- Warum erfolgt der Start nicht in E2?
- Warum werden nach Zeile 29 die nächsten 180 Zeilen ausgelassen?

Ich hoffe sehr ihr könnt mir weiterhelfen.

Schon mal DANKE im Voraus.

Hier mein Code :

Dim Ergebnis As Range
Dim Bereich1 As Range

Dim Bereich2 As Range
Dim Zaehler As Integer

Set Ergebnis = Range("Gesamt!E2")
Set Bereich1 = Range("Verbrauch!A:Q")
Set Bereich2 = Range("Verbrauch!Q:Q")


For Zaehler = 2 To 43

Range("Gesamt!E2" & Zaehler).Value = Application.WorksheetFunction.SumIf(Bereich1, Range("A2" & Zaehler).Value, Bereich2)
Next
Koelni1507 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.06.2019, 16:21   #2
Oge
MOF Profi
MOF Profi
Standard

Hallo K...,

da ist wohl eine Ziffer "2" hinter dem "E" zuviel.

"Gesamt!E2" & Zaehler ergibt:

22;23;...;29;210;211;...

__________________

helmut

Für mich ist die Möglichkeit in Excel an Zellen und Bereichen Namen zu vergeben die wichtigste Funktionalität.
Sie macht Formeln und den VBA-code verständlicher. Für Makros gilt die Regel: "Nur über benannte Bereiche auf den Inhalt der Zellen zugreifen."
Und wofür sind Regeln da? Um nachzudenken bevor man sie bricht.
Oge ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.06.2019, 11:06   #3
Koelni1507
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Helmut,

vielen Dank für Deine Antwort! Jetzt funktioniert es :-)
Koelni1507 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:11 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.