Herbers Excel-Forum - das Archiv
Stepanweisung
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
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
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
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
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
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
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
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
Betrifft: Merci :-)) Geschlossen o.T.
von: Ramses
Geschrieben am: 13.12.2003 18:13:15
...