Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1072to1076
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Mittelwerte in ein neues Blatt kopieren per VBA

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
Anzeige
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

Anzeige

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige