Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
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
1228to1232
1228to1232
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

AutoFill bis vorgegebener Zeile

Forumthread: AutoFill bis vorgegebener Zeile

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 bis Zeile B5000 geschrieben:

ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC[-1],EIN!C[-1]:C[24],9,TRUE)),"""",VLOOKUP(RC[-1],EIN!C[-1]:C[24],9, _
TRUE))"
Selection.AutoFill Destination:=Range("B1:B5000")
Wenn aber nun 5100 Zeilen in der Tabelle gefüllt sind, soll der SVERWEIS bis B5100 runterkopiert werden.
Wie kann ich das erreichen?
Besten Dank im Voraus, Henner
Anzeige
AW: AutoFill bis vorgegebener Zeile
17.09.2011 11:26:12
Hajo_Zi
Hallo Henner,
stelle doch die Letzte Zeile in Spalte A fest.
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)

AW: AutoFill bis vorgegebener Zeile
17.09.2011 11:26:13
Hajo_Zi
Hallo Henner,
stelle doch die Letzte Zeile in Spalte A fest.
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)

Anzeige
AW: AutoFill bis vorgegebener Zeile
17.09.2011 11:26:24
Hajo_Zi
Hallo Henner,
stelle doch die Letzte Zeile in Spalte A fest.
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)

AW: AutoFill bis vorgegebener Zeile
17.09.2011 11:33:10
Henner
Hallo Hajo,
vielen Dank für deine Antwort. Ich kann dir allerdings leider nicht folgen (VBA bescheiden). In Spalte A (bis Z) stehen auch Daten. Könntest du mir evtl. mit einem kompletten Code weiterhelfen?
Ich könnte natürlich in einem anderen Tabellenblatt über ANZAHL2() die Einträge (Zeilen) zählen lassen und das Ergebnis in die Formel einbinden. Aber auch das bekomme ich leider nicht hin..
Danke
Gruß Henner
Anzeige
AW: AutoFill bis vorgegebener Zeile
17.09.2011 11:33:32
Henner
Hallo Hajo,
vielen Dank für deine Antwort. Ich kann dir allerdings leider nicht folgen (VBA bescheiden). In Spalte A (bis Z) stehen auch Daten. Könntest du mir evtl. mit einem kompletten Code weiterhelfen?
Ich könnte natürlich in einem anderen Tabellenblatt über ANZAHL2() die Einträge (Zeilen) zählen lassen und das Ergebnis in die Formel einbinden. Aber auch das bekomme ich leider nicht hin..
Danke
Gruß Henner
Anzeige
AW: AutoFill bis vorgegebener Zeile
17.09.2011 11:51:39
Hajo_Zi
Hallo Henner,
ich hätte vermutet
Selection.AutoFill Destination:=Range("B1:B" & loletzte)
Gruß Hajo
AW: AutoFill bis vorgegebener Zeile
17.09.2011 12:02:10
Henner
Hallo Hajo,
das sieht noch simpler aus als der Vorschlag von Georg (, den ich bereits eingebaut habe). Werde deine Möglichkeit aber nachher auch nochmal testen.
Vielen Dank und Gruß
Anzeige
AW: AutoFill bis vorgegebener Zeile
17.09.2011 11:29:55
Georg
Hallo Henner,
wenn ich es richtig verstehe, dann kopierst Du doch nur eine Formel - oder?
So könnte es aussehen, wenn du Die Formel aus j2 kopierst und so weit in j einfügst wie werte in Spalte A stehen.
[j2].Copy Destination:=Range("j3:j" & [a65536].End(xlUp).Row)
lgg
AW: AutoFill bis vorgegebener Zeile
17.09.2011 11:32:31
Georg
Hallo Henner, Autofill brauchst Du doch eigentlich nicht für eine Formel:
[j2].Copy Destination:=Range("j3:j" & [a65536].End(xlUp).Row)
lgg
Anzeige
Super, vielen Dank! owT
17.09.2011 12:00:03
Henner
.
AW: Super, vielen Dank! owT
17.09.2011 12:02:37
Hajo_Zi
der Code liefert nur ein falsches Ergebnis falls die letzte Zelle in Spalte A belegt ist.
Gruß Hajo
;

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
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
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
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
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
Anzeige
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
Bestimmte Spalten kopieren bis letzte Zeile
Markus

Liebes Forum,
für euch VBA-Experten ein relativ einfaches Anliegen. Ich möchte aus Tabelle1 in Tabelle2 nur bestimmte Spalten (in dem Fall: Spalte A,C,E und F) bis zur letzten in der Spalte vorkommenden Zeile in Tabelle2 kopieren.
https://www.herber.de/bbs/user/105634.xlsx
Vielen...
18.05.2016 17:51:31
Thread-ID: 1494008
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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