PDA

Vollständige Version anzeigen : Makros und Auswahl


Teamon
05.04.2001, 12:16
Hallole ich hab ein kleines Problem:

Ich möchte eine Vorlage an Spalten(7) per Makro automatisch kopieren, ich ermittele eine Anzahl, und genausooft sollen diese 7 Spalten dann untereinader kopiert werden.

ICh krieg das nicht so hin, ich kann nicht einfach sagen

For i = 1 To j
z = 11 + lCount
Rows("z").Select
ActiveSheet.Paste
lCount = lCount + 7

Next


Kann mir bitte einer Helfen!!

Danke an alle Tschau

Robert

Hans-Peter
05.04.2001, 13:39
Hallo Teamon
Ich weiss nicht ob dies dein probleem voolstaendig loest aber ich hatte auch ein probleem mit reihen auszaehlen und hab das so gemacht:
i = Application.WorksheetFunction.CountBlank(Range("A:A"))
Range("A" & i).Select
Mit i=... kuckst du welche zellen gefuellt sind.
Mit der zweiten function kannst ein feld mit einer variable selectieren, diese variable kannst du vorher bearbeiten(i = i + 1).
Ich hoffe dass dies dir weiter hilft.