Thema Datum  Von Nutzer Rating
Antwort
Rot Eingabe in irrelevante Felder ändern Ergebnis
 16.03.2018 08:58:36 Bio
NotSolved
16.03.2018 15:53:26 Ben
NotSolved

Ansicht des Beitrags:
Von:
Bio		 Datum:
16.03.2018 08:58:36		 Views:
1419		 Rating:
     
Antwort:
  Ja
Thema:
Eingabe in irrelevante Felder ändern Ergebnis

Hallo alle zusammen.

 

Ich habe VBA für Excel verwendet und im Code natürlich auch einige Zellbezüge verwendet. Nun ist es aber so, dass wenn ich in meinem Excel Tabellenblatt beispielsweise in Zelle Q345 (die absolut keinen Bezug zu jedweder Rechnung hat) eine 1 rein schreibe, sich das gesamte Ergebnis meiner Rechnung ändert - und nein es wird nicht nur neu berechnet und die gleichen Zahlen kommen raus. Die Ergebnisse ändern sich teils um bis zu 0,3 bei einer Mittelwertrechnung mit 2000 Werten dann doch seeeeeehr ungewöhnlich ist.

Hier mal der Code:

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Function oelmw(start, ende, groben, grunten, headoben, headunten) As Double
 
'Start als Zeile, ende als length_pos
 
Do While ActiveWorkbook.Worksheets("MEAS_DATA_Track261_347").Cells(start, 5) <= ende
 
    If groben >= ActiveWorkbook.Worksheets("MEAS_DATA_Track261_347").Cells(start, 6) And _
    grunten <= ActiveWorkbook.Worksheets("MEAS_DATA_Track261_347").Cells(start, 6) Then
        sum = sum + ActiveWorkbook.Worksheets("MEAS_DATA_Track261_347").Cells(start, 4)
        zaehler = zaehler + 1
        start = start + 1
    Else: start = start + 1
    End If
Loop
 
Do While headoben < ActiveWorkbook.Worksheets("MEAS_DATA_Track261_347").Cells(start, 6) _
Or headunten > ActiveWorkbook.Worksheets("MEAS_DATA_Track261_347").Cells(start, 6)
  
    If groben >= ActiveWorkbook.Worksheets("MEAS_DATA_Track261_347").Cells(start, 6) And _
    grunten <= ActiveWorkbook.Worksheets("MEAS_DATA_Track261_347").Cells(start, 6) Then
        sum = sum + ActiveWorkbook.Worksheets("MEAS_DATA_Track261_347").Cells(start, 4)
        zaehler = zaehler + 1
        start = start + 1
    Else: start = start + 1
    End If
Loop
     
     
oelmw = sum / zaehler
 
End Function

 Sämtliche Zellbezüge sind sogar auf einem ganz anderen Tabellenblatt (MEAS_DATA_Track....)

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Eingabe in irrelevante Felder ändern Ergebnis
 16.03.2018 08:58:36 Bio
NotSolved
16.03.2018 15:53:26 Ben
NotSolved