code erstellt "er läuft und läuft "

mayk · 2005-03-03T22:21:37+00:00

ich habe mittels macrorecorder diesen code gebastelt und ihn als change ereigniss in die tabelle 1 eingefügt, nun ja die wissenden unter euch wissen wahrscheinlich das das nicht geht. Wer kann mir sage was falsch ist und wie ich ihn ändere (Es läuft, aber ich bekomme es nicht mehr zum stillstand) also nicht ausprobieren!! Private Sub Worksheet_Change(ByVal Target As Range) Range("E2").Select ActiveCell.FormulaR1C1 = "=IF(R[-1]C>0,R[-1]C,"""")" Range("E2").Select Selection.Copy Range("E3").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False End Sub gruß Mayk

Hi Maykl,
wenn ich mich mal einmischen darf... Das Problem ist doch nur, daß das Makro aufgerufen wird, wenn sich die Selection ändert. Innerhalb des Makros änderst Du aber die Selection, also ruft sich das Makro immer selber auf, rekursiv sozusagen. Das kannst Du verhindern, indem Du:
Public blnSub As Boolean


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If blnSub Then Exit Sub 'rekursiven Aufruf abbrechen
blnSub = True
Range("E2").Select
ActiveCell.FormulaR1C1 = "=IF(R[-1]C>0,R[-1]C,"""")"
Range("E2").Select
Selection.Copy
Range("E3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
blnSub = False
End Sub


Private Sub CommandButton1_Click()
Range("a10").Value = Range("a10").Value * 1 + 1
End Sub

Damit wird das Makro- egal was es an sich macht- nur ein mal durchlaufen.
Gruß! Micha

...mir einen Teil der Predigt abgenommen hast (vgl OT, Martin)! Denn nachdem ich heute morgen nun schon den 5.Thread zu diesem Thema vorgefunden habe, muss ich dir, Mayk, sagen, es scheint sinnlos, hier was zu tun!
1. es existiert offensichtl. kein ordentl. Projekt - nur Ideen
2. du hast weder ausreichende Excel- noch VBA-Kenntnisse
3. es wird für dich schwer genug wdn, ein Projekt auf dem Papier zu erarbeiten, was du...
4. ...brauchst, wenn du (oder dein Chef?) einen externen Auftrag vergibst.
Denn darauf läuft es hinaus. So wie bisher geht es nicht weiter! Keiner kann sich sicher sein, deine Intentionen zu treffen, deshalb meldet sich auch keiner mehr. Es ist mir mit nur wenig Aufwand gelungen, meine dir übermittelten Codes an die von dir auf den Server geladenen Testtabellen anzupassen (das hättest du selber können müssen!) und es läuft so wie ich VERMUTE, dass du es meinst. Hab sogar noch ein bisschen Schnickschnack dazu getan. Aber ich bin mir ja nicht mal sicher, ob alles, was ich dir als PgmCode übermittelt habe, von dir auch als solcher erkannt wurde. So macht man KEIN Projekt, das kann leicht nach hinten losgehen und Schaden verursachen. Du schickst ja morgens deine Fahrer auch nicht ziel- und planlos auf die Reise. Projektieren und Programmieren sind auch Ernst zu nehmende Tätigkeiten, die ein gewisses Können erfordern. Übrigens hast du das ja gemerkt als deine Ereignisprozedur sich immer wieder selbst ausgelöst hat. Du hast also nicht verstanden, warum dir Nepomuk in eine Prozedur die .EnableEvent-Befehle gesetzt hat und offensichtlich auch Nichts nachgelesen.
In deinem Fall scheint (zumindest zum ggw.Zeitpunkt) der Spruch gerechtfertigt, "Schuster bleib bei deinen Leisten!". Deshalb werde ich dir meine Testdateien mit Codevarianten (vorerst?) nicht hochladen (was anderes gäbe eh keinen Sinn, weil man nicht weiß, was du mit dem Code machst!).
Ciao Luc
i-(

code erstellt "er läuft und läuft "

Forumthread: code erstellt "er läuft und läuft "

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

code erstellt "er läuft und läuft "

Forumthread: code erstellt "er läuft und läuft "

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread