Excel Button
Hallo,
https://drive.google.com/file/d/0BzQM-ZoFrfL8anhSYXVOQnYxeTg/view?usp=sh ...
kann ich wie im Download rot markiert per Button die Ziffern aller Leerzellen automatisch mit der
vorhergehenden füllen lassen?
Ist so etwas mit VBA möglich?
MfG
Florian86
https://drive.google.com/file/d/0BzQM-ZoFrfL8anhSYXVOQnYxeTg/view?usp=sh ...
kann ich wie im Download rot markiert per Button die Ziffern aller Leerzellen automatisch mit der
vorhergehenden füllen lassen?
Ist so etwas mit VBA möglich?
MfG
Florian86
Please also mark the comments that contributed to the solution of the article
Content-Key: 258697
Url: https://administrator.de/contentid/258697
Printed on: April 18, 2024 at 06:04 o'clock
5 Comments
Latest comment
Moin Flo,
z.B. so
oder etwas effektiver so
Grüße Uwe
z.B. so
Sub FillWithLastValue()
Dim ws As Worksheet, cell As Range, lastValue As Variant
Set ws = ActiveSheet
With ws
For Each cell In .Range("A1:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
If cell.Value <> "" Then
lastValue = cell.Value
Else
cell.Value = lastValue
End If
Next
End With
End Sub
Sub FillWithLastValue()
Dim cell As Range
With ActiveSheet
For Each cell In .Range("A1:A" & .Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeBlanks)
On Error Resume Next
cell.Value = cell.Offset(-1, 0).Value
Next
End With
End Sub