Makro Optimierung
28.12.2015 18:30:09
Lutz
ich bin neu hier im Forum und muss mich schon einmal pauschal, auch wenn ich noch nicht nach Hilfe gefragt habe bei den vielen Schreiberlingen hier bedanken.
Durch das Studium diverser Beiträge habe ich mir mittlerweile eine sehr schöne Excel, die meine tägliche Arbeit erleichtert angelegt.
Ich bin aber jetzt darauf gestoßen das man die Rechenleistung durch verschiedene Schritte optimieren kann und habe für meinen VBA-Code der prima läuft eine Frage:
Da ich MakroDidakt bin bitte ich meine vrsl. nicht ganz Programmierer getreue Fragestellung zu verzeihen.
Kann man zum Beispiel sagen kopiere den Bereich D2 bis EW2 beginnend mit Spalte A?
Vielen Dank für Anregungen gerne auch mit Tutorialhinweisen.
Lutz
Sub Auswertung_nach_Kunden_1()
Dim wksEingabe As Worksheet
Dim wksListe As Worksheet
Dim lngZeile As Long, rngZelle As Range
Set wksEingabe = Worksheets("AW_nach_runid") 'Eingabetabellenblatt
Set wksListe = Worksheets("Auswertung_nach_Kd") 'Tabellenblatt in das die Daten _
geschrieben werden _
sollen
With wksListe
'nächste freie Zeile in Liste
Set rngZelle = .Cells.Find(What:="*", after:=.Range("A1"), LookIn:=xlFormulas, _
lookat:=xlWhole, searchorder:=xlByRows, searchdirection:=xlPrevious)
If rngZelle Is Nothing Then
lngZeile = 1
Else
lngZeile = rngZelle.Row + 1
End If
.Cells(lngZeile, 1).Value = wksEingabe.Range("D2").Value
.Cells(lngZeile, 2).Value = wksEingabe.Range("E2").Value
.Cells(lngZeile, 3).Value = wksEingabe.Range("F2").Value
.Cells(lngZeile, 4).Value = wksEingabe.Range("G2").Value
.Cells(lngZeile, 5).Value = wksEingabe.Range("H2").Value
.Cells(lngZeile, 6).Value = wksEingabe.Range("I2").Value
.Cells(lngZeile, 7).Value = wksEingabe.Range("J2").Value
.Cells(lngZeile, 8).Value = wksEingabe.Range("K2").Value
.Cells(lngZeile, 9).Value = wksEingabe.Range("L2").Value
.Cells(lngZeile, 10).Value = wksEingabe.Range("M2").Value
.Cells(lngZeile, 11).Value = wksEingabe.Range("N2").Value
.Cells(lngZeile, 12).Value = wksEingabe.Range("O2").Value
.Cells(lngZeile, 13).Value = wksEingabe.Range("P2").Value
.Cells(lngZeile, 14).Value = wksEingabe.Range("Q2").Value
.Cells(lngZeile, 15).Value = wksEingabe.Range("R2").Value
.Cells(lngZeile, 16).Value = wksEingabe.Range("S2").Value
.Cells(lngZeile, 17).Value = wksEingabe.Range("T2").Value
.Cells(lngZeile, 18).Value = wksEingabe.Range("U2").Value
.Cells(lngZeile, 19).Value = wksEingabe.Range("V2").Value
.Cells(lngZeile, 20).Value = wksEingabe.Range("W2").Value
.Cells(lngZeile, 21).Value = wksEingabe.Range("X2").Value
.Cells(lngZeile, 22).Value = wksEingabe.Range("Y2").Value
.Cells(lngZeile, 23).Value = wksEingabe.Range("Z2").Value
.Cells(lngZeile, 24).Value = wksEingabe.Range("AA2").Value
.Cells(lngZeile, 25).Value = wksEingabe.Range("AB2").Value
.Cells(lngZeile, 26).Value = wksEingabe.Range("AC2").Value
.Cells(lngZeile, 27).Value = wksEingabe.Range("AD2").Value
.Cells(lngZeile, 28).Value = wksEingabe.Range("AE2").Value
.Cells(lngZeile, 29).Value = wksEingabe.Range("AF2").Value
.Cells(lngZeile, 30).Value = wksEingabe.Range("AG2").Value
.Cells(lngZeile, 31).Value = wksEingabe.Range("AH2").Value
.Cells(lngZeile, 32).Value = wksEingabe.Range("AI2").Value
.Cells(lngZeile, 33).Value = wksEingabe.Range("AJ2").Value
.Cells(lngZeile, 34).Value = wksEingabe.Range("AK2").Value
.Cells(lngZeile, 35).Value = wksEingabe.Range("AL2").Value
.Cells(lngZeile, 36).Value = wksEingabe.Range("AM2").Value
.Cells(lngZeile, 37).Value = wksEingabe.Range("AN2").Value
.Cells(lngZeile, 38).Value = wksEingabe.Range("AO2").Value
.Cells(lngZeile, 39).Value = wksEingabe.Range("AP2").Value
.Cells(lngZeile, 40).Value = wksEingabe.Range("AQ2").Value
.Cells(lngZeile, 41).Value = wksEingabe.Range("AR2").Value
.Cells(lngZeile, 42).Value = wksEingabe.Range("AS2").Value
.Cells(lngZeile, 43).Value = wksEingabe.Range("AT2").Value
.Cells(lngZeile, 44).Value = wksEingabe.Range("AU2").Value
.Cells(lngZeile, 45).Value = wksEingabe.Range("AV2").Value
.Cells(lngZeile, 46).Value = wksEingabe.Range("AW2").Value
.Cells(lngZeile, 47).Value = wksEingabe.Range("AX2").Value
.Cells(lngZeile, 48).Value = wksEingabe.Range("AY2").Value
.Cells(lngZeile, 49).Value = wksEingabe.Range("AZ2").Value
.Cells(lngZeile, 50).Value = wksEingabe.Range("BA2").Value
.Cells(lngZeile, 51).Value = wksEingabe.Range("BB2").Value
.Cells(lngZeile, 52).Value = wksEingabe.Range("BC2").Value
.Cells(lngZeile, 53).Value = wksEingabe.Range("BD2").Value
.Cells(lngZeile, 54).Value = wksEingabe.Range("BE2").Value
.Cells(lngZeile, 55).Value = wksEingabe.Range("BF2").Value
.Cells(lngZeile, 56).Value = wksEingabe.Range("BG2").Value
.Cells(lngZeile, 57).Value = wksEingabe.Range("BH2").Value
.Cells(lngZeile, 58).Value = wksEingabe.Range("BI2").Value
.Cells(lngZeile, 59).Value = wksEingabe.Range("BJ2").Value
.Cells(lngZeile, 60).Value = wksEingabe.Range("BK2").Value
.Cells(lngZeile, 61).Value = wksEingabe.Range("BL2").Value
.Cells(lngZeile, 62).Value = wksEingabe.Range("BM2").Value
.Cells(lngZeile, 63).Value = wksEingabe.Range("BN2").Value
.Cells(lngZeile, 64).Value = wksEingabe.Range("BO2").Value
.Cells(lngZeile, 65).Value = wksEingabe.Range("BP2").Value
.Cells(lngZeile, 66).Value = wksEingabe.Range("BQ2").Value
.Cells(lngZeile, 67).Value = wksEingabe.Range("BR2").Value
.Cells(lngZeile, 68).Value = wksEingabe.Range("BS2").Value
.Cells(lngZeile, 69).Value = wksEingabe.Range("BT2").Value
.Cells(lngZeile, 70).Value = wksEingabe.Range("BU2").Value
.Cells(lngZeile, 71).Value = wksEingabe.Range("BV2").Value
.Cells(lngZeile, 72).Value = wksEingabe.Range("BW2").Value
.Cells(lngZeile, 73).Value = wksEingabe.Range("BX2").Value
.Cells(lngZeile, 74).Value = wksEingabe.Range("BY2").Value
.Cells(lngZeile, 75).Value = wksEingabe.Range("BZ2").Value
.Cells(lngZeile, 76).Value = wksEingabe.Range("CA2").Value
.Cells(lngZeile, 77).Value = wksEingabe.Range("CB2").Value
.Cells(lngZeile, 78).Value = wksEingabe.Range("CC2").Value
.Cells(lngZeile, 79).Value = wksEingabe.Range("CD2").Value
.Cells(lngZeile, 80).Value = wksEingabe.Range("CE2").Value
.Cells(lngZeile, 81).Value = wksEingabe.Range("CF2").Value
.Cells(lngZeile, 82).Value = wksEingabe.Range("CG2").Value
.Cells(lngZeile, 83).Value = wksEingabe.Range("CH2").Value
.Cells(lngZeile, 84).Value = wksEingabe.Range("CI2").Value
.Cells(lngZeile, 85).Value = wksEingabe.Range("CJ2").Value
.Cells(lngZeile, 86).Value = wksEingabe.Range("CK2").Value
.Cells(lngZeile, 87).Value = wksEingabe.Range("CL2").Value
.Cells(lngZeile, 88).Value = wksEingabe.Range("CM2").Value
.Cells(lngZeile, 89).Value = wksEingabe.Range("CN2").Value
.Cells(lngZeile, 90).Value = wksEingabe.Range("CO2").Value
.Cells(lngZeile, 91).Value = wksEingabe.Range("CP2").Value
.Cells(lngZeile, 92).Value = wksEingabe.Range("CQ2").Value
.Cells(lngZeile, 93).Value = wksEingabe.Range("CR2").Value
.Cells(lngZeile, 94).Value = wksEingabe.Range("CS2").Value
.Cells(lngZeile, 95).Value = wksEingabe.Range("CT2").Value
.Cells(lngZeile, 96).Value = wksEingabe.Range("CU2").Value
.Cells(lngZeile, 97).Value = wksEingabe.Range("CV2").Value
.Cells(lngZeile, 98).Value = wksEingabe.Range("CW2").Value
.Cells(lngZeile, 99).Value = wksEingabe.Range("CX2").Value
.Cells(lngZeile, 100).Value = wksEingabe.Range("CY2").Value
.Cells(lngZeile, 101).Value = wksEingabe.Range("CZ2").Value
.Cells(lngZeile, 102).Value = wksEingabe.Range("DA2").Value
.Cells(lngZeile, 103).Value = wksEingabe.Range("DB2").Value
.Cells(lngZeile, 104).Value = wksEingabe.Range("DC2").Value
.Cells(lngZeile, 105).Value = wksEingabe.Range("DD2").Value
.Cells(lngZeile, 106).Value = wksEingabe.Range("DE2").Value
.Cells(lngZeile, 107).Value = wksEingabe.Range("DF2").Value
.Cells(lngZeile, 108).Value = wksEingabe.Range("DG2").Value
.Cells(lngZeile, 109).Value = wksEingabe.Range("DH2").Value
.Cells(lngZeile, 110).Value = wksEingabe.Range("DI2").Value
.Cells(lngZeile, 111).Value = wksEingabe.Range("DJ2").Value
.Cells(lngZeile, 112).Value = wksEingabe.Range("DK2").Value
.Cells(lngZeile, 113).Value = wksEingabe.Range("DL2").Value
.Cells(lngZeile, 114).Value = wksEingabe.Range("DM2").Value
.Cells(lngZeile, 115).Value = wksEingabe.Range("DN2").Value
.Cells(lngZeile, 116).Value = wksEingabe.Range("DO2").Value
.Cells(lngZeile, 117).Value = wksEingabe.Range("DP2").Value
.Cells(lngZeile, 118).Value = wksEingabe.Range("DQ2").Value
.Cells(lngZeile, 119).Value = wksEingabe.Range("DR2").Value
.Cells(lngZeile, 120).Value = wksEingabe.Range("DS2").Value
.Cells(lngZeile, 121).Value = wksEingabe.Range("DT2").Value
.Cells(lngZeile, 122).Value = wksEingabe.Range("DU2").Value
.Cells(lngZeile, 123).Value = wksEingabe.Range("DV2").Value
.Cells(lngZeile, 124).Value = wksEingabe.Range("DW2").Value
.Cells(lngZeile, 125).Value = wksEingabe.Range("DX2").Value
.Cells(lngZeile, 126).Value = wksEingabe.Range("DY2").Value
.Cells(lngZeile, 127).Value = wksEingabe.Range("DZ2").Value
.Cells(lngZeile, 128).Value = wksEingabe.Range("EA2").Value
.Cells(lngZeile, 129).Value = wksEingabe.Range("EB2").Value
.Cells(lngZeile, 130).Value = wksEingabe.Range("EC2").Value
.Cells(lngZeile, 131).Value = wksEingabe.Range("ED2").Value
.Cells(lngZeile, 132).Value = wksEingabe.Range("EE2").Value
.Cells(lngZeile, 133).Value = wksEingabe.Range("EF2").Value
.Cells(lngZeile, 134).Value = wksEingabe.Range("EG2").Value
.Cells(lngZeile, 135).Value = wksEingabe.Range("EH2").Value
.Cells(lngZeile, 136).Value = wksEingabe.Range("EI2").Value
.Cells(lngZeile, 137).Value = wksEingabe.Range("EJ2").Value
.Cells(lngZeile, 138).Value = wksEingabe.Range("EK2").Value
.Cells(lngZeile, 139).Value = wksEingabe.Range("EL2").Value
.Cells(lngZeile, 140).Value = wksEingabe.Range("EM2").Value
.Cells(lngZeile, 141).Value = wksEingabe.Range("EN2").Value
.Cells(lngZeile, 142).Value = wksEingabe.Range("EO2").Value
.Cells(lngZeile, 143).Value = wksEingabe.Range("EP2").Value
.Cells(lngZeile, 144).Value = wksEingabe.Range("EQ2").Value
.Cells(lngZeile, 145).Value = wksEingabe.Range("ER2").Value
.Cells(lngZeile, 146).Value = wksEingabe.Range("ES2").Value
.Cells(lngZeile, 147).Value = wksEingabe.Range("ET2").Value
.Cells(lngZeile, 148).Value = wksEingabe.Range("EU2").Value
.Cells(lngZeile, 149).Value = wksEingabe.Range("EV2").Value
.Cells(lngZeile, 150).Value = wksEingabe.Range("EW2").Value
'Schichtbezogene Daten Ende
'usw.
End With
End Sub