Kopieren und Einfügen von Daten

Hallo zusammen,
ich stehe mit meinen bescheidenen VBA Kenntnissen auf dem Schlauch und hoffe das ihr mir evtl helfen könnt. Ich habe eine Tabelle (auch als Datei angehängt, jedoch nur aufs wesentliche reduziert) in welcher ich Tasker sammeln möchte.
https://www.herber.de/bbs/user/141858.xlsm
In Zelle A4 kommt die Tasker nr rein und weiter in der Zelle noch ein paar wesentliche Daten. Wenn man nun die Gruppierung öffnet links, sieht man das storyboard wo letztlich der gesamte Bearbeitungsstand hinterlegt werden soll. Wenn man dann auf den Command Button klickt, so soll nach bestätigen des Fensters zum Löschen, automatisch der Zellinhalt (A5:I5,A8:I17 - das entspricht einem von insgesamt 30 Taskerfeldern) in das Tasker Archive verschoben werden. Das Tasker Archive ist identisch aufgebaut wie die Tasker Arbeitsmappe.
Bislang habe ich das Makro innerhalb des Userforms angesteuert, wodurch ich aber ja keine Möglichkeit habe diesen Button für die gesamte Tabelle bzw. für jedes Taskerfeld zu übernehmen. Mit Schleifen zur Abfrage kenn ich mich nicht aus, daher die Frage ob das überhaupt realisierbar ist was ich mir hier vorstelle. Der bislang verwendete Code sieht folgendermaßen aus:

Private Sub CommandButton1_Click()
Dim rück As Worksheet
Set rück = ActiveSheet
ActiveSheet.Select
Range("a5:i17").Select
Selection.Copy
Sheets("Tasker Archive").Select
Range("a5:i17").Select
Sheets("Tasker Archive").Paste
Sheets("Tasker").Range("a5:i5,a8:i16,a17:d17,f17:i17").ClearContents
Unload Me
End Sub

Ich möchte letztlich erreichen, das bei klicken auf den Cmd Button die Daten aus dem beschriebenen Taskerfeld ins Taskerarchive übertragen werden. Dabei muss das Taskerfeld welches ja dann entleert wird, wieder beschreibbar sein und zusätzlich im Taskerarchive immer eine neue Zeile angesteuert werden zum einfügen, um ein Überschreiben zu vermeiden.
Ich hoffe innigst, das mir jmd helfen kann!! Vielen Dank im Voraus!!
PS: Bei der Excelversion in welcher das Originalprogramm geschrieben wird ist Excel 2003.
Lg Florian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Schaltfläche1_Klicken() Dim rueck As Worksheet Dim rng As Range If vbYes = MsgBox("Wollen Sie die Daten archivieren?", vbDefaultButton1 + vbYesNo + _ vbInformation, "Achtung!") Then Set rueck = ActiveSheet With rueck.Shapes(Application.Caller) Set rng = Range(.TopLeftCell.Offset(-1).Row & ":" & .TopLeftCell.Offset(11).Row).Rows End With With Sheets("Tasker Archive") rng.Copy Destination:=.Range("A" & .Cells.SpecialCells(xlLastCell).Row + 1) End With rng.Resize(9).Offset(3).ClearContents End If Set rng = Nothing Set rueck = Nothing End Sub

Sub Schaltfläche1_Klicken() Dim rueck As Worksheet Dim rng As Range If vbYes = MsgBox("Wollen Sie die Daten archivieren?", vbDefaultButton1 + vbYesNo + _ vbInformation, "Achtung!") Then Set rueck = ActiveSheet With rueck.Shapes(Application.Caller) Set rng = Range(.TopLeftCell.Offset(-1).Row & ":" & .TopLeftCell.Offset(11).Row).Rows End With With Sheets("Tasker Archive") rng.Copy Destination:=.Range("A" & .Cells.SpecialCells(xlLastCell).Row + 1) End With Application.CutCopyMode = False rng.Resize(1).ClearContents rng.Resize(10).Offset(3).ClearContents End If Set rng = Nothing Set rueck = Nothing End Sub

Private Sub CommandButton1_Click() Dim i As Integer i = 5 Do If Not Worksheets("Tasker Archive").Cells(i, 1).Value = "" Then i = i + 13 Loop Until Worksheets("Tasker Archive").Cells(i, 1).Value = "" Worksheets("Tasker").Range("A5:I17").Copy Worksheets("Tasker Archive").Cells(i, 1).PasteSpecial Sheets("Tasker").Range("a5:i5,a8:i16,a17:d17,f17:i17").ClearContents End Sub

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Kopieren und Einfügen von Daten

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread