Zusammenfügen von Arbeitsblättern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Exportieren() Dim wks1 As Worksheet, wks2 As Worksheet Dim wkbNeu As Workbook Dim c As Range Set wks1 = ThisWorkbook.Sheets(1) Set wks2 = ThisWorkbook.Sheets(2) Set wkbNeu = Workbooks.Add For Each c In wks1.UsedRange With wkbNeu.Worksheets(1).Cells(c.Row, c.Column) 'werte summieren .Value = c.Value + wks2.Cells(c.Row, c.Column).Value 'formate übernehmen c.Copy Call .PasteSpecial(Paste:=xlFormats, _ Operation:=xlNone, _ SkipBlanks:=False, _ Transpose:=False) End With Next c End Sub

Sub Exportieren() Dim wks1 As Worksheet, wks2 As Worksheet Dim wkbNeu As Workbook Dim c As Range Set wks1 = ThisWorkbook.Sheets(1) Set wks2 = ThisWorkbook.Sheets(2) Set wkbNeu = Workbooks.Add For Each c In wks1.UsedRange With wkbNeu.Worksheets(1).Cells(c.Row, c.Column) Select Case c.Column Case 9 To 20 'spalten I bis T 'werte summieren .Value = c.Value + wks2.Cells(c.Row, c.Column).Value Case Else 'nur text kopieren .Value = c.Value End Select 'formate übernehmen c.Copy Call .PasteSpecial(Paste:=xlFormats, _ Operation:=xlNone, _ SkipBlanks:=False, _ Transpose:=False) End With Next c End Sub

Hallo Joel
das mit zeile 9 - 300 ist sehr wichtig. Vielleicht geht das noch, das zu integrieren.
Würde das eigentlich auch selbst machen, aber VBA ist nun mal nicht so mein Ding.
Wenn wir schon einaml dabei sind, fällt mir ein, dass das erzeugte "Summenblatt" doch besser in der selben Datei, wie die "Ur-Blätter" erzeugt werden soll.
Also nicht in einer neuen Arbeitsmappe. Und für diese Arbeitsblatt soll dann direkt der Name "Gesamt" vergeben werden.
Ich weiß, das sind viele Anfragen, aber wie gesagt, ich kenn mich mit VBA nicht aus und ich muss dieses Problem möglichst schnell lösen.
Wenn Du mir da noch einmal helfen könntest, würdest Du mich überglücklich machen...
Danke und Gruß,
Thomas

Sub Exportieren() Dim wks1 As Worksheet, wks2 As Worksheet Dim wksNeu As Worksheet Dim c As Range Set wks1 = ThisWorkbook.Sheets(1) Set wks2 = ThisWorkbook.Sheets(2) Set wksNeu = ThisWorkbook.Sheets.Add wksNeu.Name = "Gesamt" For Each c In wks1.UsedRange With wksNeu.Cells(c.Row, c.Column) If c.Column >= 9 And c.Column <= 20 And _ c.Row >= 9 And c.Row <= 300 Then 'werte summieren .Value = c.Value + wks2.Cells(c.Row, c.Column).Value Else 'nur text kopieren .Value = c.Value End If 'formate übernehmen c.Copy Call .PasteSpecial(Paste:=xlFormats, _ Operation:=xlNone, _ SkipBlanks:=False, _ Transpose:=False) End With Next c End Sub

hallo thomas
du hast nerven...


Sub Exportieren()
Dim wks1 As Worksheet, wks2 As Worksheet
Dim wksNeu As Worksheet
Dim c As Range
Application.ScreenUpdating = False
Set wks1 = ThisWorkbook.Sheets(1)
Set wks2 = ThisWorkbook.Sheets(2)
Set wksNeu = ThisWorkbook.Sheets.Add
wksNeu.Name = "Gesamt"
For Each c In wks1.UsedRange
With wksNeu.Cells(c.Row, c.Column)
If c.Column >= 9 And c.Column <= 20 And _
c.Row >= 9 And c.Row <= 300 Then
'werte summieren
.Value = c.Value + wks2.Cells(c.Row, c.Column).Value
Else
'nur text kopieren
.Value = c.Value
End If
End With
Next c
'formate übernehmen
wks1.Cells.Copy
Call wksNeu.Cells.PasteSpecial(Paste:=xlFormats, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False)
Application.ScreenUpdating = True
End Sub

gruss joel

Beliebteste Forumthreads (12 Monate)

Zusammenfügen von Arbeitsblättern

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zusammenfügen von Arbeitsblättern

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread