Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1228to1232
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1228to1232
1228to1232
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
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)

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)

Anzeige
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
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ß
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
Anzeige
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
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

301 Forumthreads zu ähnlichen 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
Anzeige
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
Bereich benennen (bis letzte Zeile)
onkelbobby

Hallo,
in einer Excel Tabelle möchte ich gerne (für Weiterbearbeitung in Access) einen Bereich benennen. Dieser Bereich soll aber nicht fest, sondern in Abhängigkeit der Eintragungen sein.
Der Bereich soll von Spalte A bis Spalte AQ und von Zeile 2 bis "letzte Zeile mit Eintrag in Spal...
28.04.2010 16:22:08
Thread-ID: 1154330
6 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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
3
2
5
4
13
1
8
7
17
9
4
4
2
5
3
2
3
6
1
3
2
3
2
2