Registriert seit: 17.10.2019
Version(en): 365
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
Registriert seit: 11.04.2014
Version(en): Office 365
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.
Viele Grüße
Klaus-Dieter
Der Erfolg hat viele Väter,
der Misserfolg ist ein Waisenkind
Richard Cobden
Registriert seit: 17.10.2019
Version(en): 365
Leider habe ich deine antwort nicht verstanden.
Kannst du mir das bitte nochmal erklären?
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
Hi,
du sollst die fehlenden Jahreszahlen unter die bestehenden schreiben und diese Spalte dann nach den Jahreszahlen aufwärts sortieren.
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Registriert seit: 05.09.2019
Version(en): Office 365
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