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

Autofill LastRow

Autofill LastRow
24.07.2003 17:02:17
Jonathan

Sub ce()
Hallo
ich bin relativ neu hier. Ich habe daten in der Spalte A,B und C. Ich möchte in der Spalte D einen Autofill durchführen, der bis zur letzter Zeile der Spalte A geht. D.h. wenn ich in der Spalte A 500 Zeilen habe möchte ich das der Autofill in der Spalte D (Nur Spalte D!) bis zur 500derste Zeile geht.
Dim LastCellRow As Long
Range("A1").Select
Selection.End(xlDown).Select
LastCellRow = ActiveCell.Row
'MsgBox LastCellRow
Range("C" & LastCellRow).Formula = "=A1+a2"
Range("C" & LastCellRow + 1).Value = "hallo test"
End Sub

Bitte helft mir.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Autofill LastRow
24.07.2003 17:10:49
Nepumuk
Hallo Jonathan,
ich bin mir nicht ganz sicher, ob ich dich richtig verstanden habe. Aber wenn du die Spalte D von der ersten Zeile bis zur letzten Zeile von Spalte A ausfüllen willst, dann geht das so:
Range(Cells(1, 4), Cells(Cells(65536, 1).End(xlUp).Row, 4)) = "hallo test"
Gruß
Nepumuk

AW: Autofill LastRow
24.07.2003 17:14:22
Koenig W.
Hallo Jonathan
hier ein Muster für ein Autoausfüllen mit einem Zähler von 1 bis letzte Zelle.
Du musst das Anpassen an Deine Wünsche.

Sub Ausfuellen()
'automatisches Durchnummerieren
Dim bereich As Range
Dim zelle As Range
Dim i As Long
Dim str As String
'Zuweisen des Bereichs
str = "D1:D"
Set bereich = Range(str & _
ActiveSheet.UsedRange.Rows.Count)
i = 1
'Durchnummerieren
For Each zelle In bereich
zelle.Value = i
i = i + 1
Next zelle
End Sub

Gruss Wilhelm

Anzeige
AW: Autofill LastRow
25.07.2003 10:04:44
Jonathan
danke vielmals.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige