Spaltenzuordnung ändern

Hallo,
der Auszug aus dem untenstehenden Code legt das Datum in Spalte F zu Grunde und rechnet 180 Tage darauf (wobei die 180 Tage für 6 Monate stehen sollen -ist das überhaupt so richtig, um 6 Monate damit auszudrücken oder gibt es da noch eine andere Berechnung?), um das Ergebnis in Spalte R einzutragen. Nun würde ich das Ergebnis gerne in Spalte L eingetragen bekommen. Ändere ich im Code von -12 in -6, dann erscheint in Spalte R #WERT - an welchen Schnittstellen kann die Spaltenzuordnung ändern? - Danke schon jetzt für die Rückmeldungen.
Herzliche Grüße
Wolfgang
'zu dem Datum aus Spalte F 180 dazurechnen und in Spalte R eintragen
rng.Offset(0, 1).Formula = "=RC[-12]+180"
'Formel in Spalte R durch Werte ersetzen
rng.Offset(0, 1).Value = rng.Offset(0, 1).Value

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Yogi,
erneut herzlichen Dank für Deine Rückmeldung; Ich kann da leider Deinen Ausführungen nicht folgen und habe daher 'mal den vollständigen Code beigefügt - Ich wäre Dir dankbar, wenn Du mir anhand des Codes vielleicht erklären könntest wo ich was verändern kann bzw. muß, um jeweils die Spalten zuordnen zu können. Momentan erscheint bei den Umstellungen mit Deinen Ergänzungen der Hinweis, dass ein Listentrennzeichen fehlt. Danke schon jetzt wieder für die Rückmeldung.
Gruß - Wolfgang


Sub Datum2()
'berechnet die Differenz zwischen Datum in Spalte F und HEUTE in Tagen
Dim rng As Range
Dim Bereich As Range
'Set rng = Range("Q2").Resize(Range("F" & Rows.Count).End(xlUp).Row, -1)
Set rng = Range("Q2").Resize(Range("F" & Rows.Count).End(xlUp).Row - 1)
rng.Formula = "=today()-F2"
rng.Value = rng.Value
rng.NumberFormat = "General"
'Teamkennzeichen festlegen
Set Bereich = Range(Cells(2, 15), Cells(Cells(Rows.Count, 7).End(xlUp).Row, 15))
With Bereich
.Formula = "=LEFT(G2,3)"
.Value = .Value
End With
'    Datum in Spalte E zu Grunde legt (Format: 16.11.2008)  #
'    und mir daraus nur die Jahreszahl in Spalte P einträgt #
'Jahr aus Spalte E in Spalte P
rng.Offset(0, -1).Formula = "=YEAR(RC[-11])"
'Formel in Spalte P durch Werte ersetzen
rng.Offset(0, -1).Value = rng.Offset(0, -1).Value
'Zellformat auf Standart setzen
rng.Offset(0, -1).NumberFormat = "General"
'    wenn er das Datum, welches in Spalte F steht mit 180 Tagen hochrechnet #
'    und das Datum dann in Spalte R einträgt                                #
'zu dem Datum aus Spalte F 180 dazurechnen und in Spalte R eintragen
rng.Offset(0, 1).Formula = "=RC[-12]+180"
'Formel in Spalte R durch Werte ersetzen
rng.Offset(0, 1).Value = rng.Offset(0, 1).Value
End Sub

Sub Datum2() 'berechnet die Differenz zwischen Datum in Spalte F und HEUTE in Tagen Dim rng As Range Dim Bereich As Range Dim zeLLe As Range With ActiveSheet 'Set rng = Range("Q2").Resize(Range("F" & Rows.Count).End(xlUp).Row, -1) Set rng = .Range("Q2").Resize(.Range("F" & Rows.Count).End(xlUp).Row - 1) ' Wenn Du eh den Wert einträgst, dann so For Each zeLLe In rng ' Differenz in Spalte Q zeLLe.Value = Date - zeLLe.Offset(0, -11).Value ' Jahr in Spalte P zeLLe.Offset(0, -1).Value = Year(zeLLe.Offset(0, -11).Value) ' Datum + 6 Monate in R zeLLe.Offset(0, 1).Value = DateAdd("m", 6, zeLLe.Offset(0, -11).Value) ' Datum + 6 Monate in L zeLLe.Offset(0, -5).Value = DateAdd("m", 6, zeLLe.Offset(0, -11).Value) Next ' Zellformat in P und Q auf Zahl rng.Offset(0, -1).Resize(, 2).NumberFormat = "0" 'Teamkennzeichen festlegen Set Bereich = .Range(.Cells(2, 15), .Cells(.Cells(Rows.Count, 7).End(xlUp).Row, 15)) End With With Bereich .Formula = "=LEFT(G2,3)" .Value = .Value End With End Sub

Sub Datum2() 'berechnet die Differenz zwischen Datum in Spalte F und HEUTE in Tagen Dim rng As Range Dim Bereich As Range Dim zeLLe As Range Dim temp As Date Application.ScreenUpdating = False With ActiveSheet 'Set rng = Range("Q2").Resize(Range("F" & Rows.Count).End(xlUp).Row, -1) Set rng = .Range("Q2").Resize(.Range("F" & Rows.Count).End(xlUp).Row - 1) Set Bereich = .Range(.Cells(2, 15), .Cells(.Cells(Rows.Count, 7).End(xlUp).Row, 15)) End With With rng ' Jahr in P .Offset(0, -1).Value = Year(Date) ' Differenz zu heute in Q .FormulaR1C1 = "=TODAY() - RC[-11]" .Value = .Value ' Datum + 6 Monate in L .Offset(0, -5).FormulaR1C1 = "=DATE(YEAR(RC[-6]),MONTH(RC[-6])+6, DAY(RC[-6]))" .Offset(0, -5).Value = .Offset(0, -5).Value ' Zellformat in P und Q auf Zahl .Offset(0, -1).Resize(, 2).NumberFormat = "0" End With 'Teamkennzeichen festlegen With Bereich .Formula = "=LEFT(G2,3)" .Value = .Value End With Application.ScreenUpdating = False End Sub

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spaltenzuordnung ändern

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread