Inhalt ausfüllen bis zur nächsten gefüllten Zelle

Bild

Betrifft: Inhalt ausfüllen bis zur nächsten gefüllten Zelle
von: Jutta
Geschrieben am: 07.11.2003 09:34:28

Hallo,
ich möchte den Inhalt von Z.B. A4 runterkopieren bis zur nächsten gefüllten Zelle= A8 (A9 ist wieder gefüllt). Dann weiter mit A9 bis A26 (A27 ist wieder gefüllt).Also alle leeren Zellen immer nach unten füllen.Ende z.B. A6000.
Geht das ?

Gruß

Jutta

Bild


Betrifft: AW: Inhalt ausfüllen bis zur nächsten gefüllten Zelle
von: WernerB.
Geschrieben am: 07.11.2003 09:45:46

Hallo Jutta,

wie gefällt Dir das:


Option Explicit

Sub Jutta()
Dim w As Variant
Dim c As Range
    Application.ScreenUpdating = False
    For Each c In Range("A4:A6000")
      If c.Value <> "" Then w = c.Value
      If c.Value <> "" Then w = c.Value
      If c.Value = "" Then c.Value = w
    Next c
    Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).


Bild


Betrifft: AW: Inhalt ausfüllen bis zur nächsten gefüllten Zelle
von: Jutta
Geschrieben am: 07.11.2003 09:49:32

Hallo Werner,

das gefällt mir sehr gut !
Danke !

Jutta


Bild


Betrifft: Kleine Korrektur
von: WernerB.
Geschrieben am: 07.11.2003 09:48:21

Hallo Jutta,

da war eine Zeile doppelt drin. So ist's richtig:


Option Explicit

Sub Jutta()
Dim w As Variant
Dim c As Range
    Application.ScreenUpdating = False
    For Each c In Range("A4:A6000")
      If c.Value <> "" Then w = c.Value
      If c.Value = "" Then c.Value = w
    Next c
    Application.ScreenUpdating = True
End Sub

Gruß WernerB.


Bild


Betrifft: AW: Kleine Korrektur
von: Jutta
Geschrieben am: 07.11.2003 09:51:36

Hallo Werner,

weiß zwar nicht wie sich das ausgewirkt hätte, es hat (meiner Meinung nach) schon vorher perfekt geklappt !

Gruß

Jutta


Bild


Betrifft: VBA-Lösung
von: IngoG
Geschrieben am: 07.11.2003 10:16:19

hallo Jutta,
untenstehende

Sub füllt die aktive spalte mit den vorhandenen werten auf:

Sub auffuellen()
Dim zz#, sp%
Application.ScreenUpdating = False
sp = Selection.Column
For zz = 2 To 60
    With ActiveSheet
        If .Cells(zz, sp) = "" Then
            .Cells(zz - 1, sp).Copy
            .Paste Destination:=.Cells(zz, sp)
        End If
    End With
Next
Application.ScreenUpdating = True
End Sub


Gruß Ingo


Bild


Betrifft: AW: VBA-Lösung
von: Jutta
Geschrieben am: 13.11.2003 08:31:12

Hallo Ingo,

Danke !

Gruß

Jutta


Bild

Beiträge aus den Excel-Beispielen zum Thema " Inhalt ausfüllen bis zur nächsten gefüllten "