Leere Zeile einfügen wenn Zahlenfolge unterbrochen wird

[Husan]

Hallo,
ich habe das problem, dass ich eine umfangreiche Datenmenge habe.
Da zu bestimmte Jahren keine Wert existieren wurde diese nicht dokumentiert.
Gibt es eine Excel Funktion die mir das Fehlende Jahr in eine neue Zeile eingibt mit leeren Werten.
Zum besseren Verständnis, siehe Anhang.

LG

   

[Klaus-Dieter]

Hallo,

man könnte dafür ein Makro schreiben, was aber für einen einmaligen Einsatz nicht unbedingt sinnvoll ist. Schreibe die Werte unter die Lise und sortiere nach der Spalte mit den Jahreszahlen.

[Husan]

Leider habe ich deine antwort nicht verstanden.
Kannst du mir das bitte nochmal erklären?

[WillWissen]

Hi,

du sollst die fehlenden Jahreszahlen unter die bestehenden schreiben und diese Spalte dann nach den Jahreszahlen aufwärts sortieren.

[UweD]

Hallo


so?

Code gehört in ein Modul

Code:

Sub Erweitern()
   Dim MMAx As Integer, LR As Integer, i As Integer, Neu As Integer
   MMAx = InputBox("Werteingabe", "Höchster Wert", WorksheetFunction.Max(Columns(2)))
   
   LR = Cells(Rows.Count, "B").End(xlUp).Row 'letzte Zeile der Spalte
   
   If Cells(LR, 2) <> MMAx Then
       Rows(LR + 1).Insert xlDown
       Cells(LR + 1, 2) = MMAx
       LR = LR + 1
   End If
   i = 3
   Do Until i = LR - 1
       If Cells(i + 1, 2) > Cells(i, 2) Then
           If Cells(i + 1, 2) - Cells(i, 2) <> 1 Then
               Neu = Cells(i, 2) + 1
               Rows(i + 1).Insert xlDown
               Cells(i + 1, 2) = Neu
               LR = LR + 1
           End If
       End If
       i = i + 1

   Loop
End Sub

LG UweD