Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: --->Office 2010 Forum <-
in die nächste Zeile springen
zurück: Suche Formel für Code! weiter: For ... Next .... Step (Variable) Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Danyl
Gast


Verfasst am:
09. Jan 2011, 15:31
Rufname:

in die nächste Zeile springen - in die nächste Zeile springen

Nach oben
       Version: Office 2003

Hallo zusammen,

habe als blutiger vba.Anfänger folgendes zusammengeklöppelt:

Sub NCG_SLP_201010()
Dim NCG As Worksheet
Dim Preise As Worksheet
Dim Produkt As Double
Dim Summe As Double
Set Preise = Sheets("Preise")
Set NCG = Sheets("NCG")
Dim i As Long
Dim Zeile As Long
NCG_Spalte = NCG.Cells.Find("*", searchdirection:=xlPrevious).Column
Produkt = 0
Summe = 0
Zeile = 8
For i = 2 To NCG_Spalte Step 2

Summe = Summe + NCG.Cells(Zeile, i + 1)
Produkt = Produkt + NCG.Cells(Zeile, i) * NCG.Cells(Zeile, i + 1)

Next i

Preise.Cells(Zeile, 2).Value = Produkt / Summe

End Sub


Wie bekomme ich es hin, dass wenn NCG_Spalte in Zeile 8 erreicht ist, er dann in Zeile 9 springt und die gleiche Berechnung macht und das Ergebnis ebenfalls in der Tabelle Preise ausweist?

Vielen Dank.

Grüße
Danyl
Klaus-Dieter
Schwerpunktinteresse: VBA und UserForms


Verfasst am:
09. Jan 2011, 16:02
Rufname: Klaus
Wohnort: Sassenburg


AW: in die nächste Zeile springen - AW: in die nächste Zeile springen

Nach oben
       Version: Office 2003

Hallo Danyl,

versuche es mal so (nicht getestet):

Modul Modul1
Option Explicit 
 
Sub NCG_SLP_201010() 
    Dim NCG As Worksheet 
    Dim Preise As Worksheet 
    Dim Produkt As Double 
    Dim Summe As Double 
    Set Preise = Sheets("Preise") 
    Set NCG = Sheets("NCG") 
    Dim i As Long 
    Dim Zeile As Long 
    NCG_Spalte = NCG.Cells.Find("*", searchdirection:=xlPrevious).Column 
    Produkt = 0 
    Summe = 0 
    For Zeile = 8 To 20 
        For i = 2 To NCG_Spalte Step 2 
            Summe = Summe + NCG.Cells(Zeile, i + 1) 
            Produkt = Produkt + NCG.Cells(Zeile, i) * NCG.Cells(Zeile, i + 1) 
        Next i 
        Preise.Cells(Zeile, 2).Value = Produkt / Summe 
    Next Zeile 
End Sub 

Code eingefügt mit VBA in HTML 2.0.0.1

_________________
Viele Grüße
Klaus-Dieter
Lösungsvorschläge sind, wenn es keinen anders lautenden Hinweis gibt, von mir getestet.
Yoga ist besser, als rumsitzen und gar nichts machen.
Danyl
Gast


Verfasst am:
09. Jan 2011, 16:33
Rufname:

AW: in die nächste Zeile springen - AW: in die nächste Zeile springen

Nach oben
       Version: Office 2003

Hallo Klaus,
danke für die Antwort, aber funktioniert leider nicht. Bekomme immer Typenunverträglichkeit angezeigt.

Code:

Sub NCG_SLP_201010()
    Dim NCG As Worksheet
    Dim Preise As Worksheet
    Dim Produkt As Double
    Dim Summe As Double
    Set Preise = Sheets("Preise")
    Set NCG = Sheets("NCG")
    Dim i As Long
    Dim Zeile As Long
    NCG_Spalte = NCG.Cells.Find("*", searchdirection:=xlPrevious).Column
   
    Zeile = 8
    For Zeile = 8 To 9
        Produkt = 0
        Summe = 0
        For i = 2 To NCG_Spalte Step 2
 
            Summe = Summe + NCG.Cells(Zeile, i + 1)
            Produkt = Produkt + NCG.Cells(Zeile, i) * NCG.Cells(Zeile, i + 1)
   
        Next i
        Preise.Cells(Zeile, 2).Value = Produkt / Summe
    Next Zeile
