VBA Lösung - Füllen von leeren Zellen in Spalte

27/09/2011 - 09:56 von Juergen Domberg | Report spam
Hallo,

ich suche eine VBA-lösung für folgendnes:

In einer bestimmten Spalte steht in der 4. zeile eine Überschrift, die
Zeilen 1-3 sind leer. In den Zeilen 5 bis n stehen i.d.R Werte.
Einzelne Zellen enthalten jedoch keine Werte.

Wie kann ich diese leeren Zellen in der Spalte mit einem fixan Wert
z.B. 1 belegen?

DANKE
 

Lesen sie die antworten

#1 Joachim Eger
27/09/2011 - 14:42 | Warnen spam
Am 27.09.2011 09:56, schrieb Juergen Domberg:
Hallo,

ich suche eine VBA-lösung für folgendnes:

In einer bestimmten Spalte steht in der 4. zeile eine Überschrift, die
Zeilen 1-3 sind leer. In den Zeilen 5 bis n stehen i.d.R Werte.
Einzelne Zellen enthalten jedoch keine Werte.

Wie kann ich diese leeren Zellen in der Spalte mit einem fixan Wert
z.B. 1 belegen?

DANKE



Hallo Jürgen,
ich habe da einen Code (selbst irgendwo abgeschrieben).
Eine Zelle sollte bei Ausführung immer leer sein.
Bis zur letzten Zelle wird dann alles ausgefüllt.
Als Beispiel hier für Spalte B.

Sub LeerzellenAusfüllen()

lRow = Range("B" & Rows.Count).End(xlUp).Row
Range(("B5"), Range("B" & lRow)).Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = "1"

End Sub

Mit freundlichen Grüßen
Joachim

Ähnliche fragen