Live-Forum - Die aktuellen Beiträge
Datum
Titel
03.11.2025 15:51:02
Zelle E1,Uhrzeit ,gleiche Datum in sichtbare Zellen N suchen
03.11.2025 14:48:20
Links funktionieren nur bei ganzer Tabelle, nicht bei Auszug
03.11.2025 12:49:44
Zählenwenn verwenden über VBA mit einem ExcelNamen
03.11.2025 09:55:38
VBA: Notiz zu einer Zelle hinzufügen funktioniert nicht
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1256to1260
1256to1260
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Autofill bis letzte Zeile von bestimmter Spalte

Forumthread: Autofill bis letzte Zeile von bestimmter Spalte

Autofill bis letzte Zeile von bestimmter Spalte
bestimmter
Hallo zusammen,
ich bin gerade dabei, für meine Diplomarbeit Datensätze auszuwerten. Diese haben unterschiedliche Längen und deshalb muss das letzte Element abhängig vom Datensatz bestimmt werden. Zu dem Thema gibt es ja schon zahlreiche Foreneinträge, für meinen konkreten Fall habe ich trotzdem keine Lösung für mich ableiten können :(
Ich habe den Macro Recorder benutzt und mir alles so formatiert (u.a. Liste aktiviert) wie ichs haben möchte. Dabei habe ich in die erste Zeile von Spalte N bis V Formeln eingegeben die ich da verwenden möchte und diese dann an der Nase "runtergezogen", damit sie für alle Zeilen gelten. Konkret ergab das:
Selection.AutoFill Destination:=Range("N6:V3371"), Type:=xlFillDefault

Mit anderen Worten hat der Macro Recorder den Autofill von N6:V3371 ausgeführt, wobei 3371 meine letzte Zeile ist. Soweit so gut.
Nun wird sich die letzte Zeile allerdings auch ändern mit dem Datensatz. Daher speicher ich mit
Dim Ende As Long
With ActiveSheet
Ende = .Cells(Rows.Count, 2).End(xlUp).Row - 1
End With
die letzte Zeile der zweiten Spalte in "Ende" was für meinen Anwendungsfall richtig ist.
Nun möchte ich "Ende" für den Autofill verwenden, so dass in Spalte V die letzte Zeile verwendet wird. Ich habe zB schon so was versucht:
'Selection.AutoFill Destination:=Range("N6:V &Ende"), Type:=xlFillDefault
aber das hat nicht funktioniert. Ich möchte in Spalte V also die Zeile "Ende" ansprechen und am besten direkt in die Klammer nach Range einfügen.
Ich freue mich über Eure Hilfe!
Viele Grüße,
Sascha
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Autofill bis letzte Zeile von bestimmter Spalte
01.04.2012 17:43:13
bestimmter
Ich hoffe ich habe die Frage verständlich formuliert. Es ist noch anzumerken, dass die Spalten konstant bleiben und sich nur die Zeilenanzahl verändert.
Freue ich auf Feedback!
Sascha
AW: Hinweis
01.04.2012 17:46:05
Hajo_Zi
Hallo Sascha,
Du hast jetzt mit Deiner Antwort, Deinen Beitrag aus der Liste der offenen Beiträge entfernt.

Anzeige
AW: Hinweis
01.04.2012 17:50:23
Sascha
Danke,
hoffe er ist jetzt wieder unter den offenen Beiträgen.
Gruß
Sascha
AW: Autofill bis letzte Zeile von bestimmter Spalte
01.04.2012 17:50:46
bestimmter

Hallo Sascha,
Dim Ende As Long

With ActiveSheet
  Ende = .Cells(.Rows.Count, 2).End(xlUp).Row - 1
  .Range("N6:V6").AutoFill Destination:=Range("N6:V" & Ende), Type:=xlFillDefault
End With


« Gruß Sepp »

Anzeige
AW: Autofill bis letzte Zeile von bestimmter Spalte
01.04.2012 17:58:52
bestimmter
Die Lösung war so nah und doch so fern :)
Jetzt klappts!
Vielen Dank Sepp
;

Forumthreads zu verwandten Themen

AutoFill funktioniert nicht mehr
Anna

Hallo
schon oft habe ich die AutoFill-Methode benutzt und immer lief es einwandfrei, doch auf einmal bekomme ich immer eine Fehlermeldung
"Laufzeitfehler '1004': Die AutoFill-Methode des Range-Objektes konnte nicht ausgeführt werden."
Ich hab schon alles ausprobiert, deswegen glaub...
26.11.2008 10:44:00
Thread-ID: 1027953
2 Beiträge
Spalte bis zur letzten Zeile mit akt. Datum füllen
Stefan

