Thema Datum  Von Nutzer Rating
Antwort
05.03.2012 16:19:42 Nico
NotSolved
Blau Fehlermeldung in einem Makro / ISTFEHLER
 05.03.2012 20:44:37 Till
NotSolved
06.03.2012 08:38:25 Nico
NotSolved

Ansicht des Beitrags:
Von:
Till		 Datum:
05.03.2012 20:44:37		 Views:
1080		 Rating:
     
Antwort:
  Ja
Thema:
Fehlermeldung in einem Makro / ISTFEHLER
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Range("K16:K1555").Select
For Each Zelle In Selection
    If Zelle.Value = "" Then Zelle.FormulaR1C1 = _
           "=VLOOKUP(VALUE(LEFT(RC[-10],4)),Max_final!C1:C3,3,FALSE)&VLOOKUP(VALUE(MID(RC[-10],5,4)),Max_final!C1:C3,3,FALSE)"
        Select Case Zelle
            Case Is = "WSDWSD"
                Zelle.Font.ColorIndex = 50 ' Schriftfarbe grün
            Case Is = "WCSWCS"
                Zelle.Font.ColorIndex = 3 ' Schriftfarbe rot
            Case Is = "WSDWCS"
                Zelle.Interior.ColorIndex = 22 ' Hintergrund rosa
            Case Is = "WCSWSD"
                Zelle.Interior.ColorIndex = 22 ' Hintergrund rosa
            Case Is = "AGWSD"
                Zelle.Font.ColorIndex = 25 ' Schriftfarbe blau
            Case Is = "WSDAG"
                Zelle.Font.ColorIndex = 25 ' Schriftfarbe blau
            Case Is = "WCSAG"
                Zelle.Font.ColorIndex = 25 ' Schriftfarbe blau
            Case Is = "AGWCS"
                Zelle.Font.ColorIndex = 25 ' Schriftfarbe blau
            Case Else
                Zelle.Interior.ColorIndex = xlColorIndexNone
        End Select
        Range("A16").Select
    Next Zelle
 
End Sub

Versuchs mal so (ohne "set rng=nothing"). Man sieht allerdings bei dir nicht als was "rng" definiert ist. Wenn es icht "as variant", "as range" oder "as objekt" ist, bzw ohne explicite Definition und z.B. "as worksheet" definiert ist, würde der Fehler auftreten.

In dem Codeausschnitt kann ich auch garnicht erkennen wozu du die Variable "rng" überhaupt brauchst, sie auf Nothing zu setzen wird aber in 99% der Fälle eh nicht wirklich nötig sein.

 

Gruß

Till

Till

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
05.03.2012 16:19:42 Nico
NotSolved
Blau Fehlermeldung in einem Makro / ISTFEHLER
 05.03.2012 20:44:37 Till
NotSolved
06.03.2012 08:38:25 Nico
NotSolved