Daten per VBA kopieren

Hallo zusammen,
ich habe eine Datei mit mehren Arbeitsblättern auf dem einen Arbeitsblatt "Auswahl" gibt es eine Tabelle die in den Zellen S43 bis maximal X104 Daten stehen hat. Jetzt soll in der Spalte S geschaut werden, wann die erste leere Zelle innerhalb dieser Tabelle kommt. In der Tabelle stehen überall Formeln.
Jetzt sollen alle Daten, nur Inhalte, keine Formeln, von S43 bis zur letzten beschrieben Zelle also zum Beispiel S67, in das zweite Arbeitsblatt "Dateieingabe" von B24 bis in diesem Beispiel B48 geschrieben werden.
Dann die Daten von "Auswahl" T43 bis T67 nach "Dateneingabe" AK24 bis AK48. Hierbei ist es egal, ob es leere Zellen in Spalte T gibt, es sollen alle Daten kopiert werden bis in Spalte S die erste leere Zeile kommt.
Dann die Daten von "Auswahl" U43 bis U67 nach Dateineingabe " AL24 bis AL48.
Dann die Daten von "Auswahl" W43 bis W67 nach Dateineingabe " AM24 bis AM48.
Dann die Daten von "Auswahl" X43 bis X67 nach Dateineingabe " AN24 bis AN48.
Vielen Dank schonmal für eure Hilfe.
Gruß,
Mike

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Vielen Dank.
Ich habe selbst auch noch ein bisschen rum probiert. Meine Lösung, die jetzt funktioniert hat sah so aus.

Sub Zeiten_uebertragen()
Dim LetzteZeile As Long
'Leeren
Sheets("Dateneingabe").Range("B24:B61").ClearContents
Sheets("Dateneingabe").Range("AK24:AK61").ClearContents
Sheets("Dateneingabe").Range("AL24:AL61").ClearContents
Sheets("Dateneingabe").Range("AM24:AM61").ClearContents
Sheets("Dateneingabe").Range("AN24:AN61").ClearContents
'Füllen
LetzteZeile = Worksheets("Auswahl").Columns(19).Find(what:="*", LookIn:=xlValues,  _
SearchDirection:=xlPrevious).Row
Worksheets("Auswahl").Range("S43:S" & LetzteZeile).Copy
Worksheets("Dateneingabe").Range("B24").PasteSpecial Paste:=xlPasteValues
Worksheets("Auswahl").Range("T43:T" & LetzteZeile).Copy
Worksheets("Dateneingabe").Range("AK24").PasteSpecial Paste:=xlPasteValues
Worksheets("Auswahl").Range("U43:U" & LetzteZeile).Copy
Worksheets("Dateneingabe").Range("AL24").PasteSpecial Paste:=xlPasteValues
Worksheets("Auswahl").Range("W43:W" & LetzteZeile).Copy
Worksheets("Dateneingabe").Range("AM24").PasteSpecial Paste:=xlPasteValues
Worksheets("Auswahl").Range("X43:X" & LetzteZeile).Copy
Worksheets("Dateneingabe").Range("AN24").PasteSpecial Paste:=xlPasteValues
End Sub

Aber vielen Dank nochmal für Deine Hilfe, so lerne ich jedes mal wieder etwas dazu.
Schönen Abend noch, Gruß,
Mike

Sub Zeiten_uebertragen() Dim LetzteZeile As Long 'Leeren Sheets("Dateneingabe").Range("B24:B61").ClearContents Sheets("Dateneingabe").Range("AK24:AK61").ClearContents Sheets("Dateneingabe").Range("AL24:AL61").ClearContents Sheets("Dateneingabe").Range("AM24:AM61").ClearContents Sheets("Dateneingabe").Range("AN24:AN61").ClearContents 'Füllen LetzteZeile = Worksheets("Auswahl").Columns(19).Find(what:="*", LookIn:=xlValues, _ SearchDirection:=xlPrevious).Row Worksheets("Auswahl").Range("S43:S" & LetzteZeile).Copy Worksheets("Dateneingabe").Range("B24").PasteSpecial Paste:=xlPasteValues Worksheets("Auswahl").Range("T43:T" & LetzteZeile).Copy Worksheets("Dateneingabe").Range("AK24").PasteSpecial Paste:=xlPasteValues Worksheets("Auswahl").Range("U43:U" & LetzteZeile).Copy Worksheets("Dateneingabe").Range("AL24").PasteSpecial Paste:=xlPasteValues Worksheets("Auswahl").Range("W43:W" & LetzteZeile).Copy Worksheets("Dateneingabe").Range("AM24").PasteSpecial Paste:=xlPasteValues Worksheets("Auswahl").Range("X43:X" & LetzteZeile).Copy Worksheets("Dateneingabe").Range("AN24").PasteSpecial Paste:=xlPasteValues End Sub

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread