Hallo Zusammen,
ich habe folgendes Problem:
Ich habe ein Excel-File in dem ich Leute auf verschiedenen Tabellenblättern etwas ankreuzen lasse. Auf einem Tabellenblatt wird diese Info zusammengefasst und aufbereitet. Diese aufbereiteten Daten möchte ich dann gerne mit einem Makro (das per Button angesteuert wird) auf ein weiteres Blatt kopieren und dann die Kreuze auf allen vorherigen Tabellenblättern löschen lassen.
Bis hierhin ist die Programmierung dank Recorder recht einfach.
Allerdings hätte ich es jetzt gerne, dass nachdem die nächste Person alles angekreuzt hat und dann den Button drückt, die zu kopierenden Inhalte in dem festgelegten Tabellenblatt in die erste leere Spalte nach der zuvor kopierten Information kopiert wird.
Ich hatte zu erst gehofft, dass ich einfach eine Laufvariable "Lauf" nehme, die nach jedem Durchgang um die Anzahl an eingefügten Spalten vergrößert wird (hier zum Beisiel3). Problem ist aber, dass ich ja diese Variable erst definieren muss. Wird das Makro nun durch den Knopfdruck neu angesteuert, definiert er mir ja am Anfang die zu letzt aufadierte Variable Lauf = Lauf+3 wieder auf Lauf = 1.
Hat jemand eventuell eine Idee, wie ich das Problem lösen kann?
Ich wäre sehr dankbar!
Liebe Grüße,
Raoul
PS: Hier schon mal mein Code:
Sub Kopieren()
Range("C5:E19").Select
Selection.Copy
Sheets("Gesamtergebnis").Select
Cells(2, Lauf).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D2").Select
Lauf = Lauf + 3
Range("B6:D7").Select
Selection.ClearContents
Sheets("Choice Set2").Select
Range("B6:D7").Select
Selection.ClearContents
Sheets("Choice Set3").Select
Range("B6:D7").Select
Selection.ClearContents
Sheets("Choice Set4").Select
Range("B6:D7").Select
Selection.ClearContents
Sheets("Choice Set5").Select
Range("B6:D7").Select
Selection.ClearContents
Sheets("Choice Set6").Select
Range("B6:D7").Select
Selection.ClearContents
Sheets("Choice Set7").Select
Range("B6:D7").Select
Selection.ClearContents
Sheets("Choice Set8").Select
Range("B6:D7").Select
Selection.ClearContents
Sheets("Choice Set9").Select
Range("B6:D7").Select
Selection.ClearContents
Sheets("Choice Set10").Select
Range("B6:D7").Select
Selection.ClearContents
Sheets("Choice Set11").Select
Range("B6:D7").Select
Selection.ClearContents
Sheets("Choice Set12").Select
Range("B6:D7").Select
Selection.ClearContents
ActiveWorkbook.Save
End Sub
|