Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
420to424
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
420to424
420to424
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zur nächsten Nummer springen

Zur nächsten Nummer springen
Christian
Hallo,
ich habe folgendes Makro, das mir immer wieder einen Überlauf erzeugt. Es passiert ab einer Zeile in der der Wert in Cells(z, 4) = 0 ist. Wie kann ich das verhindern bzw. wie kann ich weiterspringen falls eine Zeile mit 0-Werten kommt?

Sub C_Abweichung()
'Abweichung in Prozent
Dim intReihen As Integer
Dim intAnfang As Integer
Dim Prozent As Double
intReihen = Cells(Rows.Count, 1).End(xlUp).Row
intAnfang = 1 'Startzeile festlegen
Do Until intAnfang > intReihen 'Wenn Anfang grösser Reihen, dann beenden, da Tabelle _
zuende
For z = intAnfang To intReihen
Prozent = (Cells(z, 3).Value / Cells(z, 4).Value) - 1
Cells(z, 6) = Prozent
Next
Cells(z, 6) = Prozent
Prozent = 0
intAnfang = z + 1
Loop
End Sub

Vielen Dank!
Gruss,
Christian

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zur nächsten Nummer springen
Hans
Hallo Christian,
wie folgt:

If Cells(z, 3).Value > 0 Then
Cells(z, 6) = (Cells(z, 3).Value / Cells(z, 4).Value) - 1
End If

Gruss hans
AW: Zur nächsten Nummer springen
Christian
Funktioniert hervorragend, vielen Dank!!!
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige