Thema Datum  Von Nutzer Rating
Antwort
Rot Script Fehler oder Änderung
02.02.2019 13:25:35 Felix
***
NotSolved
02.02.2019 16:03:01 Gast3333
*
NotSolved
02.02.2019 16:42:29 Gast80805
*
NotSolved
02.02.2019 21:16:42 Gast3333
*
NotSolved
05.02.2019 14:37:17 Felix
NotSolved

Ansicht des Beitrags:
Von:
Felix
Datum:
02.02.2019 13:25:35
Views:
66
Rating: Antwort:
  Ja
Thema:
Script Fehler oder Änderung

Hallo,

ja ich habe noch keine Möglichkeit gefunden dieses Problem zu lösen.

Ich denke weil die For Next Schleife nur einmal reagiert, sie sollte aber unbegrenzt reagieren das ist das Problem hier,

das könnte daran ja liegen, dass ein ungültig Verweis für die Next-Steuervariable vorliegt ?

aber ich habe keine Ahnung davon, der Vorgang sollte unbegrenzt wiederholt werden.

Ich würde mich freuen wenn ein Excel-Experte dieses kleine Problem lösen würde.

Gruß karlos

 

Sub Faerben()

Dim intZaeler As Integer

Dim db1Zeile As Double

For intZaeler = 1 To 12

On Error Resume Next 'Fehler werden ignoriert

db1Zeile = WorksheetFunction.Match(Cells(intZaeler, "AE", Range("AA1:AA12"), 0)

If db1Zeile > 0 Then

Cells(intzaeler, "AE". Interior.ColorIndex = Cells(db1Zeile, "AA"). Interior,ColorIndex

End If

On Error Goto 0 ' Fehlerignorierung aussalten

Next intZaeler

End Sub

 

 

 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Script Fehler oder Änderung
02.02.2019 13:25:35 Felix
***
NotSolved
02.02.2019 16:03:01 Gast3333
*
NotSolved
02.02.2019 16:42:29 Gast80805
*
NotSolved
02.02.2019 21:16:42 Gast3333
*
NotSolved
05.02.2019 14:37:17 Felix
NotSolved