VBA verbessern

Hi,
ich habe einen Code der mir die Gesamtübersicht über verschiedene Kalkulationen gibt. Wichtig ist hierbei, dass ich z.B. mit dem x für abgeschlossene Projekte(siehe Beispieldatei) auswählen kann, welche Tabellenblätter einbezogen werden. Meine Variante funktioniert, dauert aber je nach Menge der Kalkulationen dann doch eine Weile zum aktualisieren und sieht etwas umständlich aus. Ich brauche so was aber öfter, daher bitte nur Vorschläge die ich als VBA-Laie verstehen kann und wieder anwenden kann. Eine Verkürzung des Codes kam ja bereits in meinem alten Thread, als der Button nicht ging.
https://www.herber.de/forum/archiv/1300to1304/t1300287.htm#1300287
Die einzelnen Daten der Spalten O-CI brauche ich nur für die Übersicht CL-CS, die mein eigentliches Ziel ist. Die Kalkulationen sind immer gleich aufgebaut.
Zur Verkürzung nur für mich zum Verständnis:
Cells(x, 15).Resize(, 36).Value = _
WorksheetFunction.Transpose(.Cells(19, 5).Resize(36))
Cells(x, 51).Resize(, 36).Value = _
WorksheetFunction.Transpose(.Cells(19, 6).Resize(36))
Resize steht einfach für die Wiederholung 36Mal, wofür steht WorksheetFunction.Transpose?
Danke für eure Hilfe!
LG Julia
https://www.herber.de/bbs/user/84001.xlsm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA verbessern

21.02.2013 09:22:53

Rudi

Mal mit FML

21.02.2013 13:23:58

JACKD

AW: Mal mit FML

21.02.2013 13:45:57

Julia

AW: Mal mit FML

21.02.2013 14:07:02

JACKD

AW: Mal mit FML

21.02.2013 14:19:47

Julia

So vielleicht?

21.02.2013 14:45:38

JACKD

Vielleicht doch mit VBA?

21.02.2013 15:27:02

Julia

Z= Zeile oder Z= Spalte (Z) owT

21.02.2013 15:54:24

JACKD

AW: Z= Zeile oder Z= Spalte (Z) owT

21.02.2013 16:11:12

Julia

AW: VBA verbessern

21.02.2013 14:04:19

Daniel

=Summe(a:d!Z1) owT

22.02.2013 15:22:40

Rudi

AW: =Summe(a:d!Z1) owT

25.02.2013 11:51:31

Julia

AW: =Summe(a:d!Z1) owT

25.02.2013 15:44:29

Daniel

Hallo,
mein Code macht das gleiche wie deiner.
Zusätzlich noch Application.Screenupdating=False rein, dann geht das schneller

Sub Julia()
Dim x As Long, i As Integer
ActiveSheet.Move before:=Sheets(1) 'setzt Actives Blatt an erste Stelle
x = 2
Application.ScreenUpdating = False
For i = 3 To Sheets.Count
With Sheets(i)
Cells(x, 1) = .Name
Cells(x, 3).Value = .Cells(9, 5)
Cells(x, 4).Value = .Cells(14, 5)
Cells(x, 6).Value = .Cells(10, 5)
Cells(x, 7).Value = .Cells(11, 5)
Cells(x, 8).Value = .Cells(12, 5)
Cells(x, 9).Value = .Cells(13, 5)
Cells(x, 11).Value = .Cells(6, 4)
Cells(x, 13).Value = .Cells(3, 6)
Cells(x, 15).Resize(, 36).Value = _
WorksheetFunction.Transpose(.Cells(19, 5).Resize(36))
Cells(x, 51).Resize(, 36).Value = _
WorksheetFunction.Transpose(.Cells(19, 6).Resize(36))
Cells(x, 87).Value = .Cells(4, 10)
End With
x = x + 1
Next i
End Sub

Resize steht einfach für die Wiederholung 36 Mal
Das ist nicht richtig.
Resize erweitert den angegebenen Zellbereich.
Somit wird Cells(x,15) (entspricht Range("Ox") der Bereich Range("Ox:AXx"), bzw aus Cells(19,5) (=Range("E19")) wird Range(E19:E54").
WorksheetFunction.Transpose transponiert den Bereich, macht also aus Zeilen Spalten. Somit wird z.B. E19:E54 in O2:AX2 übertragen.
Gruß
Rudi

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread