Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
07.07.2016 10:54:28 |
Officer_Bierschnitt |
|
|
|
07.07.2016 11:11:01 |
Officer_Bierschnitt |
|
|
|
07.07.2016 11:24:38 |
Officer_Bierschnitt |
|
|
Was macht denn dieser Code? |
07.07.2016 16:59:09 |
Officer_Bierschnitt |
|
|
|
07.07.2016 19:44:04 |
Gast2443 |
|
|
|
08.07.2016 10:37:45 |
Officer_Bierschnitt |
|
|
|
08.07.2016 15:43:03 |
Officer_Bierschnitt |
|
|
|
08.07.2016 17:48:03 |
Gast10135 |
|
|
Von:
Officer_Bierschnitt |
Datum:
07.07.2016 16:59:09 |
Views:
458 |
Rating:
|
Antwort:
|
Thema:
Was macht denn dieser Code? |
Hallo,
jetzt ist das vermutlich etwas untergegangen, indem ich zweimal quasi auf mich selbst geantwortet hab, ist nicht mehr erkennbar, dass ich hier nach wie vor Hilfe benötige. Deshalb schreibe ich hier noch mal.
In dieser Datei gibt es also ein >>UserForm1<<, damit kenn ich mich allerdings nicht aus. Sichtbar ist da nur eine Liste mit der Aufforderung, max. 3 Jahre für die Diagramme aus der Liste auszuwählen, die ist aber leer.
Auf der Oberfläche der Datei existiert dazu ja auch nichts, vieleicht macht das dieser Code.
Deshalb wollte ich fragen, ob jemand lesen kann, was dieser Code tut - tw. hab ich das schon kommentiert so gut ich es wusste, aber es fehlt noch was. Ich hab auch kein Element und keinen Button gefunden, der diesen Code aufrufen würde - wie könnte das denn sonst funktionieren?
Sub Dia_Init()
'In dieser Prozedur geht es wohl irgendwie um die Diagramme - im UserForm1 werden ja die Jahre abgefragt, die im Diagramm dargestellt
'werden sollen ...
Dim Jahre(), Zähler As Integer
Zähler = 0
ReDim Preserve Jahre(Zähler)
Jahre(Zähler) = Null
x = 3
' Hier wird die gesamte Liste Eintrag für Eintrag durchlaufen, aber halt erst ab Zeile 3 - es gibt nämlich eine Überschrift und danach eine Leerzeile.
While Not IsEmpty(Sheets("Liste").Cells(x, 1).Value)
' Hier wird der Variable >>Jahre(Zähler)<< einfach das Datum des jeweil. Datensatzes (Spalte A) zugewiesen.
If IsNull(Jahre(Zähler)) Then
Jahre(Zähler) = Year(Sheets("Liste").Cells(x, 1).Value)
ElseIf (Jahre(Zähler)) <> Year(Sheets("Liste").Cells(x, 1).Value) Then
Zähler = Zähler + 1
ReDim Preserve Jahre(Zähler)
Jahre(Zähler) = Year(Sheets("Liste").Cells(x, 1).Value)
End If
x = x + 1
Wend
If IsNull(Jahre(0)) Then
While UserForm1.ListBox1.ListCount >= 1
If UserForm1.ListBox1.ListIndex = -1 Then
UserForm1.ListBox1.ListIndex = UserForm1.ListBox1.ListCount - 1
End If
UserForm1.ListBox1.RemoveItem (UserForm1.ListBox1.ListIndex)
Wend
Else
UserForm1.ListBox1.List() = Jahre()
UserForm1.Show
End If
End Sub
Danke vielmals!
Gruß,
Officer_Bierschnitt
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
07.07.2016 10:54:28 |
Officer_Bierschnitt |
|
|
|
07.07.2016 11:11:01 |
Officer_Bierschnitt |
|
|
|
07.07.2016 11:24:38 |
Officer_Bierschnitt |
|
|
Was macht denn dieser Code? |
07.07.2016 16:59:09 |
Officer_Bierschnitt |
|
|
|
07.07.2016 19:44:04 |
Gast2443 |
|
|
|
08.07.2016 10:37:45 |
Officer_Bierschnitt |
|
|
|
08.07.2016 15:43:03 |
Officer_Bierschnitt |
|
|
|
08.07.2016 17:48:03 |
Gast10135 |
|
|