|
Betrifft: Auffüllen leerer Zellen in markierten Bereich
von: Günter
Geschrieben am: 10.03.2010 07:49:36
Guten Morgen,
könnte mir jemand bei folgendem "Problem" helfen:
In einem markierten Bereich (Spalte) sollen alle
leeren Zellen mit einem Text "x1" ohne Duplikate
aufwärts gefüllt werden.
Wäre dann wie folgt in einer Spalte:
Müller
Meier
x1
Sepp
x2
usw.
Vielleicht VBA?
Gruß
Günter
Betrifft: AW: Auffüllen leerer Zellen in markierten Bereich
von: Worti
Geschrieben am: 10.03.2010 07:56:10
Hallo Günter,
das geht zB. so: Sub Ausfuellen()
Dim rngC As Range
Dim lngL As Long
lngL = 1
For Each rngC In Selection
If IsEmpty(rngC) Then
rngC.Value = "x" & lngL
lngL = lngL + 1
End If
Next rngC
End Sub
Gruß Worti
Betrifft: AW: Auffüllen leerer Zellen in markierten Bereich
von: Günter
Geschrieben am: 10.03.2010 08:18:52
Hallo Worti,
funktioniert prima.
Bei 48.000 Datensätzen ist das manuelle Auffüllen
mühselig und zeitaufwendig. Autofilter auf "leere" usw.
Vielen Dank für die schnelle Hilfe.
Gruß
Günter
|
