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

• Inhalt ausfüllen bis zur nächsten gefüllten Zelle von Jutta vom 07.11.2003 09:34:28
  • AW: Inhalt ausfüllen bis zur nächsten gefüllten Zelle - von WernerB. am 07.11.2003 09:45:46
    • AW: Inhalt ausfüllen bis zur nächsten gefüllten Zelle - von Jutta am 07.11.2003 09:49:32
  • Kleine Korrektur - von WernerB. am 07.11.2003 09:48:21
    • AW: Kleine Korrektur - von Jutta am 07.11.2003 09:51:36
  • VBA-Lösung - von IngoG am 07.11.2003 10:16:19
    • AW: VBA-Lösung - von Jutta am 13.11.2003 08:31:12

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

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).

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

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.

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

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




Betrifft: AW: VBA-Lösung



von: Jutta


Geschrieben am: 13.11.2003 08:31:12

Hallo Ingo,




Danke !




Gruß




Jutta

Excel-Beispiele zum Thema " Inhalt ausfüllen bis zur nächsten gefüllten "
Zellinhalt suchen und Zelle auswählen	Zellinhalt in zweitem Blatt ermitteln
Einlesen von Zellinhalten in Variablen	Unterverzeichnisse mit Inhalt löschen
Zellinhalte zeilenweise sortieren	Zellinhalt als Internet-Suchbegriff
Zellinhalt als Label-Aufschrift in UserForm	Textprogramm starten und Inhalte von Zelle A1 eingeben
Nur Zellen mit Inhalt in ComboBox listen	Zellinhalt und Kommentar nach Eingabe festlegen