Hallo,
ich habe eine Tabelle mit mehreren gefüllten Spalten (z.B. A, C, E, F) und leeren Spalten dazwischen.
Nun möchte ich Spalte I mit dem aktuellen Datum füllen, und zwar bis zur letzten gefüllten Zeile einer Spalte mit Inhalt.
Wie gehe ich da am besten vor?
Die gefüllten Spa...
03.03.2009 13:35:30
Thread-ID: 1055961
4 Beiträge
Makro: Wort ersetzen bis letzte Zeile von...
Julia

Hallo,
ich habe ein Makro geschrieben welches mir in der Spalte I das Wort "Fixed" durch "Behoben" ersetzt.
Funktioniert auch wunderbar.
Sub fixed_behoben() Sheets("Datenbasis").Select ActiveWindow.SmallScroll ToRight:=-3 Columns("I:I").Select Selection.Replace What:="Fixed", Repl...
30.06.2009 11:17:32
Thread-ID: 1085300
3 Beiträge
Anzeige
in sverweis bis zur letzten Zeile durchsuchen
Stein

Hallo,
ich habe ein kleines Problem:
In einer Tabelle für Auftragsverläufe ist in einer Formel unter anderem auch eine Sverweis- _ Funktion enthalten, in der in der Spalte A das maximale Datum ermittelt und in der entsprechenden Spalte derselben Zeile nachgeprüft werden soll, ob dort ei...
15.09.2010 09:52:41
Thread-ID: 1177651
14 Beiträge
AutoFill bis vorgegebener Zeile
Henner

Hallo,
ich füge im Moment per VBA AutoFill einen SVERWEIS in ein Tabellenblatt. Da in dem Tabellenblatt immer unterschiedlich viele Datensätze stehen, möchte ich den SVERWEIS auch nur in so viele Zeilen runterkopieren lassen, wie Datensätze vorhanden sind.
Momentan wird der SVERWEIS fix...
17.09.2011 11:26:12
Thread-ID: 1230296
12 Beiträge
Druckbereich bis letzte Zeile
Mike

Hallo,
warum kann ich den Druckbereich so nicht einstellen?
.PageSetup.PrintArea = "$A$1:$N" & ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row & "
Die Variable steht nicht in den "".
Gruß
Mike
16.03.2012 10:32:06
Thread-ID: 1255262
2 Beiträge
VBA Funktion kopieren bis zur letzten Zeile
Jannes

Moin Moin,
in Spalte A stehen eindeutige nummer bis z.b. zur Zeile 1000.
In Zelle B1 habe ich eine Formel die ich per Makro bis zur letzten zelle in A unterkopieren möchte.
So weit so gut.
Wenn ich in A neue Werte einfüge ( mehr oder weniger als 1000), soll das Makro die Formel...
09.01.2014 17:48:02
Thread-ID: 1344663
9 Beiträge
Anzeige
Auswahl bis zur letzten Zeile markieren
Andi

Hallo,
kurze Frage zu einem Problem, an dem ich gerade hänge:
Ich moechte einen variablen bereich kopieren, hierzu wollte ich den Bereich ausgehend von der Zelle A1 bis zur letzte beschriebenen Zelle nutzen
.Range(.Cells(1, 1), .Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 1)).copy
14.05.2014 15:12:46
Thread-ID: 1361587
8 Beiträge
Werte in Spalte suchen bis letzte Zeile
Henry

Hallo,
bin ganz stolz zu sagen haben meinen ersten kleinen VBA ohne Recorder Pipapo hingekriegt :)
Aber für die miesten hier natürlich ein lächerlicher Code ...aber für mich nicht :)
Nun der vergleicht jetzt wirklich nur eine definierte Zelle mit einer anderen.
Ich müsste di...
04.06.2014 13:08:33
Thread-ID: 1364562
18 Beiträge
Anzeige
AutoFill funktioniert nicht
peter
Hey Leute,
ganz schnelle Frage, denn ich habe folgendes Problem:
Dim strMaxrow as String
strMaxrow = Worksheets("Tabelle1").Range("B1").End(xLDown).Row
With Worksheets("Tabelle1")
.Range("C1").FormulaLocal = "=WENN(B2="""";"""";JAHR(B2))"
.Range("C1").AutoFill Destination:=R...
09.06.2014 17:15:37
Thread-ID: 1365172
10 Beiträge
Leerzeichen entfernen bis letzte Zeile
Peter

Hallo
Ich habe folgenden Code, jedoch geht der nicht weiter als bis zur 10000 Zeile, möchte jedoch bis ganz runter laufen lassen, oder bis zur letzten Zeile der Tabelle.
Der Code entfernt alle alle Leerzeichen in der Spalte E von links.
Wie müsste ich den Code anpassen?
Option E...
25.11.2014 16:13:21
Thread-ID: 1394479
5 Beiträge
Formel per Makro bis letzte Zeile
onkelbobby

Hallo,
ich würde gerne in einer Tabelle eine Formel per Makro auslösen in der Form:
=A4&", "&A5&", "&A6...
In A4 steht immer der erste Wert, dann kann es in A5, A6, A7, usw. weitere Werte geben.
In A10 soll dann die o. g. Formel von A4 bis zum letzten Wert einget...
13.01.2015 09:47:08
Thread-ID: 1402409
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Autofill bis zur letzten Zeile in Excel VBA

Schritt-für-Schritt-Anleitung

Um den Autofill bis zur letzten Zeile einer bestimmten Spalte in Excel VBA zu nutzen, folge diesen Schritten:

  1. Bestimme die letzte Zeile: Zuerst musst Du die letzte Zeile ermitteln, die Daten in einer bestimmten Spalte enthält. Dies kannst Du mit folgendem Code erreichen:

    Dim Ende As Long
With ActiveSheet
   Ende = .Cells(.Rows.Count, 2).End(xlUp).Row
End With

  2. Setze den Autofill-Befehl: Verwende die ermittelte Zeilennummer für den Autofill. Hier ist der Code, um den Autofill von Zelle N6 bis zur letzten Zeile in Spalte V zu aktivieren:

    With ActiveSheet
   .Range("N6:V6").AutoFill Destination:=Range("N6:V" & Ende), Type:=xlFillDefault
End With

  3. Führe das Makro aus: Führe das Makro aus und beobachte, wie die Formeln in den entsprechenden Zellen automatisch ausgefüllt werden.

Häufige Fehler und Lösungen

  • Excel Autofill funktioniert nicht: Wenn der Autofill-Befehl nicht wie erwartet funktioniert, stelle sicher, dass Du die korrekte Zeilennummer in der Destination-Range verwendest. Verwende den Codebestandteil Ende, um sicherzustellen, dass Du die letzte Zeile korrekt referenzierst.

  • Syntaxfehler: Achte darauf, dass Du das Kaufzeichen (&) korrekt verwendest, um die Zeilennummer in die Range zu integrieren:

    .Range("N6:V" & Ende)

Alternative Methoden

Falls Du nicht mit VBA arbeiten möchtest, kannst Du auch die Autofill-Funktion von Excel manuell nutzen:

  1. Markiere die Zellen: Wähle die Zelle mit der Formel und ziehe das kleine Quadrat in der unteren rechten Ecke nach unten bis zur gewünschten Zeile.
  2. Doppelklick auf den Ausfüllgriff: Wenn die angrenzende Spalte bereits Daten enthält, kannst Du auch einfach doppelt auf den Ausfüllgriff klicken, um die Formel bis zur letzten benachbarten Zeile automatisch ausfüllen zu lassen.

Praktische Beispiele

Hier ist ein konkretes Beispiel, das zeigt, wie Du Autofill in VBA anwendest:

Sub AutofillBeispiel()
    Dim Ende As Long
    With ActiveSheet
        Ende = .Cells(.Rows.Count, 2).End(xlUp).Row
        .Range("N6:V6").AutoFill Destination:=Range("N6:V" & Ende), Type:=xlFillDefault
    End With
End Sub

Dieses Makro füllt die Formeln von N6 bis V und der letzten Zeile in der zweiten Spalte automatisch aus.

Tipps für Profis

  • Verwende Variablen: Um die Wartbarkeit Deines Codes zu verbessern, definiere Variablen für die Spalten, die Du ausfüllen möchtest. So kannst Du leicht Anpassungen vornehmen.
  • Fehlerbehandlung einbauen: Implementiere einfache Fehlerbehandlungen, um sicherzustellen, dass Dein Makro auch bei unerwarteten Situationen korrekt funktioniert.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass der Autofill nur auf bestimmte Zellen angewendet wird?
Du kannst die Range im Autofill-Befehl anpassen, indem Du spezifische Start- und Endzellen angibst.

2. Was tun, wenn der Autofill-Befehl nicht die erwarteten Ergebnisse liefert?
Überprüfe Deine Range-Referenzen und stelle sicher, dass die letzte Zeile korrekt ermittelt wurde. Ein häufiges Problem ist, dass die Zeile nicht richtig gesetzt ist, was zu falschen Autofill-Ergebnissen führt.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige