Guten Tag,
ich möchte mit einer combobox ein datum selektieren, um dann anhand dieses datums zu einer bestimmten zelle zu springen. leider gibt mir die cobo das datum nur als fortlaufende zahl wieder zurück.
wie kann ich das umgehen?
es grüßt euch
nikodemo
Hallo!
wie kann ich das umgehen?
das geht mit der Text Funktion
=Text(Hier steht deine fortlaufende Zahl,Format)
Als Format kannst du nehmen was du willst:
zB „TT.MM.JJJJ“ = 01.01.2009 oder „MM/JJJJ“ = „01/2009“
… ich glaub du weißt was ich mein 
mfg
hallo, wotan, danke für deine re.
aber das trifft nicht mein proglem:
im eigenschaftfernster der cobo gebe ich bei „ListFillRange“ eine reihe von datümern ein:
a3:a200
entspricht:
(a3)mai 08
(a4)juni 08
(a5)juli 08
(a6)september 08
usw.
sowie bei „LinkedCell“ b3
angezeigt in der cobo und in der „LinkedCell“ wird aber eine fortlaufende zahl.
mit der fortlaufenden zahl in der „LinkedCell“ könnte ich leben, nicht aber mit der anzeige nach selectiob in der cobo.
probiers mal aus
vieleicht finden wir das problem raus?
viele grüße
dein nikodem
Hallo!
Und das Format der Zellen in denen die Daten stehen ist sicher auf „Datum“ und nicht auf „Text“ ?
mit sicherheit auf mmm.yyyy.
aber wie kann ich das fenster in der cobo formatieren?
gruß
nikodemo
Hey!
Das format der Zellen muss auf Text sein, bin ich drauf gekommen ^^ - also daten als text gespeichert! So sollte es dann auch in der Combobox richtig angezeigt werden!
mfg
Guten Tag,
ja so gehts. wollte es mir einfach machen mit 120 datümern und autoausfüllen, das mit „text“ ja nicht geht.
na ja, seis drum.
danke dir
gruß
nikodemo
schreib dir eine kleine schleife, die schreibt dir dann die Daten auch automatisch hin - ganz ohne autoausfüllen
mfg
vergiss die schleife, hab was noch einfacheres gefunden xd
mach es im datumsformat mit autoausfüllen, dann markier alle und geh in den Reiter „Daten“ -> „Text in Spalten“ -> weiter, weiter, „Text“ auswählen -> Fertig stellen
mfg
ja so gehts. wollte es mir einfach machen mit 120 datümern und
autoausfüllen, das mit „text“ ja nicht geht.
Hallo Nikodemo,
Sub DatumAusfüllen()
Dim Zei As Long, M As Integer, J As Integer
Columns("C:C").NumberFormat = "@"
J = 4
For Zei = 2 To 100
M = M + 1
If M = 13 Then
J = J + 1
M = 1
End If
Cells(Zei, 3) = MonthName(M, 1) & " " & Format(J, "00")
Next Zei
End Sub
Gruß
Reinhard