Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1000to1004
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1000to1004
1000to1004
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wie müsste die Schleife aussehen?

Wie müsste die Schleife aussehen?
12.08.2008 09:59:00
Captain
Hi,
habe folgenden Code:

Private Sub lst_Gruppe_Detail_AfterUpdate()
With Me
.lst_Monate.AddItem "Januar"
.lst_Monate.AddItem "Februar"
.lst_Monate.AddItem "März"
.lst_Monate.AddItem "April"
.lst_Monate.AddItem "Mai"
.lst_Monate.AddItem "Juni"
.lst_Monate.AddItem "Juli"
.lst_Monate.AddItem "August"
.lst_Monate.AddItem "September"
.lst_Monate.AddItem "Oktober"
.lst_Monate.AddItem "November"
.lst_Monate.AddItem "Dezember"
End With
End Sub


Hatte vorher versucht, diese ganzen AddItems innerhalb einer Schleife zu verpacken, habe aber nur Unsinn herausbekommen. WIe müsste die Schleife lauten?
Hier mein Versuch:


For strMonat = 1 To 12
Me.lst_Monate.Additem(Format(strMonat, "MMMM"))
Next strMonat


Danke
Jack

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wie müsste die Schleife aussehen?
12.08.2008 10:10:00
Hajo_Zi
Hallo Jack
nicht strMonat sondern CDate("1." & strMonat & ".2008")

AW: Wie müsste die Schleife aussehen?
12.08.2008 10:27:39
Captain
Hi Hajo,
hm...danke, aber ich wollte ja die einzelnen Monate in ausgeschriebener Art und Weise: Januar, Februar, März etc... und nicht 01.01.2008 usw.
Was muss ich nun anders machen?
Jack

AW: Wie müsste die Schleife aussehen?
12.08.2008 10:32:00
Yal
Hallo,
so hat's Hajo gemeint mit "nicht strMonat sondern..."
For strMonat = 1 To 12
Me.lst_Monate.Additem(Format(CDate("1." & strMonat & ".2008"), "MMMM"))
Next strMonat
Viel Erfolg
Yal

Anzeige
AW: Wie müsste die Schleife aussehen?
12.08.2008 10:35:00
Captain
Hi Yal,
aso...jetzt wird ein Schuh daraus. Jetzt habe auch ICH es verstanden .-)
Danke Dir
Jack

AW: Wie müsste die Schleife aussehen?
12.08.2008 10:10:00
dieter
Hallo
ich weiß zwar nicht genau was du meinst.
aber versuch mal dies
With Me.ListBox1
.Clear 'Lösch alle einträge
.AddItem "Januar"
.AddItem "Februar"
End With
Gruß dieter

AW: Wie müsste die Schleife aussehen?
12.08.2008 10:38:00
Captain
Hi,
danke, aber so meinte ich das noch nicht. So habe ich es ja. Hajo und Yal hatten dir richtige Intuition für mich...
cu
Jack

AW: Wie müsste die Schleife aussehen?
12.08.2008 10:30:53
c0bRa
Hio...
also Hilfestellung:
VBA-Code aus Microsoft Excel Objekt Tabelle1:
Option Explicit
Sub test()
    Dim i As Integer
    For i = 1 To 12 Step 1
        Debug.Print Format("1." & i & ".2008", "MMMM")
    Next
End Sub
Rückmeldung nicht vergessen...
c0bRa
Ein Fachmann ist jemand, der immer mehr über immer weniger weiß, bis er zuletzt alles über nichts weiß.

Anzeige
AW: Wie müsste die Schleife aussehen?
12.08.2008 10:37:19
Captain
Hi c0bra,
gute Idee...danke Dir
jack

AW: Wie müsste die Schleife aussehen?
12.08.2008 10:44:00
Roland
Hallo Jack,
wenn es wirklich nur um die Monatsbezeichnungen geht:

Private Sub UserForm_Initialize()
Dim i As Integer
With ListBox1
For i = 1 To 12
ListBox1.AddItem Format(MonthName(i))
Next
End With
End Sub


Gruß
Roland Hochhäuser

