ausfüllen mit unterschiedlichen Bedingungen
06.11.2014 20:55:15
Laeubchen
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
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
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
Gruß
Laeubchen
Anzeige