Thema Datum  Von Nutzer Rating
Antwort
Rot dauerschleife wegen change (verursacht durch schreiben in zelle)
 07.12.2013 19:52:58 Gast49586
NotSolved
08.12.2013 01:51:29 Gast39872
NotSolved

Ansicht des Beitrags:
Von:
Gast49586		 Datum:
07.12.2013 19:52:58		 Views:
1165		 Rating:
     
Antwort:
  Ja
Thema:
dauerschleife wegen change (verursacht durch schreiben in zelle)

Hallo,
ich rufe über change mein sub colorize() auf.
mein problem liegt im letzten If
wenn ich in spalte 3 etwas schreibe, wird spalte 4 grau und mit "nicht benötigt" beschrieben
mein problem ist, dass dieses schreiben wieder als change erkannt wird und das programm von vorne beginnt
diese dauerschleife hört dann nich mehr auf und es hilft nur noch der task manager...
ist es möglich das nur manuell getätigtes schreiben als change erkannt wird? oder wie kann ich das ptoblem sonst umgehen??


In Tabelle1 habe ich folgendes geschrieben

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("A:Q")) Is Nothing Then
Exit Sub
End If

Call colorize

End Sub


Hier das sub colorize():

Sub colorize()

Dim spalte As Long
Dim zeile As Long
Dim spaltemax As Long
Dim zeileymax As Long
spaltemax = 10
zeilemax = 200

For zeile = zeilemax To 4 Step -1
If Application.WorksheetFunction.CountA(Rows(zeile)) = 0 Then 'wenn zeile verwendet dann zeile rot
Rows(zeile).Interior.ColorIndex = 2
Else
Rows(zeile).Interior.ColorIndex = 3
End If

For spalte = 1 To spaltemax 'jedes feld das ausgefüllt ist grün
If Not IsEmpty(Cells(zeile, spalte)) Then
Cells(zeile, spalte).Interior.ColorIndex = 4
End If
Next spalte

If Not IsEmpty(Cells(zeile, 3)) Then 'wenn feld 3 ausgefüllt soll feld 4 grau werden und "nicht benötigt drin stehen
Cells(zeile, 4).Interior.ColorIndex = 16
Cells(zeile, 4) = "nicht benötigt" '!!!!von hier aus springt es wieder zu change!!!!
End If

Next zeile


End Sub

Danke schon mal im voraus

Gruß Rainer

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot dauerschleife wegen change (verursacht durch schreiben in zelle)
 07.12.2013 19:52:58 Gast49586
NotSolved
08.12.2013 01:51:29 Gast39872
NotSolved