Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
932to936
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
932to936
932to936
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

AutoFill nach Schleife

AutoFill nach Schleife
19.12.2007 11:40:01
pbm
Hallo,
folgedendes Problem:
Ich möchte in Spalte A schauen, ob die Zelle gefüllt ist und dann den Bereich G bis I mittels AutoFill nach unten kopieren. Habe folgenden Ansatz:
Dim i As Integer
Range("G1").Select 'Auswahl der Startzelle
ActiveCell.Offset(1, 0).Select 'Zeile unter Startzeile selektieren
Range(Selection, Selection.End(xlToRight)).Copy
If Not (Sheets("RA").Cells(i + 1, 1) = "") Then
ActiveCell.Offset(1, 0).AutoFill Destination:=Range("G2:I65536")
End If
Next i
Excel soll also ab A2 schauen, ob ein Wert vorhanden ist und dann nach unten kopieren.
Bin echt am verzweifeln, das kann doch nicht so schwer sein.
Danke Euch,
Phil

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: AutoFill nach Schleife
19.12.2007 11:42:06
pbm
Hatte was vergessen, der Code ist wie folgt:
Dim i As Integer
Range("G1").Select 'Auswahl der Startzelle
ActiveCell.Offset(1, 0).Select 'Zeile unter Startzeile selektieren
Range(Selection, Selection.End(xlToRight)).Copy
For i = 1 To Sheets("RA Control").Range("A65536").End(xlUp).Row
If Not (Sheets("RA").Cells(i + 1, 1) = "") Then
ActiveCell.Offset(1, 0).AutoFill Destination:=Range("G2:I65536")
End If
Next i

AW: AutoFill nach Schleife
19.12.2007 13:30:27
Rudi
Hallo,
für VBA-gut ist dein Code ganz schön blödsinnig.
ist das ein anderes Blatt: Sheets("RA")?
Ansonsten:

Range("G2:I2").AutoFill Destination:=Range(Range("G2"), Range("A65536").End(xlUp).Offset(0, 8))


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: AutoFill nach Schleife
19.12.2007 13:38:29
pbm
Hat geklappt, aber den Spruch sparst Du Dir bitte nächstes mal !

AW: AutoFill nach Schleife
19.12.2007 13:42:57
Rudi
Hallo,

aber den Spruch sparst Du Dir bitte nächstes mal !


ich kann nicht anders. Das ist der Preis.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige