Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1216to1220
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
1216to1220
1216to1220
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

filldown mit schleife

filldown mit schleife
Paulo
Hallo an alle,
Habe folgendes problem,
Ich möchte eine zeile mit bedingten Formaten und formeln eine variable anzahl (in zelle vorgegeben) runter kopieren mit dem "FillDown" befehl.
Das problem ist, bis 1365 zeilen funktioniert es einwandfrei aber wenn ich mehr als 1365 einfüge bricht er ab.
Ich denke das hat mit dem speicher zu tun, weil wenn ich die selbe zeile ohne formate und formeln runter kopiere alle 65000 zeilen füllen kann.
Somit meine anregung an euch, kann mann eventuel eine schleife im befehl einbauen das wenn er mehr als 1365 füllen muss es stufenweise macht dis zum vorgegeben wert in zelle.
Danke im vorraus
Fehlermeldung
Laufzeitfehler '1004'
Markierung ist zu groß
Mein Code: 

Sub Fill()
Range(Range("a65536").End(xlUp), Range("ag65536").End(xlUp).Offset(Range("AG1").Value, 0)). _
FillDown
End Sub


https://www.herber.de/bbs/user/75063.xls

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

Betreff
Benutzer
Anzeige
AW: filldown mit schleife
28.05.2011 16:43:51
Tino
Hallo,
versuch mal so.
Im Code die Tabelle anpassen und die erste Zeile.
Sub Fill()
Dim lngCol&, lngMaxRow&, iCalc%

With Application
    iCalc = .Calculation
    .ScreenUpdating = False
    .EnableEvents = False
    .Calculation = xlCalculationManual
   
On Error GoTo ErrHandler:
    With Sheets("Tabelle2") 'Tabelle anpassen 
        lngMaxRow = .Range("AG1") + 1
        With .Range("A3:AG3") 'erste Zeile mit Daten in der Tabelle 
             For lngCol = 1 To .Columns.Count
                .Cells(1, lngCol).Copy .Cells(1, lngCol).Resize(lngMaxRow)
             Next lngCol
        End With
    End With
ErrHandler:
    .Calculation = iCalc
    .EnableEvents = True
    .ScreenUpdating = True
End With

If Err.Number <> 0 Then
    MsgBox Err.Description, vbCritical + vbMsgBoxSetForeground + vbMsgBoxHelpButton, _
           "Error: " & Err.Number, Err.HelpFile, Err.HelpContext
End If
End Sub
Gruß Tino
Anzeige
AW: filldown mit schleife
28.05.2011 18:20:07
Paulo
Tino,
Klappt einwandfrei, habe nur
.Range("A3:AG3") 'erste Zeile mit Daten in der Tabelle
in
.Range(Range("a65536").End(xlUp), Range("ag65536").End(xlUp))
umgewandelt, damit er mir immer die letzte zeile als neuen bereich nimmt.
Danke dir vielmals

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige