Zahl in eckiger Klammer
#1
Hallo,

wie mit normalen Zahlen möchte ich gern dass die Zahlen in der eckigen Klammer sich nach unten verändern wenn man es mit dem kleinen Kreuz runter zieht.

Mit Datum Zahlen usw, geht es ja, aber gibt es eine Möglichkeit dass ich auch die Zahlen in der Klammer in der Reihenfolge vergrößern ??

$moDate[1] 
$moDate[2] 
$moDate[3] 
$moDate[4]


Vielen Dank
Antworten Top
#2
Hola,
="$moDate["&ZEILE(A1)&"]"
Gruß,
steve1da
[-] Folgende(r) 1 Nutzer sagt Danke an steve1da für diesen Beitrag:
  • gitmichi
Antworten Top
#3
Hi stev perfekt, jetzt hab ich in der benachbarten Zelle ein datum zu steht, dies soll hinter dem Text in Zelle c1 erscheinen

Ich habe es mit dieser Formel versucht, passt auch, jedoch erscheint dass Datum nicht als Datum sondern als Zahl

=B2&" "&C2

  $moDate[1]  17.02.2022   $moDate[1] 44609

Mit der Formatierung auf Datum ändert sich jetzt nichts mehr??

Wie kann das funktionieren....
Antworten Top
#4
B2&" "& TEXT(C2 ;"TT.MM.JJJJ")
[-] Folgende(r) 1 Nutzer sagt Danke an oee für diesen Beitrag:
  • gitmichi
Antworten Top
#5
eine andere Frage hätte ich noch.

ist es möglich eine Liste mit Zufallsdatumswerten zu füllen die nur vom 01.01.2024 - 30.06.2024 gehen und auch ein Wochentag (Mo - Fr) sein müssen?

geht sowas?

Danke und Gruß
Antworten Top
#6
Hallo,

der Code erzeugt 100 zufällige Datums-Werte ohne Wochenende:

Code:
Sub F_en()
Dim Dt As Date

For i = 1 To 100
NN:
    Dt = Rnd * 180 + 45658
    If Weekday(Dt, vbMonday) > 5 Then GoTo NN
    
    Cells(i, 3) = Dt    ', Weekday(Dt, vbMonday)
Next i
End Sub

mfg

PS: sorry, für 1.1.2025 - 30.6.2025
[-] Folgende(r) 1 Nutzer sagt Danke an Fennek für diesen Beitrag:
  • gitmichi
Antworten Top
#7
Mit deiner Excel-Version wäre es zu kompliziert (man bräuchte zumindest eine Hilfsspalte) - höchstens mit VBA.
Antworten Top
#8
Hi und Danke, das funktioniert, kann mir noch jemand verraten wo ich im Code ändern kann, dass es sich auf das Jahr 2024 bezieht und dass ich es z. B in Zelle F8 beginnen lassen kann.

Ich kann im Code leider keinen Hinweis darauf finden..
Antworten Top
#9
Hi,


Code:
45658

ist das Startdatum.


Code:
For i = 8 To 107


Code:
Cells(i, 6)
Gruß

Edgar

Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
[-] Folgende(r) 1 Nutzer sagt Danke an BoskoBiati für diesen Beitrag:
  • gitmichi
Antworten Top
#10
Hier etwas angepasst:

Code:
Sub F_en()
Dim Dt As Date

For i = 1 To 100                   'Anzahl der Datumswerte, hier 100
NN:
    Dt = Rnd * 180 + 45292          'ab 1.1.2024
    If Weekday(Dt, vbMonday) > 5 Then GoTo NN
    
    Cells(i+6, "F") = Dt    ', Weekday(Dt, vbMonday)    'ab F6
Next i
End Sub

mfg
[-] Folgende(r) 1 Nutzer sagt Danke an Fennek für diesen Beitrag:
  • gitmichi
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste