Mittelwerte in ein neues Blatt kopieren per VBA

Forumthread: Mittelwerte in ein neues Blatt kopieren per VBA

06.05.2009 09:51:09

Drusilla

Hallo liebe Profis
Da mir letztes Mal so gut geholfen wurde, würde ich euch gerne nochmals fragen. Ich möchte per Makro folgendes erreichen:
-neues Blatt generieren mit dem Namen Uebersicht
-dort Mittelwerte (sind schon berechnet, schreibe das nur, damit ihr wisst, dass in der Zelle eine Formel und nicht direkt eine Zahl steht) aus den anderen Blättern zusammentragen (Mittelwerte stehen immer in der letzten Zeile, in unterschiedlichen Spalten)
das File ist aufgebaut:
Blatt 1: Mittelwerte in Spalten B-D in jeweils letzter Zeile
Blatt 2: Mittelwerte in Spalten B-D in jeweils letzter Zeile
Blatt 3: Mittelwerte in Spalten B-D in jeweils letzter Zeile
Auf neuem Blatt Üebersicht sollen in Spalte A stehen (soll es einfach so hinschreiben):
Leerzeile
Leerzeile
Leerzeile
Leerzeile
Leerzeile
15-34J.
RTL
Pro Sieben
VOX
Leerzeile
15-49J
RTL
Pro Sieben
VOX
und in Spalte B untereinander die kopierten Mittelwerte:
Leerzeile
Leerzeile
Leerzeile
Leerzeile
Leerzeile
R-T
Wert aus Blatt 1 MW B
Wert aus Blatt 2 MW B
Wert aus Blatt 3 MW B
Leerzeile
Leerzeile
Wert aus Blatt 1 MW C
Wert aus Blatt 2 MW C
Wert aus Blatt 3 MW C
und in Spalte C:
Leerzeile
Leerzeile
Leerzeile
Leerzeile
Leerzeile
Kosten
Wert aus Blatt 1 MW D
Wert aus Blatt 2 MW D
Wert aus Blatt 3 MW D
Lieber Gruss, Drusilla

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Mittelwerte in ein neues Blatt kopieren per VBA

06.05.2009 18:21:45

Jens

AW: Mittelwerte in ein neues Blatt kopieren per VBA

06.05.2009 18:21:45

Jens

Hallo Drusilla
Versuch mal so:


Sub tt()
Sheets.Add(after:=Sheets(ActiveWorkbook.Sheets.Count)).Name = "Uebersicht"
With Sheets("Uebersicht")
.Range("A6") = "15-34 Jahre"
.Range("A7") = "RTL"
.Range("A8") = "Pro Sieben"
.Range("A9") = "VOX"
.Range("A11") = "15-49 Jahre"
.Range("A12") = "RTL"
.Range("A13") = "Pro Sieben"
.Range("A14") = "VOX"
.Range("B6") = "R-T"
.Range("B7") = Worksheets("Blatt 1").Range("B" & Range("B65536").End(xlUp).Row)
.Range("B8") = Worksheets("Blatt 2").Range("B" & Range("B65536").End(xlUp).Row)
.Range("B9") = Worksheets("Blatt 3").Range("B" & Range("B65536").End(xlUp).Row)
.Range("B12") = Worksheets("Blatt 1").Range("C" & Range("C65536").End(xlUp).Row)
.Range("B13") = Worksheets("Blatt 2").Range("C" & Range("C65536").End(xlUp).Row)
.Range("B14") = Worksheets("Blatt 3").Range("C" & Range("C65536").End(xlUp).Row)
.Range("C7") = Worksheets("Blatt 1").Range("D" & Range("D65536").End(xlUp).Row)
.Range("C8") = Worksheets("Blatt 2").Range("D" & Range("D65536").End(xlUp).Row)
.Range("C9") = Worksheets("Blatt 3").Range("D" & Range("D65536").End(xlUp).Row)
End With
End Sub

Die Namen für die Tabellenblätter (Blatt 1, Blatt 2, Blatt 3) musst Du dann noch anpassen.
Gruß aus dem Sauerland
Jens

Beliebteste Forumthreads (12 Monate)

Mittelwerte in ein neues Blatt kopieren per VBA

Forumthread: Mittelwerte in ein neues Blatt kopieren per VBA

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread