Thema Datum  Von Nutzer Rating
Antwort
Rot Daten in Template übertragen
 06.01.2016 16:07:39 Sabrina
NotSolved
23.01.2016 22:20:21 BigBen
NotSolved

Ansicht des Beitrags:
Von:
Sabrina		 Datum:
06.01.2016 16:07:39		 Views:
2251		 Rating:
     
Antwort:
  Ja
Thema:
Daten in Template übertragen

Hallo

Folgender Code schreibt Daten aus Tabelle1 in ein Volage Sheet und Speichert dann das Sheet in der Arbeitsmappe mit dem Header aus Spalte 10-12

und bilde bei den Spalten E-J die Summen

Nun mein Problem

1. Es werden die Header in der Vorlage überschrieben (es sollen aber die Header aus der Vorlage bleiben bis auf Spalte jeweilige Spalte 10,11,12 , Also es

soll beim einfügen mit Zeile 2 begonnen werden nur in 10,11,12 soll der Header aus der Datendatei genommen werden.

2. Die Zellen E-I sind in der 1 Zeile verformelt und werden nicht automatisch runtergezogen und in Spalte E soll auch die Formatiertung grau mit runtergezogen werden.

3. Die summenformel ist 3 Zeilen unterhalg der letzten Datenzeile und gibt den summierten Wert als Wert an es sollte dort aber wieder die Summenformel stehen damit wenn Änderungen sind es sich automatisch summiert

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub Kopiere()
Dim i As Integer
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
   For i = 10 To 12
      With Worksheets("Verteiler_Vorlage")
      .Visible = True
      .Copy after:=Sheets(Sheets.Count)
      .Visible = False
      End With
      .UsedRange.Range("A:B").Copy ActiveSheet.Cells(1)
      .UsedRange.Range("F:F").Copy ActiveSheet.Cells(3)
      .UsedRange.Range("E:E").Copy ActiveSheet.Cells(4)
      .UsedRange.Columns(i).Copy ActiveSheet.Cells(1, 10)
       ActiveSheet.Name = Cells(1, 10)
      .UsedRange.Range("H:H").Copy ActiveSheet.Cells(11)
      .UsedRange.Range("G:G").Copy ActiveSheet.Cells(12)
      .UsedRange.Range("I:I").Copy ActiveSheet.Cells(13)
         
      With Intersect(Range("E:J"), Rows(Cells.SpecialCells(xlCellTypeLastCell).Row + 1))
    .FormulaR1C1 = "=Sum(R1C:R[-1]C)"
    .Formula = .Value
    .HorizontalAlignment = xlCenter
    End With
   Next
End With
End Sub

Kann mir bitte dabei jemand helfen denn, ich krieg das nicht wirklich in den Griff

Danke

Sabrina

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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 Daten in Template übertragen
 06.01.2016 16:07:39 Sabrina
NotSolved
23.01.2016 22:20:21 BigBen
NotSolved