Office: fehlende Werte in Tabelle automatisch bilden

Hallo zusammen,

bin leider ein Excel Anfänger und erstelle zur Zeit Diagramme über
die Export Schnittstelle eines Business Intelligence Programmes.

Ich bringe u. a. folgende Werte in eine Tabelle:
A B C
1 Tag %Wert1 %Wert2 usw.
2 0,56 0,79
3 1,6
4 2,82
6 6,89 10,32
usw. bis

29 97,46 98,23
31 30 100 100
32 31


Mein Problem:
Es fehlen Tage im Bereich 1 - 31 oder der eine oder andere %Wert
in den Spalten, so dass sich auch Verschiebungen ergeben, d. h. Tag
27 ist in Wirklichkeit Tag 29.

oft fehlt Tag1 bei meinen Daten und somit die Werte für
Tag 1, die aber auch als 0 vorhanden sein sollen
ziwschen den Tagen 1 bis 31 fehlen ach manchmal Tage
die aber eingeschoben werden müssen. Dabei sollen die %Werte
des Vorgängers eingesetzt werden
Tag 31 soll immer mit 100 ausgefüllt sein
So sollte es aussehen:
A B C
1 Tag %Wert1 %Wert2 usw.
1 0 0
2 0,56 0,79
3 0,56 0,79
4 2,82 0,79
6 6,89 10,32
usw. bis

29 97,46 98,23
31 30 97,46 98,23
32 31 100 100

Ich hoffe es war veständlich und jemand kann mir helfen
Am besten das testdaten xls ansehen
Gruß
Mario

 

Hallo!

Markiere die Daten in Spalte C
Drücke [F5] > Inhalte... > Leerzellen > OK
(alle Leerzellen sind markiert)
Gib ein Gleiheitszeichen ein
Drücke die "Cursor-Up"-Taste
Schließe mit Strg+Enter ab.

Nun sollten die Leerzellen mit den Werten der Vorgänger gefüllt sein.

 

Bestimmt bekommt Schatzi das einfacher hin, aber es tut!

Muster anbei

mfg
Christian

 

Hallo Schatzi,

danke für die schnelle Antwort, wenn ich es manuell machen will, dann
ist es teilweise ok so. Ich rufe Excelaber direkt mit den vorhandenen Werten
aus dem BI-Programm auf, dann sollen die fehlenden Zellen und Zeilen
automatisch gebildet werden, damit das fertige, korrekte Diagramm
direkt angezeigt wird.

Trotzdem danke einweilen, vielleicht fällt dir zur "Automatik"
ja auch was ein.


Gruß
mm211

 

Hallo!

In VBA könnte das z.B. so aussehen:

Code:

Sub test()
Dim c As Range, Bereich As Range
Set Bereich = Range("C2:C" & Range("C65536").End(xlUp).Row)
For Each c In Bereich.SpecialCells(xlCellTypeBlanks)
c = c.Offset(-1, 0)
Next c
End Sub