|
Hallo
Spaltenüberschriften sind für das Problem nicht wichtig.
Problem ist das alle bisherigen Codes führe zu einem falschen Ergebnis,
In der letzten Spalte soll das Jahr der ersten Spalte eingezeigt werden dafür die Formel Jahr(E1) wenn nun alle leeren Zellen auf Grund des des Codes
ausgefüllte werden müsste zB in einer leeren Zelle Jahr(E24) wenn Zeile 24 und in einer leeren Zelle Jahr(E489) stehen wenn Zeile 489
das ist aber bei allen Codes bisher nicht der Fall damit sind die Ergebnisse falsch.
Ich habe inzwischen eine mögliche Lösung gefunden.
For Each Zelle In ActiveSheet.UsedRange.Columns(30).Cells
If Len(Zelle.Value) = 0 Then
Range(Zelle, Zelle.End(xlUp)).FillDown
End If
Next
Macht in meiner Probedatei einwandfrei alles korrekt sobald ich aber den Code auf die große Datei anwende kommt ein Debug und zwar
bei Range(Zelle, Zelle.End(xlUp)).FillDown hier kommt Fehler xlUp-4162 - meine Frage weiss jemand wo ich hier den Fehler suchen muss.
Weiters fänge der Code in Zelle E1 an nun soll aber der Code erst in Zeile 3 anfangen wie müsste man den Code umschreiben das er erst in Zeile 3 anfängt.
VIelen Dank an alle die mir helfen mein Probelm zu lösen.
Bettina
|