Auswahlabfragen durcheinander in diesem Makro

Hi, hier habe ich mal den Auschnitt von dem Makro. Soweit ich das verstehe im Zusammenhang soll hier nur aus jeweils einer Tabelle bestimmte Daten genomen werden und dann in den jeweils Incomin und Outgoing Sheets eingefügt werden, und zwar an die letzte vorhandene Spalte.
Die ganzen Select.Ends verstehe ichnicht, was die da sollen, es funktioniert auch nur beim Incoming, warum? Die Einträge hören dann ab 25000 auf, wobei aber alle Zeilen bei jedem Durchgang mit Autowerten gefüllt werden. Kann mir iner ein wenig dabei helfen?


Sub Bezug_01()
' Bezug_01 Makro
' Makro am 26.04.2004 von Ralf Tiemann aufgezeichnet
Sheets("Outgoing - Auswahl").Select
Range("A6242").Select
Selecton.End(xlUp).Select
Range("A5778").Select
Selection.End(xlUp).Select
Range("A5777").Select
Range(Selection, Selection.End(xlUp)).Select
Range("A5776").Select
Selection.End(xlUp).Select
Range("A2").Select
Range("A2:I2").Select
Selection.AutoFill Destination:=Range("A2:I25000"), Type:=xlFillDefault
Range("A2:I25000").Select
Range("A25000").Select
Selection.End(xlUp).Select
Range("A2").Select
Sheets("Incoming - Auswahl").Select
Range("A45").Select
Selection.End(xlUp).Select
Range("A2:I2").Select
Selection.AutoFill Destination:=Range("A2:I25000"), Type:=xlFillDefault
Range("A2:I25000").Select
Range("A25500").Select
Selection.End(xlUp).Select
Range("A2").Select
Sheets("Import").Select
End Sub

Vielen vielen Dank

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Bezug_01() With Sheets("Outgoing - Auswahl") .Range("A2:I2").AutoFill .Range("A2:I25000") End With With Sheets("Incoming - Auswahl") .Range("A2:I2").AutoFill .Range("A2:I25000") End With Sheets("Import").Select End Sub

Hi Peter,
das sieht doch schon viel übersichtlicher aus, vielen Dank.
Nun stllt sich ir aber die Frage, warum die Zellen bis 25000 mit Autofill-Werten gefüllt werden. Was sind diese Autofills.
Praktisch seht das hier ei mir so aus:
Das ganze ist eine Arte Telefonverbindungsliste für Ein- und Auswahlen. Die monatlichen Daten werden in das Exclesheet kopiert und dann nach Ein- und Ausgang sortiert.
Letztlich werden 2 weitere Sheets mit Ein- bzw Ausgang gefüllt und die neuen Werte an die vorhandenen des letzten Monats angehangen. Das funktioniert bis Zeile 25000, dann hört er einfach auf mit anhängen.
Alle Zeilen, die noch nicht gefüllt sind, werden bis zur Zeile 25000 mit diesen Autofills gefüllt. Es soll aber weiter gehen als bis dahin.
Hat jemand dafür eine Hilfe?
Vielen Dank
Flexubi (Ralf)

Beliebteste Forumthreads (12 Monate)

Auswahlabfragen durcheinander in diesem Makro

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread