title image


Smiley Letzte gefüllte Zeile einer Spalte per VBA ermitteln :
Hey Bouncer,



hier ein VBA-Beispiel, das das Format der Zelle B2 auf alle gefüllten Zellen der Spalte D (ab Zelle D2) überträgt :

Sub FormatÜbertragen()

    'Format von Zelle B2 auf alle Zellen der Spalte D übertragen

    lz = Cells(Rows.Count, "D").End(xlUp).Row 'Letzte gefüllte Zeile der Spalte D

    Range("B2").Copy

    Range("D2:D" & lz).PasteSpecial Paste:=xlPasteFormats

    Application.CutCopyMode = False

End Sub



Code eingefügt mit Syntaxhighlighter 4.0




Grüße, NoNet

  1,2,3 - kleine Excelei :   Infos + Anmeldung zum Jährlichen Exceltreffen



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: