Datum

Titel

20.04.2024 14:03:38

Http-Request (POST) für GraphQL API-Abfrage

20.04.2024 08:56:18

Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen

20.04.2024 07:57:54

Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit

20.04.2024 00:49:19

Excel Sheet in einen Excel Kalender einfügen

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1072to1076

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Jahre in einer Zelle zusammenführen

Forumthread: Jahre in einer Zelle zusammenführen
4 Beiträge zu diesem Forumthread
Anzeige
339 Threads zu ähnlichen Themen
Excel Dialoge
Top 100 Forumthreads

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

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Jahre in einer Zelle zusammenführen

08.05.2009 11:16:20

{Boris}
AW: Jahre in einer Zelle zusammenführen

08.05.2009 11:21:06

Bertram
AW: Jahre in einer Zelle zusammenführen

08.05.2009 11:22:20

David
AW: Jahre in einer Zelle zusammenführen

08.05.2009 11:30:32

Andreas

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

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

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

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