ich habe einen Button in meiner Datei der eine Gesamtübersicht über alle Tabellenblätter ausgibt. Bei Klick sollte folgender Code ausgeführt werden:
Option Explicit
Private Sub CommandButton1_Click()
Dim x As Double, i As Double
ActiveSheet.Move before:=Sheets(1) 'setzt Actives Blatt an erste Stelle
x = 2
For i = 3 To Sheets.Count
Cells(x, 1) = Sheets(i).Name
Cells(x, 3).Value = Sheets(i).Cells(9, 5)
Cells(x, 4).Value = Sheets(i).Cells(14, 5)
Cells(x, 6).Value = Sheets(i).Cells(10, 5)
Cells(x, 7).Value = Sheets(i).Cells(11, 5)
Cells(x, 8).Value = Sheets(i).Cells(12, 5)
Cells(x, 9).Value = Sheets(i).Cells(13, 5)
Cells(x, 11).Value = Sheets(i).Cells(6, 4)
Cells(x, 13).Value = Sheets(i).Cells(3, 6)
Cells(x, 15).Value = Sheets(i).Cells(19, 5)
Cells(x, 16).Value = Sheets(i).Cells(20, 5)
Cells(x, 17).Value = Sheets(i).Cells(21, 5)
Cells(x, 18).Value = Sheets(i).Cells(22, 5)
Cells(x, 19).Value = Sheets(i).Cells(23, 5)
Cells(x, 20).Value = Sheets(i).Cells(24, 5)
Cells(x, 21).Value = Sheets(i).Cells(25, 5)
Cells(x, 22).Value = Sheets(i).Cells(26, 5)
Cells(x, 23).Value = Sheets(i).Cells(27, 5)
Cells(x, 24).Value = Sheets(i).Cells(28, 5)
Cells(x, 25).Value = Sheets(i).Cells(29, 5)
Cells(x, 26).Value = Sheets(i).Cells(30, 5)
Cells(x, 27).Value = Sheets(i).Cells(31, 5)
Cells(x, 28).Value = Sheets(i).Cells(32, 5)
Cells(x, 29).Value = Sheets(i).Cells(33, 5)
Cells(x, 30).Value = Sheets(i).Cells(34, 5)
Cells(x, 31).Value = Sheets(i).Cells(35, 5)
Cells(x, 32).Value = Sheets(i).Cells(36, 5)
Cells(x, 33).Value = Sheets(i).Cells(37, 5)
Cells(x, 34).Value = Sheets(i).Cells(38, 5)
Cells(x, 35).Value = Sheets(i).Cells(39, 5)
Cells(x, 36).Value = Sheets(i).Cells(40, 5)
Cells(x, 37).Value = Sheets(i).Cells(41, 5)
Cells(x, 38).Value = Sheets(i).Cells(42, 5)
Cells(x, 39).Value = Sheets(i).Cells(43, 5)
Cells(x, 40).Value = Sheets(i).Cells(44, 5)
Cells(x, 41).Value = Sheets(i).Cells(45, 5)
Cells(x, 42).Value = Sheets(i).Cells(46, 5)
Cells(x, 43).Value = Sheets(i).Cells(47, 5)
Cells(x, 44).Value = Sheets(i).Cells(48, 5)
Cells(x, 45).Value = Sheets(i).Cells(49, 5)
Cells(x, 46).Value = Sheets(i).Cells(50, 5)
Cells(x, 47).Value = Sheets(i).Cells(51, 5)
Cells(x, 48).Value = Sheets(i).Cells(52, 5)
Cells(x, 49).Value = Sheets(i).Cells(53, 5)
Cells(x, 50).Value = Sheets(i).Cells(54, 5)
Cells(x, 51).Value = Sheets(i).Cells(19, 6)
Cells(x, 52).Value = Sheets(i).Cells(20, 6)
Cells(x, 53).Value = Sheets(i).Cells(21, 6)
Cells(x, 54).Value = Sheets(i).Cells(22, 6)
Cells(x, 55).Value = Sheets(i).Cells(23, 6)
Cells(x, 56).Value = Sheets(i).Cells(24, 6)
Cells(x, 57).Value = Sheets(i).Cells(25, 6)
Cells(x, 58).Value = Sheets(i).Cells(26, 6)
Cells(x, 59).Value = Sheets(i).Cells(27, 6)
Cells(x, 60).Value = Sheets(i).Cells(28, 6)
Cells(x, 61).Value = Sheets(i).Cells(29, 6)
Cells(x, 62).Value = Sheets(i).Cells(30, 6)
Cells(x, 63).Value = Sheets(i).Cells(31, 6)
Cells(x, 64).Value = Sheets(i).Cells(32, 6)
Cells(x, 65).Value = Sheets(i).Cells(33, 6)
Cells(x, 66).Value = Sheets(i).Cells(34, 6)
Cells(x, 67).Value = Sheets(i).Cells(35, 6)
Cells(x, 68).Value = Sheets(i).Cells(36, 6)
Cells(x, 69).Value = Sheets(i).Cells(37, 6)
Cells(x, 70).Value = Sheets(i).Cells(38, 6)
Cells(x, 71).Value = Sheets(i).Cells(39, 6)
Cells(x, 72).Value = Sheets(i).Cells(40, 6)
Cells(x, 73).Value = Sheets(i).Cells(41, 6)
Cells(x, 74).Value = Sheets(i).Cells(42, 6)
Cells(x, 75).Value = Sheets(i).Cells(43, 6)
Cells(x, 76).Value = Sheets(i).Cells(44, 6)
Cells(x, 77).Value = Sheets(i).Cells(45, 6)
Cells(x, 78).Value = Sheets(i).Cells(46, 6)
Cells(x, 79).Value = Sheets(i).Cells(47, 6)
Cells(x, 80).Value = Sheets(i).Cells(48, 6)
Cells(x, 81).Value = Sheets(i).Cells(49, 6)
Cells(x, 82).Value = Sheets(i).Cells(50, 6)
Cells(x, 83).Value = Sheets(i).Cells(51, 6)
Cells(x, 84).Value = Sheets(i).Cells(52, 6)
Cells(x, 85).Value = Sheets(i).Cells(53, 6)
Cells(x, 86).Value = Sheets(i).Cells(54, 6)
Cells(x, 87).Value = Sheets(i).Cells(4, 10)
x = x + 1
Next i
End Sub
Es hat auch mal funktioniert, aber irgendwie geht es nicht mehr und ich weiß nicht warum, kann jemand helfen?
Danke und LG Julia