Herbers Excel-Forum - das Archiv

Stepanweisung

Bild

Betrifft: Stepanweisung
von: Benny
Geschrieben am: 13.12.2003 16:46:18
Hallo Profis,

wie bekomme ich das hin eine Stepanweisung ( Inhalte alle drei Zeilen einfügen )
diese wiederum in eine Stepanweisung einbinden ab alle 84 Zeilen.

Gruß
Benny

Bild

Betrifft: AW: Stepanweisung
von: y
Geschrieben am: 13.12.2003 16:54:29
hi Benny,
meintest du das so ?

for i = 1 to 8400 step 84
for t = 1 to 3
dein programmcode
next t
next i

cu Micha
Bild

Betrifft: AW: Stepanweisung
von: Ramses
Geschrieben am: 13.12.2003 16:55:30
Hallo

Was willst du denn machen ?
Drei Zeilen einfügen > OK

Wiederholen alle 84 Zeilen > auch OK

Aber wie oft ? Wo soll das enden ?

Gruss Rainer
Bild

Betrifft: AW: Stepanweisung
von: Benny
Geschrieben am: 13.12.2003 17:02:44
Hallo,
Danke erst mal für die Antwort.

Lese aus TB 1 die Spalte aus 1 bis 30 diese werden in TB 2 eingefügt alle drei zeilen
(Step 3), nun möchte ich das die nächste eingelesene Zeile, 84 Zeilen weiter ausgegeben wird und wiederum mit Step 3 bis ca. Zeile 6000.

Benny
Bild

Betrifft: AW: Stepanweisung
von: Ramses
Geschrieben am: 13.12.2003 17:14:40
Hallo

Wieviel Zeilen hast du denn in TB1 zum einlesen,... davon ist nämlich abhängig bis zu welcher Zeile in TB2 eingefügt werden muss.

"...bis ca. Zeile 6000..."

"Ca." kannst du vergessen. Da gibt es nur "Entweder - Oder" ;-). Da ist EXCEL pingelig

Gruss Rainer
Bild

Betrifft: AW: Stepanweisung
von: Benny
Geschrieben am: 13.12.2003 17:27:25
Hi,

Naja wenn Excel so pingelich ist.
TB 1 liest er aus 55 Zeilen die Spalten aus.
TB 2 ist die letzte Zeile 5244

Gruß
Benny
Bild

Betrifft: AW: Stepanweisung
von: Ramses
Geschrieben am: 13.12.2003 17:42:56
Hallo

dann probier mal das


Option Explicit

Sub Copy_Row()
Dim i As Integer, tarRow As Integer
Dim wks1 As Worksheet, wks2 As Worksheet
Set wks1 = Worksheets("Tabelle1") 'Namen anpassen
Set wks2 = Worksheets("Tabelle2") 'Namen anpassen
tarRow = 1
For i = 1 To wks1.Cells(65536, 1).End(xlUp).Row Step 3
        wks1.Range(Cells(i, 1), Cells(i + 2, 30)).Copy Destination:=wks2.Cells(tarRow, 1)
        tarRow = tarRow + 84
Next i
End Sub 
     Code eingefügt mit Syntaxhighlighter 1.16



Gruss Rainer
Bild

Betrifft: AW: Stepanweisung
von: Benny
Geschrieben am: 13.12.2003 17:58:12
Hallo Ramses

Danke, das funktioniert.
o.T.
Schönes Wochenende noch
Benny
Bild

Betrifft: Merci :-)) Geschlossen o.T.
von: Ramses
Geschrieben am: 13.12.2003 18:13:15
...
Bild