Thema Datum  Von Nutzer Rating
Antwort
Rot Excel-Makro das Daten kopiert und dann eine Spalte weiter rückt...
15.02.2011 18:25:04 Raoul
NotSolved
15.02.2011 23:22:58 Severus
Solved

Ansicht des Beitrags:
Von:
Raoul
Datum:
15.02.2011 18:25:04
Views:
1607
Rating: Antwort:
  Ja
Thema:
Excel-Makro das Daten kopiert und dann eine Spalte weiter rückt...

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Excel-Makro das Daten kopiert und dann eine Spalte weiter rückt...
15.02.2011 18:25:04 Raoul
NotSolved
15.02.2011 23:22:58 Severus
Solved