Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
728to732
728to732
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen ausfüllen

Forumthread: Zellen ausfüllen

Zellen ausfüllen
07.02.2006 10:51:02
Peter
Hallo zusammen,
ich möchte alle Werte der Spalte A bis zur nächsten ausgefüllten Zelle runterkopieren. Das geht irgendwie mit F5 (gehe zu) oder per Makro. Nur das kriege ich nicht hin
Könnt Ihr mir bitte helfen?
Danke
Peter
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zellen ausfüllen
07.02.2006 11:18:08
Peter
Hallo Peter,
füge das beigefügte Makro in ein Standard Modul

Sub Kopieren()
Dim lzeile  As Long
Dim sWert   As String
   For lzeile = 1 To Range("A65536").End(xlUp).Row
      If Not IsEmpty(Range("A" & lzeile).Value) Then
         sWert = Range("A" & lzeile).Value
       Else
         Range("A" & lzeile).Value = sWert
      End If
   Next lzeile
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
AW: Zellen ausfüllen
07.02.2006 11:25:44
peter
Perfekt!!!
Vielen Dank
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige