Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Jahre in einer Zelle zusammenführen

Forumthread: Jahre in einer Zelle zusammenführen

Jahre in einer Zelle zusammenführen
08.05.2009 11:05:55
Andreas
Hallo zusammen,
ich verzweifle hier fast an einem Problem!
In der Recherche habe ich auch nichts passendes gefunden.
Folgendes:
In einer Zelle steht eine Jahreszahl, z.B. '2004'.
ich möchte nun, dass in einer anderen Zelle alle Jahre seit dem bis heute als Werte stehen, durch Leerzeichen getrennt.
Beispiel:
in A1: 2004
dann
in B1: 2004 2005 2006 2007 2008 2009
Weiß jemand wie das geht?
Gruß
Andreas
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Jahre in einer Zelle zusammenführen
08.05.2009 11:16:20
{Boris}
Hi Andreas,
das löst Du am Besten mittels einer eigenen Funktion:

Option Explicit
Function Jahre(Startjahr As Long) As String
Dim x As Long
Dim s As String
For x = Startjahr To Year(Now)
s = s & x & " "
Next x
Jahre = Left(s, Len(s) - 1)
End Function


In der Excelzelle dann:
=JAHRE(A1)
wenn in A1 Dein Startjahr steht.
Grüße Boris

Anzeige
AW: Jahre in einer Zelle zusammenführen
08.05.2009 11:21:06
Bertram
Hallo,
Boris Lösung ist gut, aber nu hab ich's schon geschrieben:-)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
If Target.Address(0, 0) = "A2" Then
Range("B1").ClearContents
For i = Range("A1").Value To Year(Date)
Range("B1").Value = Range("B1").Value & " " & i
Next i
End If
End Sub


Gruß
Bertram

Anzeige
AW: Jahre in einer Zelle zusammenführen
08.05.2009 11:22:20
David
Hallo Andreas,
das geht nur mit VBA, da Textverkettungen nicht über Matrixfunktionen verwendbar sind.
Erstelle z. Bsp. über die VisualBasics-Menüleiste einen Commandbutton und gib dort diesen Code ein:

Private Sub CommandButton1_Click()
Dim Start As Integer
Dim Actual As Integer
Start = Cells(1, 1)
Actual = Year(Date)
Cells(1, 2) = Start
For i = 1 To Actual - Start
Cells(1, 2) = Cells(1, 2) & " " & Start + i
Next
End Sub


Rückmeldung wäre nett.
Gruß
David

Anzeige
AW: Jahre in einer Zelle zusammenführen
08.05.2009 11:30:32
Andreas
Geil, es führen doch viele Wege nach Rom... ;)
Funktionieren alle 3 prima, DANKE.
Gruß & schönes Wochenende
Andreas
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige