Isoplethendiagramm

[MichaGreen]

HAllo Thomas,
Habe noch eine Frage zum Isoplethen-Diagramm:
Immer bei Ausführung des Makros kommt eine Art Fehlermeldung, und zwar ein Dialogfeld mit dem roten Kreuz und dem aufschlussreichen Hinweis "400". Mnachmal fehlen dann von den letzten Tagen des Monats die Stundenwerte in der 23-Uhr-Spalte. Gibt es dafür eine Lösung bzw. ist dieses ominöse Dialogfeld auch bei anderen schon aufgetreten?
Grüsse
Michael

[Sebi]

Hallo!

Vielen Dank auch von mir. Ich hab's nie hinbekommen.

In 3D auch sehr interessant. (Einfach die "Ecken" in excel wegziehen)





Leider kann man bei 3 min Intervall kein ganzes Jahr ins Diagramm packen.

Gruß
Sebi

[Wetterwarte]

Hi Michael,

danke für den Hinweis. Im VBA-Code war die Schleife eine Endlosschleife . Daher wurde das Spaltenende erreicht und eine Fehlermeldung ausgegeben, wobei die Anweisung automatisch beendet wurde. Jetzt habe ich in die Schleife eine IF-Bedingung eingebaut, welche das Makro beendet, sobald eine Spalte weniger als 25 Wertezellen bei einem Durchgang hat.

Ihr könnt in der Excelmappe mit ALT+F11 den VBA-Editor öffnen und den alten Code mit dem unten stehenden Code ersetzen.

Die Downloaddatei auf der Webseite wurde bereits korrigiert.

Gruß
Thomas

Code: Alles auswählen

Sub Div_24_List()
    Dim y As Integer, i As Integer
    Dim lRow As Integer
    Dim divArea As Range
    'Teiler definieren
    y = 24
    'Letze Zelle der Spalte mit der Liste
    Set divArea = Range("A750")
    '****************************
    'Hier nichts mehr anpassen
    'Letzen Eintrag definieren
    lRow = divArea.End(xlUp).Row
    'Prüfung ob Tabelle ausreichend ist
    If lRow / y > 255 Then
        MsgBox "Zuviele Daten"
        Set divArea = Nothing
        Exit Sub
    End If
    For i = 1 To Application.WorksheetFunction.RoundUp(lRow, 0)
        If lRow < 25 Then
        Exit Sub
        End If
        Range&#40;Cells&#40;y + 1, divArea.Column&#41;, Cells&#40;lRow, divArea.Column&#41;&#41;.Cut Cells&#40;1, i + 1&#41;
        Set divArea = Cells&#40;65536, i + 1&#41;
        lRow = divArea.End&#40;xlUp&#41;.Row
    Next i
End Sub

[Wetterwarte]

Hi Sebi,

diese Diagrammansicht ist interessant. Einige andere neue Beispiele habe ich auf der Webseite hinzugefügt.

Gruß
Thomas

[MichaGreen]

Hi Michael,

danke für den Hinweis. Im VBA-Code war die Schleife eine Endlosschleife

Ok, besten Dank. Nun ist's perfekt!
Grüsse
Michael