markierten Bereich: wenn Zelle leer, Wert aus vorheriger Zelle einfügen

08/11/2011 - 22:10 von Stefan Paesch | Report spam
Moin zusammen,
ich ein wenig Erfahrung mit VBA unter Access.
Bei Excel hilft das jetzt nicht so wirklich weiter.

Ich habe in einer Spalte Werte stehen:

1

2


3

Die leeren Zellen (per Maus markiert)möchte ich mit den vorherigen
Werten auffüllen.
Mein Versuch funktioniert nicht. Hat jemand einen Vorschlag?

Sub MarkierungDurchlaufen()

Dim rngZelle As Range
Dim varAlterWert As Variant

varAlterWert = ActiveCell.Value

For Each rngZelle In Selection

If rngZelle.Value <> varAlterWert Then
rngZelle.Value = varAlterWert
End If

varAlterWert = rngZelle.Value

Next rngZelle

MsgBox "test"

End Sub

Vielen Dank Stefan.
Excel 2010; Win XP
 

Lesen sie die antworten

#1 Carlos Naplos
09/11/2011 - 02:19 | Warnen spam
Hallo

schrieb Stefan Paesch am 08.11.2011 22:10:
Moin zusammen,
ich ein wenig Erfahrung mit VBA unter Access.
Bei Excel hilft das jetzt nicht so wirklich weiter.

Ich habe in einer Spalte Werte stehen:

1

2


3

Die leeren Zellen (per Maus markiert)möchte ich mit den vorherigen
Werten auffüllen.
Mein Versuch funktioniert nicht. Hat jemand einen Vorschlag?




Sub MarkierungDurchlaufen()

Dim rngZelle As Range
Dim varAlterWert As Variant

For Each rngZelle In Selection

If rngZelle.Value = "" Then
rngZelle.Value = varAlterWert
Else
varAlterWert = rngZelle.Value
End If

Next rngZelle

MsgBox "test"

End Sub

Gruß
CN

Ähnliche fragen