Spaltenende erkennen
13.05.2003 10:48:38
Ludwig Metz
sitze hier vor folgendem problem und hoffe, dass mir jemand weiterhelfen kann.
per makro habe ich eine spalte D (~1-25000) mit werten erstellt.
bsp.:
1 0420467.jpg
2 0420468.jpg
3 0420469.jpg
4 0420470.jpg
5 0420471.jpg
6 0420472.jpg
7 0420473.jpg
8
9 0420475.jpg
10
11 0420592.jpg
die leerfelder sollen jetzt mit dem wert "no.jpg" ergänzt werden.
mit folgendem code
Range("G1").Select 'platzhalter für no.jpg
ActiveCell.FormulaR1C1 = "no.jpg"
Range("G1").Select
Selection.Copy
Columns("D:D").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
ActiveSheet.Paste
werden SÄMTLICHE leerzellen (1-65000)ersetzt.
Meine andere Überlegung mit folgendem Code:
Range("G1").Select 'platzhalter für no.jpg
ActiveCell.FormulaR1C1 = "no.jpg"
Range("G1").Select
Selection.Copy
Range("D1").Select
Range(Selection, Selection.End (xlDown)).Select 'tabellenende finden
Selection.SpecialCells(xlCellTypeBlanks).Select --> fehler, keine leerzellen gefunden!!! logisch
ActiveSheet.Paste
findet nur die zellen bis zur ersten leerzelle. gibt es noch eine möglichkeit, dass spaltenende zu erkennen?
mfg
ludwig