End Sub
[/code]
Klaus-Dieter
Schwerpunktinteresse: VBA und UserForms


Verfasst am:
09. Jan 2011, 16:53
Rufname: Klaus
Wohnort: Sassenburg


AW: in die nächste Zeile springen - AW: in die nächste Zeile springen

Nach oben
       Version: Office 2003

Hallo,

das kann aber nicht an den Schleifen liegen.

_________________
Viele Grüße
Klaus-Dieter
Lösungsvorschläge sind, wenn es keinen anders lautenden Hinweis gibt, von mir getestet.
Yoga ist besser, als rumsitzen und gar nichts machen.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Farben einer Zeile per Wenn-Funktion ändern??? 2 disposible 4932 14. März 2006, 09:07
disposible Farben einer Zeile per Wenn-Funktion ändern???
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Excel Formeln: Zeile auslesen / einlesen (Externe Datei) 0 MavPic 1598 07. März 2006, 12:03
MavPic Zeile auslesen / einlesen (Externe Datei)
Keine neuen Beiträge Excel Formeln: Formeln automatisch in neu eingefügte Zeile übertragen 3 Ferencz 1715 27. Feb 2006, 15:22
Klaus-Dieter Formeln automatisch in neu eingefügte Zeile übertragen
Keine neuen Beiträge Excel Formeln: Bestimmte Zeile summieren 2 Enkel Abrahams 678 09. Dez 2005, 11:37
Enkel Abrahams Bestimmte Zeile summieren
Keine neuen Beiträge Excel Formeln: in Zeile aus Spalten schreiben??? 6 robert_de 2306 25. Nov 2005, 12:10
robert_de in Zeile aus Spalten schreiben???
Keine neuen Beiträge Excel Formeln: Formel für letzte gefüllte Zeile in Spalte 1 börse 9514 16. Nov 2005, 09:24
fridgenep Formel für letzte gefüllte Zeile in Spalte
Keine neuen Beiträge Excel Formeln: Zahlen in einer Zeile auswerten nach den Größtwerten 11 Nicole-Fun 903 26. Okt 2005, 09:44
ransi Zahlen in einer Zeile auswerten nach den Größtwerten
Keine neuen Beiträge Excel Formeln: Wenn Wert = 0,00 dann Zeile davor und die eigene Grün 9 Speedy@Web 1990 22. Okt 2005, 20:19
Maxel3113 Wenn Wert = 0,00 dann Zeile davor und die eigene Grün
Keine neuen Beiträge Excel Formeln: SUMMEWENN mit Suchkriterium Datum;Datum nach jeder Zeile +1? 4 homer_134 3716 20. Sep 2005, 23:48
homer_134 SUMMEWENN mit Suchkriterium Datum;Datum nach jeder Zeile +1?
Keine neuen Beiträge Excel Formeln: Autofilter funktioniert nur bis Zeile 143?? 2 landau666 885 07. Sep 2005, 21:10
landau666 Autofilter funktioniert nur bis Zeile 143??
Keine neuen Beiträge Excel Formeln: Wenn Bedingung Zeile kopieren 1 marco1 1620 28. Jul 2005, 14:04
Günni Wenn Bedingung Zeile kopieren
Keine neuen Beiträge Excel Formeln: Formel für Zusammenzählen jeder zweiten Zelle einer Zeile 2 toto_225 811 11. März 2005, 12:04
toto_225 Formel für Zusammenzählen jeder zweiten Zelle einer Zeile
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Word Serienbriefe