Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: wert in spalte erweitern

wert in spalte erweitern
felix
Hallo Forum,
schaut bitte mal auf meine (primitive) Darstellung:
x 1 2 3
a
b Ü
c
d
e Ä
f
g Ö
h
i
Ich würde gerne den Wert in Spalte 1 auf die darunter liegenden Bereiche der gleichen Spalte erweitern. Das Ü soll also in Zelle c1 und d1 kopiert werden, das Ä in Zelle f1 und das Ö in Zelle h1,i1 usw...
Wie könnte ich das per makro machen?
Vielen Dank,
Grüße,
Felix
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: wert in spalte erweitern
08.10.2009 20:37:39
Worti
Hallo Felix,
das geht zB. so:


Sub Fuellen()
    Dim lngEnde As Long
    Dim lngZeile As Long
    Dim lngStart As Long
    lngEnde = Cells(Rows.Count, 1).End(xlUp).Row
    lngStart = 1
    Do While Cells(lngStart, 1).Value = ""
       lngStart = lngStart + 1
    Loop
    For lngZeile = lngStart To lngEnde - 1
        If Cells(lngZeile + 1, 1).Value = "" Then
           Cells(lngZeile + 1, 1).Value = Cells(lngZeile, 1).Value
        End If
    Next lngZeile
End Sub


Gruß Worti
Anzeige
AW: wert in spalte erweitern
09.10.2009 11:48:26
felix
Danke Worti!
Bin immer wieder begeistert wie einfach so was sein kann wenn man weiß wie's geht
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige