Thema Datum  Von Nutzer Rating
Antwort
Rot Anfang und Ende des Datenfeldes wird nicht gespeichert
 28.07.2015 08:27:19 Lari
NotSolved

Ansicht des Beitrags:
Von:
Lari		 Datum:
28.07.2015 08:27:19		 Views:
1200		 Rating:
     
Antwort:
  Ja
Thema:
Anfang und Ende des Datenfeldes wird nicht gespeichert

Hallo Zusammen,

leider habe ich keinen ähnlichen Beitrag gefunden, der mir weiterhelfen konnnte.

Zuerst mein 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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Dim letzte_zeile As Integer
Dim zeile_anf(0 To 1000) As Integer     '   dieses Datenfeld merkt sich den Anfang eines Bereichs
Dim zeile_ende(0 To 1000) As Integer    '   dieses Datenfeld merkt sich das Ende eines Bereichs
Dim schalter As Integer, ende As Integer    '   Hilfsvariablen für for-Schleifen
Dim co1 As ChartObject, co2 As ChartObject, co3 As ChartObject  '   werden zur Erstellung der Diagramme benötigt
Dim ch1 As Chart, ch2 As Chart, ch3 As Chart                    '   werden zur Erstellung der Diagramme benötigt
Dim i As Integer    '   Laufvariable innerhalb des Datenfelds
Dim j As Integer    '   Laufvariable für Zeilen
 
'   *********************************************************************************************
'   hier erfolgt die Berechnung der Bereiche nach denen die ersten zwei Diagramme erstellt werden
'   *********************************************************************************************
 
Sub Zellen_Zaehlen()
 
'   ************************************************************************************
'   ACHTUNG:    Die ha_korr steht aktuell in Spalte 44 (AR) ! Darauf wird hier aufgebaut!
'               Sollte sich dies ändern müssen die folgenden Zeilen angepasst werden!
'   ************************************************************************************
letzte_zeile = Cells(Rows.Count, 44).End(xlUp).Row
schalter = 0
i = 1
 
For j = 15 To letzte_zeile          '   Startzeile ist 13 (vgl. bei Unstimmigkeiten Blatt "Berechnung Wht")
    If (Cells(j, 44) > 0 And Cells(j, 44) <> "") And schalter = 0 Then
        zeile_anf(i) = j            '   Beginn eines Bereichs wird hier gesetzt, z.B. 1.Bereich: Beginn bei Zeile 13
        If Cells(j, 44) <> "" Then
            schalter = 1            '   schlater = 1 gesetzt, damit das Ende des Bereichs ermittelt werden kann
        End If
    End If
     
    If Cells(j + 1, 44) = "" Then   '   Hilfskonstruktion um die Funktion Abs in der nächsten Abfrage
        Cells(j + 1, 44) = 0        '   bilden zu können; mit leeren Zellen nicht möglich
    End If
     
    '   wenn die Abweichung der nächsten Zelle >= 0.5 ist (damit werden auch leere Zellen erfasst, da ihr
    '   Anfangswert oben auf 0 gesetzt wurde) wird hier das Ende des Bereichs ermittelt
    If (Abs(Cells(j + 1, 44) - Cells(j, 44)) >= 0.5 And schalter = 1) Then
        zeile_ende(i) = j           '   Ende eines Bereichs wird hier gesetzt, z.B. 1.Bereich: Ende bei Zeile 70
        schalter = 0                '   wird auf 0 gesetzt, damit der Beginn des nächsten Bereichs festgestellt wird
        i = i + 1                   '   nächster Bereich wird initialisiert, somit folgt: 2.Bereich: Beginn/Ende
    End If
     
    If Cells(j + 1, 44) = 0 And schalter = 0 Then   '   die leeren Zellen werden wieder zurück gesetzt,
        Cells(j + 1, 44) = ""                       '   somit wird das Ergebnis nicht verfälscht
    End If
     
Next j
i = i - 1
End Sub

 

Kurze Erklärung:

zeile_anf soll sich ja den Anfang des jeweiligen Bereieches merken, also beim ersten Bereicht "15" und zeile_ende soll übersprungen werden bis eine Leerzeile kommt, die < 0,5 ist und deshalb das Ende eines Bereiches markiert. und dann wieder von vorne.

Das eigenartige ist, dass genau dieser Code in einer anderen Exceltabelle funktioniert. Ich habe diese kopiert und jetzt speichert sie die Bereiche nicht.

Sprich es wird jeder Punkt einzeln in einem Diagramm angezeigt. Obwohl es zum Beipsiel 3 Kurven sein sollten, erhalte ich stattdesssen 300 Einzelpunkte.

 

Vielen Dank schon mal im Voraus!!

 

Grüße Lari

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 Anfang und Ende des Datenfeldes wird nicht gespeichert
 28.07.2015 08:27:19 Lari
NotSolved