Office 2010: Wenn Zelle leer, dann Wert darüber

[Sebastian]

Hallo Zusammen,
 
 
 
bin absoluter VBA-Laie, daher bräuchte ich einmal Eure Hilfe. Habe folgenden Code, der den Zellinhalt der vorherigen kopiert sofern die Zelle leer ist.
 
Funktioniert einwandfrei, allerdings nur für Spalte A. Meine Frage: Wie kann ich mit dem Code auch andere Spalten ansprechen?
 
Sub AdressenFuellen()
     For i = 2 To Cells(65536, 2).End(xlUp).Row
     Cells(i, 1).Activate
     If ActiveCell.Value = "" Then GoTo Fuellen Else GoTo NichtFuellen
 Fuellen:
     ActiveCell.Value = ActiveCell.Offset(-1, 0).Value
 NichtFuellen:
     Next i
 End Sub
 
 
 
Vielen Dank für Eure Hilfe!
 
Gruss Sebastian

[Thomas Ramel]

Grüezi Sebastian

Nimm mal die folgende Sub, dann kannst Du einen beliebigen Bereich markieren und es werden die leeren Zellen aufgefüllt:

Code: [Auswählen]

Sub Fill_empty_tr()
    With Selection
        If WorksheetFunction.CountBlank(.Cells) > 1 Then
            .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
            .Value = .Value
        End If
    End With
End Sub

[Sebastian]

Hallo Thomas,

vielen Dank! Werd ich gleich mal ausprobieren....

Gruß

Sebastian