Schlankheitskur für Code
12.04.2004 21:12:36
UlfMerscher
hab mir einen Code zusammen gestrickt, wo anscheinend mehr Knoten als ein Muster zu sehen ist.
Er ist auch funktionsfähig, nur unter 64 KB :-(
Mag manch einer von Euch jetzt den Kopf schütteln, aber in meinen VBA Anfängerschuhen
hab ich es leider nicht besser hin bekommen.
Jetzt bräuchte ich(naja, der Code), wenn möglich, mit Eurer Hilfe eine Schlankheitskur.
Hier ein Auszug daraus:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Adr = Target.Address(False, False)
If Adr <> "GC106" And Adr <> "GC107" And Adr <> "GC108" And Adr <> "GC109" And Adr <> "GC110" And Adr <> "GC111" And Adr <> "GC112" And Adr <> "GC113" And Adr <> "GC114" And Adr <> "GC115" And Adr <> "GC116" And Adr <> "GC117" And Adr <> "GC118" And Adr <> "GC119" And Adr <> "GC120" And Adr <> "GC121" And Adr <> "GC122" And Adr <> "GC123" And Adr <> "GC124" And Adr <> "GC125" And Adr <> "GC126" And Adr <> "GC127" And Adr <> "GC128" And Adr <> "GC129" And Adr <> "GC130" And Adr <> "GC131" And Adr <> "GC132" And Adr <> "GC133" And Adr <> "GC134" And Adr <> "GC135" And Adr <> "GC136" Then Exit Sub
Select Case Range("GC106")
Case "Frühschicht"
Range("CU40").Interior.ColorIndex = 20 'blaue Fläche
Range("CU40").Font.ColorIndex = 1 'schwarze Schrift
Range("CU40").Value = "Frühschicht"
Range("F26").Interior.ColorIndex = 20 'blaue Fläche
Range("F26").Font.ColorIndex = 1 'schwarze Schrift
Range("F26").Value = "F"
Case "Spätschicht"
Range("CU40").Interior.ColorIndex = 43 'grün
Range("CU40").Font.ColorIndex = 1 'schwarz
Range("CU40").Value = "Spätschicht"
Range("F26").Interior.ColorIndex = 20 'blaue Fläche
Range("F26").Font.ColorIndex = 1 'schwarze Schrift
Range("F26").Value = "S"
usw..
Wo und wie kann ich ihn schlanker machen?
Kann mir jemand behilflich sein?
Gruß
Ulf