Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
212to216
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
212to216
212to216
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

autoausfüllen

autoausfüllen
06.02.2003 11:15:52
Rene Franz
Hallo allerseits,

ich habe in einer Spalte Werte stehen in unterschiedlichen Abständen. z.B. Zelle A/1 998000 die weiteren Zellen A/2 bis A/9 leer, A/10 den Wert 998100 ab A/11 bis A/14 leer usw.
Ich möchte nun diese leeren Zwischenzeilen ausfüllen.
Das die Zellen A/2 bis A9 den Wert 998000 haben die Zellen A/11 bis A14 den Wert 998100 usw.

Vielen Dank im voraus

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: autoausfüllen
06.02.2003 11:56:24
L.Vira

Interaktiv oder VBA?

Re: autoausfüllen
06.02.2003 12:14:32
Uwe

Hallo Rene,
per vba würde es so funktionieren:

Sub füllen()
Dim füllwert
Dim erste As Long
Dim letzte As Long
Dim grenzeunten As Long

grenzeunten = Range("A65536").End(xlUp).Row

Do While letzte < grenzeunten - 1
füllwert = ActiveCell.Value
erste = ActiveCell.Row + 1
Selection.End(xlDown).Select
letzte = ActiveCell.Row - 1
Range("A" & erste & ":A" & letzte).Value = füllwert
Loop

End Sub

Re: autoausfüllen
06.02.2003 13:40:49
Rene Franz

ist egal was besser bzw. einfacher zu realisieren ist.

Vielen Dank im voraus

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige