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

Forumthread: Zeilen bis zum nächsten Eintrag auffüllen

Zeilen bis zum nächsten Eintrag auffüllen
11.05.2005 16:03:02
Jörg
Hallo!
Ich würde gerne eine Zeile kopieren und dann bis exlusive zur nächsten beschriebenen Zelle in der Spalte alle Zellen mit dem Inhalt auffüllen.
Entspricht folgenden Shortcuts:
strg-C
strg-shift-down
einmal up
strg-v
mein Makro:

Sub Makro2()
' Makro2 Makro
' Makro am 11.05.2005 von jponier aufgezeichnet
' Tastenkombination: Strg+t
selection.Copy
Range(selection, selection.End(xlDown)).Select
ActiveSheet.Paste
End Sub

macht allerdings den letzten Schritt eins rauf nicht mit.
Kann mir jemand helfen?
Danke und viele Grüße
Jörg
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen bis zum nächsten Eintrag auffüllen
11.05.2005 16:18:55
bavariabob
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
Selection.SpecialCells(xlCellTypeBlanks).Select
ActiveSheet.Paste
AW: Zeilen bis zum nächsten Eintrag auffüllen
11.05.2005 16:21:11
IngGi
Hallo Jörg,
mein Vorschlag:

Sub Kopieren()
ActiveCell.Copy Destination:=Range(ActiveCell.Offset(1, 0), _
ActiveCell.End(xlDown).Offset(-1, 0))
End Sub

Gruß Ingolf
Anzeige
AW: Zeilen bis zum nächsten Eintrag auffüllen
12.05.2005 11:41:58
Jörg
Danke euch beiden, beide Versionen haben super funktioniert und machen mir das Leben um einiges leichter!!!!
LG
Jörg
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige