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

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

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige