title image


Smiley Re: Leere Spalten auffüllen
Hi,



so geht es:









Sub Zahlen_auffuellen()

Dim Zelle As Object

'Bereich bitte anpassen

For Each Zelle In[B1:B6]

  If Zelle = "" Then

    Zelle = Zelle.Offset(-1, 0)

  End If

Next

End Sub





Code eingefügt mit Syntaxhighlighter 4.0





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: