Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
120to124
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
120to124
120to124
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

zeilen kopieren mit anderen abständen

zeilen kopieren mit anderen abständen
21.05.2002 09:38:23
Hauke
Hallo ins Forum!

Ich habe für mein Problem von letzter Woche noch keine optimale Lösung gefunden (Danke für den Tip Bernd!), und versuche es nun noch einmal hier im Forum - nachdem fast mein ganzes sonniges Pfingstwochenende dabei drauf gegangen war....

Also ich habe zwei Tabellen. In Tab1 stehen die Werte die ich herausziehen möchte (Spalte A)im Abstand von 10 Zeilen. Diese sollen nun per Formel in die Tab2 (Spalte A) und zwar untereinander (also sollte der Wert aus TAB1 SPALTE1 ZEILE1 nach TAB2 SPALTE1 ZEILE1; der Wert aus TAB1 SPALTE1 ZEILE10 nach TAB2 SPALTE1 ZEILE2 usw.) Habe schon mit INDEX und ZEILE versucht zu arbeiten komme aber nicht auf den entscheidenden Trick dabei. Es will nicht klappen!!

Kann mir einer von euch hier helfen?? VBA oder Formel, das wär mir egal!

DANKE für eure Hilfe und sonnige Grüße aus FLENSBURG!

HAUKE

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: zeilen kopieren mit anderen abständen
21.05.2002 10:05:10
@lex
Hallo Hauke !
Ist vielleicht nicht die optimale Lösung, sollte Dir aber etwas helfen. Die Namen der Dateien musst Du noch anpassen.

Sub Kopieren()
Dim iRow, iCount As Integer
iRow = Cells(Rows.Count, 1).End(xlUp).Row
Cells(1, 1).Copy
Windows("Mappe2.xls").Activate
Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Select
ActiveSheet.Paste
Windows("Mappe1.xls").Activate
For iCount = 10 To iRow Step 10
Cells(iCount, 1).Copy
Windows("Mappe2.xls").Activate
Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Select
ActiveSheet.Paste
Windows("Mappe1.xls").Activate
Next iCount
End Sub


Alex

Anzeige

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige