|
Guten Abend
Zuerst möchte ich mich bei allen bedanken die hier mein Problem kommentiert haben, mir Erklärungen geliefert haben.
Bin hier wrklich gut weitergekommen - Code füllt mir alle leeren Zellen korrekt aus auch wenn die dazwischen werte stehen, Problem ist nur das er nur wirklich korrekt funktioniert wenn der Fokus auf der ersten leeren Zelle liegt sonst kommt nämlcih nur Müll da die Zeilen Zuordung nicht mehr korrekt ist.
Vielleicht ist mein erarbeiteter Code auch nur Müll aber selbsterarbeiten ist die Beste Lehre.
Wäre Super wenn mir wer helfen könnte den Code Fehlerfrei zu machen.
Sub Leerzellen_füllenOK()
Dim Bereich As Range, Zelle As Range
Dim iRow As Integer
iRow = Cells(Rows.Count, 1).End(xlUp).Row
Set Bereich = Range("AD3:AD" & iRow)
Bereich.SpecialCells(xlCellTypeBlanks).FormulaLocal = "=WENN(ISTFEHLER(JAHR(E" & ActiveCell.Row & "));JAHR(F" & ActiveCell.Row & ");JAHR(E" & ActiveCell.Row & "))"
End Sub
Tabelle dazu Danke Bettina
| |
|
19.02.2024 |
|
|
|
|
| |
|
|
|
WT |
Beginn Termin |
WT Jahr |
| 728719 |
xxxxxxxxx |
xx |
Juni |
20.06.2024 |
12.06.2024 |
2024 |
| 824308 |
xxxxxxxxx |
xx |
Juli |
11.07.2024 |
03.07.2024 |
2024 |
| 828492 |
xxxxxxxxx |
xx |
Juli |
25.07.2024 |
17.07.2024 |
2024 |
| 828308 |
xxxxxxxxx |
xx |
Januar |
STORNO |
17.01.2024 |
|
| 829007 |
xxxxxxxxx |
xx |
Januar |
STORNO |
17.01.2024 |
|
| 829133 |
xxxxxxxxx |
xx |
Januar |
STORNO |
10.01.2024 |
|
| 830332 |
xxxxxxxxx |
xx |
Februar |
STORNO |
26.01.2024 |
|
| 830348 |
xxxxxxxxx |
xx |
Februar |
STORNO |
26.01.2024 |
|
| 830650 |
xxxxxxxxx |
xx |
Januar |
STORNO |
17.01.2024 |
|
| 832382 |
xxxxxxxxx |
xx |
April |
STORNO |
10.04.2024 |
|
| 832522 |
xxxxxxxxx |
xx |
März |
STORNO |
06.03.2024 |
|
| 829881 |
xxxxxxxxx |
xx |
Januar |
08.01.2024 |
28.12.2023 |
|
| 722520 |
xxxxxxxxx |
xx |
Januar |
11.01.2024 |
03.01.2024 |
|
| 816701 |
xxxxxxxxx |
xx |
Januar |
11.01.2025 |
03.01.2024 |
2025 |
| 826975 |
xxxxxxxxx |
xx |
Januar |
11.01.2025 |
03.01.2024 |
2025 |
| 827271 |
xxxxxxxxx |
xx |
Januar |
11.01.2024 |
03.01.2024 |
|
| 827272 |
xxxxxxxxx |
xx |
Januar |
11.01.2024 |
03.01.2024 |
|
| 828093 |
xxxxxxxxx |
xx |
Januar |
11.01.2024 |
03.01.2024 |
|
| 828169 |
xxxxxxxxx |
xx |
Januar |
11.01.2025 |
03.01.2024 |
|
| |
|
19.02.2024 |
|
|
|
|
| |
|
|
|
WT |
Beginn Termin |
WT Jahr |
| 728719 |
xxxxxxxxx |
xx |
Juni |
20.06.2024 |
12.06.2024 |
2024 |
| 824308 |
xxxxxxxxx |
xx |
Juli |
11.07.2024 |
03.07.2024 |
2024 |
| 828492 |
xxxxxxxxx |
xx |
Juli |
25.07.2024 |
17.07.2024 |
2024 |
| 828308 |
xxxxxxxxx |
xx |
Januar |
STORNO |
17.01.2024 |
|
| 829007 |
xxxxxxxxx |
xx |
Januar |
STORNO |
17.01.2024 |
|
| 829133 |
xxxxxxxxx |
xx |
Januar |
STORNO |
10.01.2024 |
|
| 830332 |
xxxxxxxxx |
xx |
Februar |
STORNO |
26.01.2024 |
|
| 830348 |
xxxxxxxxx |
xx |
Februar |
STORNO |
26.01.2024 |
|
| 830650 |
xxxxxxxxx |
xx |
Januar |
STORNO |
17.01.2024 |
|
| 832382 |
xxxxxxxxx |
xx |
April |
STORNO |
10.04.2024 |
|
| 832522 |
xxxxxxxxx |
xx |
März |
STORNO |
06.03.2024 |
|
| 829881 |
xxxxxxxxx |
xx |
Januar |
08.01.2024 |
28.12.2023 |
|
| 722520 |
xxxxxxxxx |
xx |
Januar |
11.01.2024 |
03.01.2024 |
|
| 816701 |
xxxxxxxxx |
xx |
Januar |
11.01.2025 |
03.01.2024 |
2025 |
| 826975 |
xxxxxxxxx |
xx |
Januar |
11.01.2025 |
03.01.2024 |
2025 |
| 827271 |
xxxxxxxxx |
xx |
Januar |
11.01.2024 |
03.01.2024 |
|
| 827272 |
xxxxxxxxx |
xx |
Januar |
11.01.2024 |
03.01.2024 |
|
| 828093 |
xxxxxxxxx |
xx |
Januar |
11.01.2024 |
03.01.2024 |
|
| 828169 |
xxxxxxxxx |
xx |
Januar |
11.01.2025 |
03.01.2024 |
|
|