Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
608to612
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
608to612
608to612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige