title image


Smiley Re: Automatisches Ausfüllen von leeren Zellen
Hallo Angelika, hallo PeterMit folgendem Makro geht es.Es durchsucht den vorher markierten Bereich in Spalte 1 nach "NIX" und nimmt den Inhalt der Zeile vorher.Sub weiter()    SP = 1 'Spalte A    For Each zelle In Selection    If Cells(zelle.Row, SP) = "" And zelle.Row > 1 Then       Cells(zelle.Row, SP) = Cells(zelle.Row - 1, SP)    End If    NextEnd SubGrüßeUweFragen zu Excel, Access oder Word?EWAF-FAQ-Seiten und www.joerglorenz.de durchsuchen:

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: