|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
07.07.2016 10:54:28 |
Officer_Bierschnitt |
|
|
 Was macht denn dieser Code? |
07.07.2016 11:11:01 |
Officer_Bierschnitt |
|
|
|
07.07.2016 11:24:38 |
Officer_Bierschnitt |
|
|
|
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 11:11:01 |
Views:
451 |
Rating:
|
Antwort:
|
Thema:
Was macht denn dieser Code? |
|
Das ist etwas blöd, hier im Forum sieht der Text völlig anders aus als grad eben in meinem Eingabefenster, so ist das freilich sehr schwer zu lesen. Ich kopier hier noch mal das gesamte Sub hin, vieleicht hängt das ja irgendwie zusammen, auch wenn ich noch nicht verstehe, wie.
Wie gesagt, ich versuch, das im Gesamtzusammenhang alles möglichst lückenlos zu verstehen, weil eigtl. soll ich ja irgendwas daran ändern, das ist dann wesentlich einfacher.
Sub Dia_Init()
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 |
|
|
Was macht denn dieser Code? |
07.07.2016 11:11:01 |
Officer_Bierschnitt |
|
|
|
07.07.2016 11:24:38 |
Officer_Bierschnitt |
|
|
|
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 |
|
|