Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1056to1060
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
Inhaltsverzeichnis

Untereinander Zellen füllen

Untereinander Zellen füllen
09.03.2009 18:45:47
walli
Guten Abend,
ich ermittel so das Ende der beschriebene Zelle in der Spalte B:
Dim z As Long
z = Range("A2").End(xlDown).Row
ActiveSheet.Range(Cells(3, 2), Cells(z, 30)).Select
Wenn das Ende erreicht ist, sollen die nächsten 5 Zellen der Spalte A mit einem Buchstaben
gefüllt werden.
Z.B. A210 = w, A211=w u.s.w.
Wie kann man dies schnell durchführen ?
mfg walli

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Spalte B ?
09.03.2009 18:59:38
Matthias
Hi walli
ich ermittel so das Ende der beschriebene Zelle in der Spalte B:
Sicher Spalte B
benutze .Offset() oder
z+1
z+2
z+3 ... usw.
Gruß Matthias
AW: Spalte B ?
09.03.2009 19:11:23
walli
Hallo Matthias,
ja kann auch Spalte A sein.
Wie sieht den die Formel aus ?
mfg walli
AW: SpalteA
09.03.2009 19:15:43
hary
Hi Walli
versuch mal: Spalte A wird der Buchstabe eingetragen.

Sub A()
Dim z As Long
Dim i As Long
z = Range("A2").End(xlDown).Row
ActiveSheet.Range(Cells(3, 2), Cells(z, 30)).Select
For i = 1 To 5
Cells(z + i, 1) = "A"
Next
End Sub


Gruss hary

Anzeige
das geht auch ohne Schleife und "w" nicht "A" ;o)
09.03.2009 19:21:30
Matthias
Hallo hary
ActiveSheet.Range(Cells(z + 1, 1), Cells(z + 5, 1)) = "w"
schnell_wegrenn :o)
Gruß Matthias
AW: das geht auch ohne Schleife und "w" nicht "A" ;o)
09.03.2009 19:25:35
hary
Hi Matthas
hast Recht. War gerade am Schleife bauen, ging eins ins andere ueber ;-))
Gruss hary
Hallo Matthias u. Hary Danke ! -)
09.03.2009 19:57:28
walli
Hallo Ihr Zwei,
super Klasse funktioniert bestens, danke,
einen schönen Abend noch,
mfg walli
welche Formel? das ist VBA...
09.03.2009 19:17:37
Matthias
Hallo
und was willst Du damit erreichen ?
ActiveSheet.Range(Cells(3, 2), Cells(z, 30)).Select ?
Select ist fast immer unnötig!
also konkret, wenn ich Dich richtig verstanden habe so:(für Spalte A)

Sub walli()
Dim z As Long
z = Range("A2").End(xlDown).Row
ActiveSheet.Range(Cells(z + 1, 1), Cells(z + 5, 1)) = "w"
End Sub


Ist Dir das klar?
Es darf innerhalb des Range("A2").End(xlDown).Row keine Zelle leer sein!
Gruß Matthias

Anzeige
Ja ist mir jetzt klar !!!
09.03.2009 19:58:37
walli

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige