Leere Zellen autoamtisch ausfüllen
25.07.2003 13:32:28
Timo
ich habe folgendes Problem. In der Spalte C sind Listenpreise eingegeben, leider sind nicht alle Listenpreise vorhanden, sodass mit Hilfe eines Straßenpreises in Spalte H und einen Durchschnittlichen Discount(%) in Spalte H der Listenpreis für alle leeren Zellen in C berechnet werden soll. Leider beschäftige ich mich erst seit gestern intensiver mit VBA und habe leider keine Lösung gefunden. Hier dennoch meine ersten Gedanken:
Public
Sub Ausfuellen()
Dim rng As Range
For Each rng In Data Thermal.UsedRange.Sheet.Columns("C5:C99").Cells
If rng.Row = IsEmpty(rng) Then
rng.Value = rng.Offset(0, 4).Value ?????
End If
Next rng
End Sub
Gruss Timo