Office: Werte auf Tage verteilen

Kerstin_XYZ · 4. September 2013

Liebe Profis,

ich habe versucht die bereits genannten Formeln für mein Problem zu verwenden. Hat aber leider nicht geklappt.
Meine Beträge muss ich in Tagen aufteilen. Kann mir jemand bitte bei der Formel helfen?

Die Tabelle sollte am Schluss so ausschauen:
siehe Anhang (weiß leider nicht, wie ich die Tabelle hier im Text anzeigen lassen kann*frown.gif*

Vielen lieben Dank schon mal. Ich verzweifle gerade ...

Kerstn

:)

Hajo_Zi · 6. September 2013

Hallo Kerstin,

Der Dateiname sollte was mit dem Problem zu tun haben.
Ich habe mir z.B. einen Ordner angelegt in dem ich alle Dateien aus dem Internet speichere. Bei Dateinamen wie Test..., Mappe…, Beispiel… wird eine vorhandene überschrieben.
Schaue hier, Dateiname im Beitrag
das ist nun das Word -Forum, das gilt hier aber auch.

Kerstin_XYZ · 6. September 2013

Hallo Hajo,
mein Problem ist eher, dass ich nicht weiß, wie ich die Beträge auf die Tage verteilen kann :-(
z. B. Betrag 1000 EUR, Beginn 02.01.2013, Laufzeit 4 Tage.
In der Spalte 2.1., 3.1., 4.1 und 5.1 soll dann jeweils der Betrag 250,00 EUR erscheinen.

Hajo_Zi · 6. September 2013

ich kann dir Leider nicht Helfen, da es bei mir keine Spalten 2.1., 3.1., 4.1 und 5.1 gibt. Ich bin dann raus.

GMG-CC · 6. September 2013

\@ Hajo:
ja, es war ein langer und warmer Tag *mrcool

@ Kerstin:
Füge den folgenden Code in das Modul des Arbeitsblalttes ein. Ein Doppelklick auf das Datum in Spalte_A löst dann das Makro aus. Mir ist schon klar, dass ich nicht abgefangen habe, dass evtl. auf eine leere Zelle in Spalte_A geklickt wird.

Code:

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Start As Date, rngDaten As Range, StartCol As Integer
Dim lCol As Integer, Dauer As Integer, Betrag As Long, TeilBetrag As Double
Dim i As Integer, k As Integer
Dim Zeile As Long

lCol = Cells(1, Columns.Count).End(xlToLeft).Column
Dauer = Target.Offset(0, 1).Value
Betrag = Target.Offset(0, 2)
Zeile = Target.Row
Set rngDaten = Range(Cells(1, 4), Cells(1, lCol))

If Target.Column = 1 Then
Start = Target.Value
For i = 4 To lCol
If Cells(1, i) = Target Then Exit For
Next i
If i > lCol Then
MsgBox "Startdatum existiert nicht!"
Exit Sub
End If

'Berechnen und eintragen
If Dauer > 1 Then
TeilBetrag = WorksheetFunction.Round(Betrag / Dauer, 2)
For k = i To i + Dauer - 2
Cells(Zeile, k) = TeilBetrag
Next k
Cells(Zeile, k) = Betrag - ((Dauer - 1) * TeilBetrag)
Else
Cells(1, k) = Betrag
End If
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

OfficeUser · 6. September 2013

Moin Kertin
Formel nach rechts und unten ziehen.
Tabelle1
A B C D E F G H I J K
2 01.01.2013 1 2000,00 2000,00
3 04.01.2013 4 1.000,00 250,00 250,00 250,00 250,00
verwendete Formeln
Zelle Formel Bereich
D2 =WENN(UND(D>=$A2;D<$A2+$B2);$C2/$B2;"")

Kerstin_XYZ · 8. September 2013

Hallo Hary,

vielen vielen Dank. Das hilft mir weiter :-)

Liebe Grüße
Kerstin

GMG-CC · 8. September 2013

Wie gut, dass die 2.000 nicht auf 7 "Portionen" verteilt werden sollen

Kerstin_XYZ · 8. September 2013

Hallo Günther,
sorry, habe Deine Rückmeldung eben erst gelesen.
Vielen Dank natürlich auch noch mal an Dich.
LG
Kerstin

Office: Werte auf Tage verteilen

Werte auf Tage verteilen

Werte auf Tage verteilen

Werte auf Tage verteilen

Werte auf Tage verteilen

Werte auf Tage verteilen - Similar Threads - Werte Tage verteilen

Wenn ein Wert ein einer Spalte, dann komplette Zeile im anderen Blatt untereinander einfügen.

Abfrageergebnis soll keine doppelten Werte enthalten

Teilstring einer Zelle auf Wert aus anderer Zelle überprüfen

Doppelte Werte pro Tag, an anderen nicht

Excel: Werte eines Tages zusammenrechnen

Summenbildung der Werte pro Tag

Nur Werte von bestimmten Tagen des Jahres berücksichtigen

	A	B	C	D	E	F	G	H	I	J	K
2	01.01.2013	1	2000,00	2000,00
3	04.01.2013	4	1.000,00				250,00	250,00	250,00	250,00

verwendete Formeln
Zelle	Formel	Bereich
D2	=WENN(UND(D>=$A2;D<$A2+$B2);$C2/$B2;"")