Thema Datum  Von Nutzer Rating
Antwort
Rot Tabelle direkt unter die bestehende Tabelle kopier
 20.02.2007 10:04:40 Markus
NotSolved
21.02.2007 15:31:19 Markus
NotSolved

Ansicht des Beitrags:
Von:
Markus		 Datum:
20.02.2007 10:04:40		 Views:
1841		 Rating:
     
Antwort:
  Ja
Thema:
Tabelle direkt unter die bestehende Tabelle kopier
Hallo!

hab' da ein kleines Problem in Excel 03 mit einem Makro. Ich muss recht umfangreiche Auswertungen fahren und muss von soher eine Tabelle vervielfachen, also kopieren und direkt an die kopierte Tabelle wieder anhängen. ZUdem muss in den einzelnen Datensätzen in dieser Tabelle eine Zelle verändert werden.
Kopieren mit Makro bekomm ich hin, allerdings werden bei Veränderung einer Zelle die restlichen Attribute irgendwie gelöscht, so das ich die Datensätze nicht auswerten kann. Ich sollte zudem den Code so haben, das er auch auf eine grössere Anzahl von DAtensätzen (Zeilen) passt, da diese Variieren kann.

Mit folgendem Code hab' die Kopiererei und Zellenveränderungen versucht versucht:
Sub Makro12()
'
Range("C4").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Selection.End(xlDown).Select
Selection.End(xlDown).Select
Selection.End(xlUp).Select
Range("C60").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("C61").Select
Selection.End(xlDown).Select
Range("C116").Select
ActiveSheet.Paste
Range("E115").Select
Range(Selection, Selection.End(xlUp)).Select
Range("E4:E115").Select
Range("E115").Activate
Application.CutCopyMode = False
Selection.Copy
Range("D115").Select
Selection.End(xlUp).Select
Range("D4").Select
ActiveSheet.Paste
Range("D5").Select
Selection.End(xlDown).Select
Range("C116").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Selection.End(xlDown).Select
Range("C172").Select
ActiveSheet.Paste
Range("H172").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.ClearContents
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Selection.End(xlDown).Select
Range("C228").Select
ActiveSheet.Paste
Range("H228").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "1"
Selection.AutoFill Destination:=Range("H228:H283")
Range("H228:H283").Select
End Sub

und noch eine Veränderung

Sub Makro13()
'
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-54
Range("E228").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("D228").Select
ActiveSheet.Paste
End Sub

SChon jetzt vielen Herzlichen Dank für Eure Mühe

Mit freundlichem Gruss

Markus

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 Tabelle direkt unter die bestehende Tabelle kopier
 20.02.2007 10:04:40 Markus
NotSolved
21.02.2007 15:31:19 Markus
NotSolved