Code zu lang
16.01.2004 04:29:54
Stefan Glander
ich habe in einer "Worksheet_Change" Prozedur folgenden Code:
'user 1
'Tab Name für Tabellenblatt1 in Rechnungen.xls vergeben
If Not ((Intersect(Target, [F5]) Is Nothing) And (Intersect(Target, [I5]) Is Nothing)) Then
Workbooks("Rechnungen.xls").Sheets(1).Name = ActiveSheet.[L5].Value
End If
' Feld "Mandantenname" füllen in Rechnungen.xls Tabellenblatt1
If Not ((Intersect(Target, [F5]) Is Nothing) And (Intersect(Target, [I5]) Is Nothing)) Then
Workbooks("Rechnungen.xls").Worksheets(1).Range("G26") = ActiveSheet.[AG5].Value
End If
' Feld "Mandant seit" füllen in Rechnungen.xls Tabellenblatt1
If Not (Intersect(Target, [O5]) Is Nothing) Then
Workbooks("Rechnungen.xls").Worksheets(1).Range("A32") = ActiveSheet.[O5].Value
End If
' Feld "Amtsgericht" füllen in Rechnungen.xls Tabellenblatt1
If Not (Intersect(Target, [U5]) Is Nothing) Then
Workbooks("Rechnungen.xls").Worksheets(1).Range("B13") = ActiveSheet.[U5].Value
End If
' Feld "Anschrift" füllen in Rechnungen.xls Tabellenblatt1
If Not (Intersect(Target, [U5]) Is Nothing) Then
Workbooks("Rechnungen.xls").Worksheets(1).Range("A17") = ActiveSheet.[X5].Value
End If
' Feld "Ort" füllen in Rechnungen.xls Tabellenblatt1
If Not (Intersect(Target, [U5]) Is Nothing) Then
Workbooks("Rechnungen.xls").Worksheets(1).Range("A19") = ActiveSheet.[AA5].Value
End If
' Feld "Aktenzeichen" füllen in Rechnungen.xls Tabellenblatt1
If Not (Intersect(Target, [R5]) Is Nothing) Then
Workbooks("Rechnungen.xls").Worksheets(1).Range("A23") = ActiveSheet.[R5].Value
End If
'Tab Name für Tabellenblatt1 in Übersicht.xls vergeben
If Not ((Intersect(Target, [F5]) Is Nothing) And (Intersect(Target, [I5]) Is Nothing)) Then
Workbooks("Übersicht.xls").Sheets(1).Name = ActiveSheet.[L5].Value
End If
Code eingefügt mit Syntaxhighlighter 2.5
diesen brauche ich für 60 User. Bereits bei 36 Usern bekomme ich die Meldung das die Prozedur zu lang ist.
Wie kann ich das umgehen.
Gruss
Stefan Glander