ich habe mehrere Spalten die bei Änderung einer Zelle den Wert übernehmen und nach unten ausfüllen.
Das habe ich so gelöst und funktioniert auch gut.
'Wenn Zelle sich ändert springe zu Fuellen
Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$K$2" Or Target.Address = "$L$2" Or Target.Address = "$N$2" Or Target. _
Address = "$O$2" Then
Call Fuellen
End If
End Sub
'Fülle Zellen nach unten aus
Sub Fuellen()
Dim Bereich As Range, Zelle As Range
Set Bereich = Range("K3:K11, L3:L11, N3:N11, O3:O11")
For Each Zelle In Bereich.SpecialCells(xlCellTypeBlanks)
Zelle = Zelle.Offset(-1, 0)
Next Zelle
End Sub
Nun habe ich aber eine Spalte die soll bei Eingabe eines Wertes nach unten zählen. Es funktioniert zwar eigenständig aber ich weiß nicht, wie ich diese Prozedur auch in Worksheet_Change(ByVal Target As Excel.Range) mit einbinden kann.
'Berichtsnummern nach unten ausfüllen
Sub Zaehlen()
Range("M2").AutoFill Range("M2:M11"), xlFillSeries
End Sub
Wäre dankbar für jede Hilfe.Gruß
Laeubchen