Ausfuellen bis nächsten Wert_unten nach oben
18.10.2007 18:37:00
Andreas
ich habe ein Makro, welches innerhalb einer Selektion die Werte von oben nach unten ausfüllt und dabei bis zum nächsten unterschiedlichen Wert den vorherigen nimmt, und dann auf den neuen Wert wechselt und mit diesem weitergeht.
Sub Ausfüllen()
Dim w As Variant
Dim c As Range
Application.ScreenUpdating = False
For Each c In Selection
If c.Value "" Then
w = c.Value
Else
c.Value = w
c.Font.ColorIndex = 37 '19 waere hellgelb
c.Font.Bold = False
End If
Next c
Application.ScreenUpdating = True
End Sub
Das Makro läuft von oben nach unten. Nun benötige ich diese Aktion jedoch auch noch von unten nach oben. Ich habe schon probiert, c und w einfach "umzustellen/ vertauschen" das führte jedoch in den verschiedenen Varianten zu Fehlermeldungen im Debugger. Einmal lief es durch, löschte jedoch alle Werte. Wo muß ich ansetzen, um die Laufrichtung umzukehren?
Vielen Dank für Eure Mühen und Vorschläge.
Abendliche Grüße,
Andreas Hanisch