Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: Sebastian am April 07, 2012, 14:14:25 Nachmittag

Titel: Office 2010: Wenn Zelle leer, dann Wert darüber
Beitrag von: Sebastian am April 07, 2012, 14:14:25 Nachmittag

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

Titel: Antw:Office 2010: Wenn Zelle leer, dann Wert darüber
Beitrag von: Thomas Ramel am April 07, 2012, 15:17:14 Nachmittag

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

Titel: Antw:Office 2010: Wenn Zelle leer, dann Wert darüber
Beitrag von: Sebastian am April 07, 2012, 18:11:29 Nachmittag

Hallo Thomas,

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

Gruß

Sebastian