Excel/VBA - prozedur zu lange - please help ;(

Re: Excel/VBA - prozedur zu lange - please help ;(

Mithrandil — Wed, 27 Jul 2005 14:35:59 GMT

Noch ein paar Tipps zum 'Worksheet_Change' Ereignis:

1. Dieses Ereignis wird immer aufgerufen, wenn sich auf dem Arbeitsblatt eine Zelle verändert.

Daher kann es Sinn machen als erstes die aktuelle Spalte oder Zeile abzufragen, wenn man z.b. nur auf Veränderungen innerhalb bestimmter Zellen im Arbeitsblatt reagieren möchte und ansonsten die Routine gleich wieder zu verlassen.

2. Das Range-Objekt 'Target' kann auch mehrere Zellen beinhalten (wenn der User vorher einen Bereich auf dem Blatt markiert hat). In so einem Fall führt z.B. ein Zugriff auf die Eigenschaft 'Value' mittels Target.value oder ähnliche Eigenschaften des Range-Objekts zu einem Programmfehler.
D.h. eventl. ist es notwendig vor der Weiterverarbeitung von 'Target' festzustellen ob es sich um einen Bereich von mehreren Zellen oder eine einzelne handelt.

Re(3): mhh jetzt steh ich auf den kopf ;)

Penguin — Fri, 22 Jul 2005 00:12:26 GMT

also wenn ich mich richtig erinnere was du machen willst:
es ist immer eine ähnliche prozedur (Zeilen ausblenden pro Kunde etc.) dann machs doch so:

sub worksheet_change(byVal target as excel.range)
call mkr_deinProgramm(target.row,target.column)
'wenn du noch weitere Prozeduren brauchst dann halt
call mkr_dein2Programm(x,y)
call mkr_dein3Programm 'etc.
end sub

sub mkr_deinProgramm(lngRow as long,intColumn as integer)
if activesheet.cellls(lngrow,intcolumn).text="-" then 'halt deine Abfrage
activesheet.range(rows(lngrow+1),rows(lngrow+2)).hidden=false
end if

end sub

und übergib immer werte sodass du nicht alles neu schreiben musst.

Wie gesagt, wenn du mir die Datei mal schickst kann ich dir sicher besser weiterhelfen.

Re(3): mhh jetzt steh ich auf den kopf ;)

teleth — Thu, 21 Jul 2005 14:04:59 GMT

hmmm... klingt irgendwie verzwickt...

wenn du mir das xls sheet zukommen lassen willst, dann könnte ich es mir ansehen...

Re(2): mhh jetzt steh ich auf den kopf ;)

danielaBMW — Thu, 21 Jul 2005 13:58:23 GMT

mhh funkt nicht hab mich jetzt herumgespielt irgendwie will es nicht gehen?!

mir auch irgendwo nicht ganz klar, woher weis er das ich eine

Worksheet_Change(ByVal Target As Excel.Range)

hab?!

hab das jetzt ja niergendwo mehr stehen *grml*

oder hab ich dich doch nicht ganz verstanden?!

liebe grüße
dani

Re: mhh jetzt steh ich auf den kopf ;)

teleth — Thu, 21 Jul 2005 09:38:15 GMT

du meinst statt "Range"D1").Select" soll ich meine 370 zeilen
codes ... eingeben, usw...?

ganz genau!

oder kommt das zum code oben dazu?!

nein.

hab ich das richtig verstanden?!

mhh jetzt steh ich auf den kopf ;)

danielaBMW — Thu, 21 Jul 2005 09:34:01 GMT

hallo, ja klar danke dir nochmals! hast mir sehr geholfen wieter unten!! war so in arbeitsfieber, das ich erst ejtzt nachdem die liste fertig war wieder onlien ging *g*

nur was du da oben gechsreiben hast *seufz* ich versteh nur bahnhof *g*

du meinst statt "Range"D1").Selcet" soll ich meine 370 zeilen codes für z.b. kunde 01 eingeben, usw...?

und wo steht dann "Private Sub Worksheet_Change(ByVal Target As Excel.Range)"

oder kommt das zum code oben dazu?!

sprich:

Sub Makro1()

    Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    mit den gesamten code (die 370 zeilen für z.B. kunde 01)


End Sub

Sub Makro2()

    Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    mit den gesamten code (die 370 zeilen für z.B. kunde 02)

End Sub

Sub Makro3()

    Application.Run "Mappe1!Makro1"
    Application.Run "Mappe1!Makro2"

End Sub

hab ich das richtig verstanden?! *grml*

danke dir schonmal jetzt für deine hilfe und bemühungen

danke dir!
liebe grüße
daniela

Re: Excel/VBA - prozedur zu lange - please help ;(

teleth — Thu, 21 Jul 2005 09:23:36 GMT

ahhh!! ... also konnte ich dir doch helfen ... war schon unsicher

ähm .. du könntest die prozedur splitten und dann halt beide in einem makro ausführen...

also zb:

Sub Makro1()

    Range("D16").Select <-- hier deinen code...

End Sub

Sub Makro2()

    Range("D16").Select <-- hier deinen code...

End Sub

Sub Makro3()

    Application.Run "Mappe1!Makro1" <--- hier deine makros
    Application.Run "Mappe1!Makro2"

End Sub

Excel/VBA - prozedur zu lange - please help ;(

danielaBMW — Thu, 21 Jul 2005 09:16:07 GMT

hallo liebe gh-gemeinde, wie schon weiter unten erwähnt hab ich nun ein neues problem mit meine rliste ich habe eine

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

mit einen haufen codes, die gesamte sub-funktion hat leider über 2000 zeilen, und nun bekomme ich die fehlermeldung prozedur zu lange wie kann ich sowas vermeiden?!

habe die ganze prozedur unterteilt in

kunde 01
kunde 02 usw...
komme leider nur bis kunde 05 - brauchen würde ich 10-20.

eine solche unterteilung hat 370zeilen an codes
hab die unterteilung habe ich nur aus "übersichtsgründen (falls überhaupt noch vorhanden)" mit 'Kunde01 usw... unterteilt

kann ich jetzt die prozedur irgendwie aufteilen?? bzw. splitten?!

den "Private Sub Worksheet_Change(ByVal Target As Excel.Range)" kann ich ja nur mal verwenden?!
gibs sowas ändliches wie

sub kunde01
next sub

sub kunde02?

das ich die prodedur einfach irgendwie unerteilen kann?! den die codes kann man denk ich net viel kürzen.

bitte um eure hilfe!! ich verzweifle alles fertig und dann sowas *seufz*
danke!
liebe grüße
daniela

Excel/VBA - prozedur zu lange - please help ;(

Re: Excel/VBA - prozedur zu lange - please help ;(

Re(3): mhh *jetzt steh ich auf den kopf* ;)

Re(3): mhh *jetzt steh ich auf den kopf* ;)

Re(2): mhh *jetzt steh ich auf den kopf* ;)

Re: mhh *jetzt steh ich auf den kopf* ;)

mhh *jetzt steh ich auf den kopf* ;)

Re: Excel/VBA - prozedur zu lange - please help ;(

Excel/VBA - prozedur zu lange - please help ;(

Re(3): mhh jetzt steh ich auf den kopf ;)

Re(3): mhh jetzt steh ich auf den kopf ;)

Re(2): mhh jetzt steh ich auf den kopf ;)

Re: mhh jetzt steh ich auf den kopf ;)

mhh jetzt steh ich auf den kopf ;)