AW: Wie müsste die Schleife aussehen?
12.08.2008 10:47:00
Roland
Sorry, natürlich ohne Format:

Private Sub UserForm_Initialize()
Dim i As Integer
With ListBox1
For i = 1 To 12
ListBox1.AddItem MonthName(i)
Next
End With
End Sub


Gruß
Roland Hochhäuser

Anzeige

299 Forumthreads zu ähnlichen Themen

automatisches Erstellen von pdf
pdf

Hallo alle zusammen,
ich nutze seit Monaten ein VBA zum automatischen Erstellen von PDF's. Grundlage war eine Muster aus Eurem Archiv Print to pdf von Ramses; habe ich auf meine Anforderungen angepasst.
Hat auch immer klaglos funktioniert.
Nun auf einmal Laufzeitfehler '429' Objekte...
07.08.2008 17:02:59
Thread-ID: 1000034
8 Beiträge
Anzeige
fehler beim speichern - zellname existiert nicht
t4z

Hallo Leute,
folgendes Problem:
Will nach zahlreichen Änderungen in Datei A die Änderungen darin speichern. Kurz vor Ende des Speichervorgangs kommt dann die Fehlermeldung
"Microsoft Excel kann die Formel in der Zelle (Name:[Dateiname.xls]Tabellenname!solver_val) nicht konvertieren,...
07.08.2008 17:53:00
Thread-ID: 1000056
4 Beiträge
Arbeitsblätter zählen und Ergebnis verarbeiten
Botti

Hallo Leute,
heute habe ich wieder mal ein einfaches Problem für Euch, an dem ich aber nicht weiter kommen:
Ich möchte die Arbeitsblätter in meiner Arbeitsmappe zählen. Das ist ja kein Problem (ThisWorkbook.sheets.count).
wenn das makro mehr als ein Arbeitsblatt zählt (also das Erge...
07.08.2008 19:11:30
Thread-ID: 1000078
8 Beiträge
Anzeige
Cursor springt in die Pampa - MultiLine TextBox
Kilo

Hallo liebe VBA Profis
ich bin auf ein für mich nicht lösbares Problem - vielleicht sogar Phänomen gestoßen...
Leider kann ich keine Phänomene dieser Art gebrauchen.
Damit es für Sie etwas anschaulicher wird, hab ich mein Problem als Beispiel (https://www.herber.de/bbs/user/54427.xl...
07.08.2008 20:31:08
Thread-ID: 1000095
2 Beiträge
Leeren von Textfeldern
Textfeldern

Hallo
brauch mal wieder Hilfe!
in meiner Userform sind einige Textboxen und comboboxen mit Werten zur weiteren Berechnung gefüllt.
jetzt die Frage: Gibt es einen Möglichkeit mit einen CommantButton alle Inhalte der textboxen und Comboboxen mit einem Click zuleeren um sie neu zubefül...
07.08.2008 22:26:00
Thread-ID: 1000114
11 Beiträge
Farbige Zellen suchen und Zuordnung auflisten
Excel-Opfer

Hallo zusammen,
ich hab nicht so die Ahnung von Makros und Automationen im Excel, bräuchte allerdings "dringend" eine Vereinfachung meines Excelchaos.
es dreht sich um folgende Problematik:
ich muss diverse Dienstpläne in unsere Personalplanung einarbeiten, leider liefert eine Abtei...
08.08.2008 06:47:00
Thread-ID: 1000143
16 Beiträge
Komplizierte Wenn-Formel für kicker-Spiel
Frank

Hallo miteinander,
ich möchte eine Excel-Datei für das offizielle Fussball-kicker-Managerspiel erstellen, leider scheitere ich total an (vermutlich) den WENN-Formeln ..... vielleicht ist das aber auch gar nicht möglich, was ich erreichen möchte :-(
In der Tabelle sollte man in Spalte A...
08.08.2008 07:28:06
Thread-ID: 1000146
4 Beiträge
Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Anzeige

Links zu Excel-Dialogen

ListBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
3
3
7
3
1
10
15
3
7
2
10
2
3
2
4
9
1
20
9
13
5
2
8
5