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

Automatisches Ausfüllen von Zellen

Automatisches Ausfüllen von Zellen
Zellen
Hallo Excel-Spezies,
weil´s einfacher ist, habe ich eine Datei rangehängt.
Ich habe in Spalte A und B Einträge, dazwischen Leerzeilen.
Jetzt sollen beie Einträge in Spalte A und B bis zum nächsten
Eintrag kopiert werden.
Das ganze dann bis zum Ende der Liste (Zelleintrag: "Ende")
https://www.herber.de/bbs/user/31059.xls
Danke im Voraus!
Gruß,
Malte

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

Betreff
Benutzer
Anzeige
AW: Automatisches Ausfüllen von Zellen
15.02.2006 15:08:08
Zellen
Hallo,

Sub fuellen()
Dim i As Long, strName As String, lngNummer As Long
For i = 3 To Range("A65536").End(xlUp).Row - 1
If Cells(i, 1) <> "" Then
strName = Cells(i, 1)
lngNummer = Cells(i, 2)
Else
Cells(i, 1) = strName
Cells(i, 2) = lngNummer
End If
Next i
End Sub

Gruß
Geist ist geil!
AW: Automatisches Ausfüllen von Zellen
15.02.2006 15:38:59
Zellen
Hallo!
Super, hat funktioniert.
Danke!!
Gruß,
Malte
Anzeige

156 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige