for - it kombination mit rechnung

Hallo Leute!
Ich bastle immer noch an einer Auswertungsdatei für Messdaten.
Es die werte der Spalte A sind variabel. Wobei es immer entweder zahlen oder Z1, Z2 usw. sind.
Diese können durchgemischt sein und haben keine fixe Reihenfolge.
Deshalb brauche ich eine funktion die verschiedene dinge macht.
Wenn in der Ersten spalte eine zahl steht, enthalten spalte 2 und 4 Werte
und der Wert der spalte 4 wird vom wert der spalte 2 darüber abgezogen und in spalte 5 (gleiche zeile wie wert der spalte 4) eingetragen.
Der Höhenunterschied wird nämlich berechnet aus dem Rückblick der darüberliegenden Zeile - dem Vorblick der aktuellen zeile.
Also ZB. für Zeile 13: B12-D13
ist jedoch ein Z dazwischen wie bei Zeile 18 lautet es: B16-D18
Wenn mehrere Z dazwischen sind zB für 21: B18-D21
Kompliziert formuliert aber ich hoffe Ihr blickt durch.
Ich habe schon einen code gebastelt der das ca darstellen soll aber es funktioniert noch nicht so.
Die Lösungen der berechnungen stehen daneben. Ein teil funktioniert aber die for - it kombination für die Z werte funktioniert wohl nicht :(
In der Datei befinden sich mitlerweile zwei Makros indenen ich herumprobiert habe ...
https://www.herber.de/bbs/user/122617.xlsm
LG

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo theresa,
Dein Anliegen ist schon zu verstehen. Mit Deinem Makro Code ist aber nicht allzuviel anzufangen. Falls es so bleibt, dass die üblichen Verdächtigen unter den Helfern heute einen Ruhetag einzulegen scheinen ;-) schaue ich mir das heute Abend nochmal an. Sitze grade im Büro und kann mich deshalb im Moment nicht drum kümmern.
Erstmal folgende Anmerkungen:

Formatiere Deinen Quelltext immer mit Einrückungen, statt alles linksbündig zu halten

Statt:


For Counter = 11 To 100
If DS1.Cells(Counter, 1)  "" Then
DS1.Cells(Counter, 9) = "x"
End If
Next Counter
For iCount = 11 To 100
If DS1.Cells(iCount, 1) Like "Z*" Then
DS1.Cells(iCount, 9) = "y"
End If
Next iCount

Lieber:


For Counter = 11 To 100
If DS1.Cells(Counter, 1)  "" Then
DS1.Cells(Counter, 9) = "x"
End If
Next Counter
For iCount = 11 To 100
If DS1.Cells(iCount, 1) Like "Z*" Then
DS1.Cells(iCount, 9) = "y"
End If
Next iCount

Dann hättest Du z.B. automatisch gesehen, dass Du im Modul2 ein End If zu viel hast.

Du kannst Blöcke nicht verschachteln. Im folgenden Fall eröffnest Du eine For-Schleife innerhalb eines If-Blockes. Diese muss zwingend vor dem Else ihr Next bekommen. Du setzt das zugehörige Next Count aber erst nach dem kompletten If Then ... Else ... End If und noch einigen Code-Fragmenten. Im folgenden Codeabschnitt Fett und Kursiv hervorgehoben.


If curCell = "" And BCell = "" Then
y = Counter - 1
For Count = y To 12 Step -1
s = 0
Set SCell = DS1.Cells(Count, 1)
If SCell = z# Then
s = s + 1
Else
Exit For
End If
v = s + 1
VCell = DS1.Cells(v, 2)
x = DS1.Cells(v, 2).Value - curCell.Value
Next Count

Schreibe in einem Modul ganz oben immer Option Explicit hin. Dadurch wirst Du gezwungen jede Variable zu deklarieren. Das klingt erstmal nervig, erspart aber sehr sehr viel Ärger, weil Schreibfehler automatisch abgefangen werden.

Die eigentlich gewünschten bedingten Berechnungen habe ich mir noch nicht angesehen. Wollte Dir nur erstmal ein Feedback geben, wo einige Probleme liegen.
Viele Grüße,
Zwenn

Beliebteste Forumthreads (12 Monate)

for - it kombination mit rechnung

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread