Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
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
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - Bei AutoFill Funktion

Forumthread: VBA - Bei AutoFill Funktion

VBA - Bei AutoFill Funktion
19.04.2006 10:53:45
Franz
Hallo,
ich habe mir folgendes Makro aufgezeichnet:
Range("H3").Select
ActiveCell.FormulaR1C1 = _
"=IF(AND(RC[-1]=111111,R[1]C[-1]=111111),""OK"","""")"
Range("H3").Select
Selection.AutoFill Destination:=Range("H3:H5183")
Nun hat er die "5183" automatisch eingetragen, da Spalte G genau bis zur Zeile 5183 Werte enthält. Ich möchte das Makro aber auf viele verschiedene Sheets anwenden, die im Grunde gleich aufgebaut sind, aber eine andere Anzahl von Zeilen haben. Wie kann ich ihm beibringen, die Formel in Spalte H immer in die Zeilen zu schreiben, die auch von Spalte G benutzt werden? (Leerzeilen gibt es nicht.)
Danke für Eure Hilfe!
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Bei AutoFill Funktion
19.04.2006 11:33:23
Peter
Hallo Franz,
versuche es so:
Selection.AutoFill Destination:=Range("H3:H" & _
Range("H65536").End(xlUp).Row)
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
AW: VBA - Bei AutoFill Funktion
19.04.2006 12:01:36
PeterW
Hallo Franz,
ohne select geht das so:

Sub FormelErweitern()
Range("H3").FormulaLocal = "=WENN(UND(G3=111111;G4=111111);""OK"";"""")"
Range("H3").AutoFill Destination:=Range("H3:H" & Cells(Rows.Count, 7).End(xlUp).Row)
End Sub

Gruß
Peter
Anzeige
;

Forumthreads zu verwandten Themen

Autofill per VBA
alex

Irgendwie bekomme ich das Autofill per VBA nicht hin.
Kann mir jemand helfen?
Sub test() With ThisWorkbook.Sheets(filename) loletzte4 = IIf(IsEmpty(.Cells(.Rows.Count, 6)), .Cells(.Rows.Count, 6).End(xlUp).Row, . _ Rows.Count) ThisWorkbook.Sheets(filename).Activate Range("f" & lolet...
25.11.2009 00:01:21
Thread-ID: 1119858
3 Beiträge
Anzeige
Autofill per VBA
Maris

Hallo Leute,
diesen Code habe ich noch aus einem älteren Thread, leider habe ich mich damals falsch ausgedrückt und er funktioniert nicht. Kann mir jemand helfen....
Es soll der letzte Wert in Spalte D ermittelt werden und die Formeln aus Spalte A,B,C bis dahin runterkopiert werden.
11.04.2011 16:57:31
Thread-ID: 1209910
3 Beiträge
Anzeige
Autofill via VBA
astis

Hallo,
solgende Ausgangssituation
in Tabellenblatt 1 werden im ersten Schritt Kundendaten importiert
in Tabellenblatt 2 sollen Verknüpfungen, der Anzahl der importieren Kunden nach,
erstellt werden. ( A1=Tabelle1!A1) etc.
Ich brauche somit eine Autofillfunktion die aus der...
08.09.2013 02:41:21
Thread-ID: 1329915
3 Beiträge
VBA Autofill mit dynamischen Bereich
Marcus

Hallo zusammen,
ich benötige erneut die Hilfe von euch Profis, da ich in diversen Foren keine Lösung für mein Problem gefunden habe und mit meinem Latein am Ende bin.
Ich habe eine recht große dynamische Excelliste mit teils umfangreichen bedingten Formatierungen. Per Schaltfläche möcht...
27.08.2015 16:55:25
Thread-ID: 1444757
4 Beiträge
VBA Autofill dynamisch gestalten
Marcus

Hallo zusammen,
meine letzte Frage wurde leider noch nicht geklärt und ich habe noch immer keine Lösung im Netz gefunden, deshalb versuche ich hier nochmal mein Glück.
Folgendes Problem: Ich habe eine Excelliste als Tabelle formatiert. Diese Tabelle hat zwangsläufig jede Menge Formatier...
03.09.2015 08:06:18
Thread-ID: 1445726
3 Beiträge
VBA Autofill Schleife mit variablem Einfügebereich
Ed

Hallo Excel Freunde,
ich hoffe jemand kann mir bei folgendem Fall behilflich sein:
Ich erhalte regelmäßig eine Tabelle welche wie folgt aufgebaut ist:
A B C
1 Köln Innenstadt 50866
2 <...
29.05.2017 11:43:24
Thread-ID: 1560902
5 Beiträge
VBA Autofill Schleife mit variablem Einfügebereich
Ed

Hallo Excel Freunde,
ich hoffe jemand kann mir bei folgendem Fall behilflich sein:
Ich erhalte regelmäßig eine Tabelle welche wie folgt aufgebaut ist:
A B C
1 Köln Innenstadt 50866
2 <...
30.05.2017 08:17:17
Thread-ID: 1561046
2 Beiträge
Anzeige
VBA autofill bis 2 Zeilen vor letzter
Pascal

Hallo zusammen,
Ich hätte da eine Frage: Wie kann ich ein VBA bis 2 Zeilen vor der letzten beschrieben die autofill Funktion anwenden?
Ich kenne den Code der einschließlich die letzte beschriebene Zeile füllt.
Code:
Dim letzte As Long
letzte = Cells(Rows.Count, 4).End(xlUp)...
16.01.2018 07:00:44
Thread-ID: 1602447
4 Beiträge
Matrixformel und Autofill per VBA
Uwe

Hallo zusammen,
meine Herausforderung ist es in der Tabelle1 (Zelle G23) folgende Matrixformel mittels VBA einzutragen:
.Cells(23, 8).FormulaArray = IF(A23="","",SUM(IF((Tabelle3!$A$1:$A$10000=Tabelle1!A23)*(Tabelle3!$K$1:$K$10000=Tabelle1!$G$22),1)))
Dies funktioniert auch soweit.<...
07.08.2018 09:49:08
Thread-ID: 1637867
3 Beiträge
Autofill mittels VBA automatisieren
Müller

Hallo zusammen
Ich bin auf der Suche nach einem Makro um die folgenden Arbeitsschritte automatisiert durchzuführen:
Markiere den Zellbereich B10:U10 (dieser ist immer fix, bleibt also unverändert). Dieser Zellbereich ist mit Formeln versehen, welche auf die Zelle A10 referenzieren. In d...
12.12.2018 10:43:05
Thread-ID: 1662463
3 Beiträge
Prob mit Definition des .AutoFill-Bereichs (VBA)
Jan

Hallo wertes Forum!
Folgende Codezeile bereitet mir Probleme :
Range("E4").AutoFill Destination:=Range("E4:E" & Range("D65536").End(xlUp).Row), Type:=xlFillDefault
Im Spezialfall, dass die Tab. und dann auch Spalte D ausser der Ueberschrift keine Daten enthaellt, sorgt diese Ze...
24.10.2007 12:39:00
Thread-ID: 919316
3 Beiträge
Summe kopieren mit AutoFill (VBA)
TOM

Hallo zusammen
Ich hab es versucht auf alle Varianten aber einfach nicht hin bekommen.
Meine Funktion Summe(E3:S3) in T3 möchte ich per VBA runterkopieren mit Autofill bis ans Ende!
m1 ist die dynamische Colum
strAdress = ActiveCell.Offset(-2, m1).Address(False, False)
Range...
06.12.2007 14:33:00
Thread-ID: 932760
2 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