Hallo zusammen,
folgendes Problem hat sich aufgetan.
Und zwar fülle ich zunächst meine Tabelle mit den Werten der jeweils darüberstehenden Zelle mit den folgenden Codes:
Dim Bereich As Range, Zelle As Range
Set Bereich = Sheets("Mappe1").Range("A3:A18000")
For Each Zelle In Bereich.SpecialCells(xlCellTypeBlanks)
Zelle = Zelle.Offset(-1, 0)
Next Zelle
Set Bereich = Sheets("Mappe1").Range("B4:B18000")
For Each Zelle In Bereich.SpecialCells(xlCellTypeBlanks)
Zelle = Zelle.Offset(-1, 0)
Next Zelle
https://www.herber.de/bbs/user/90953.xlsx
Das Problem sieht nun so aus, dass in den Zeilen 12-15 (Kategorie C) keine Werte in Spalte 2 stehen dürfen. Durch das automatische Auffüllen wird aber der Wert der Kategorie B (hier: 3) eingetragen.
Die Zellen in den Zeilen 6, 11 und 16 in Spalte 2 werden im Nachhinein gelöscht.
Wie kann ich verhindern, dass der beschriebene Fall eintritt?
Gruß,
Michael