Typen unverträglich und ich sehe es nicht

Hallo Excelfreunde,
kann bittemal einer auf meinen Code schauen und mir die Augen öffnen?
Ich sehe den Fehler einfach nicht. In den Zellen stehen entweder X oder nichts, alle mit Standard formatiert.

Sub markiere()
  Dim rngEingabe As Range
  Dim rngSpalte As Range
  Dim rngZelle As Range
  Dim intC As Integer

  Application.EnableEvents = False
  Set rngEingabe = Range("B3:I18")
  For intC = 1 To rngEingabe.Columns.Count
    Set rngSpalte = rngEingabe.Columns(intC)
    For Each rngZelle In rngSpalte
      If rngZelle.Value = "X" Then  '<---Typen unverträglich
        rngZelle.Offset(20, (rngZelle.Column - intC) * -1).Interior.ColorIndex = 22
      End If
    Next rngZelle
  Next intC
  Application.EnableEvents = True
End Sub

Gruß Jens

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Jens,
ich habe jetzt nicht nachgeschaut was Dein Code machen soll. Das war mir zu aufwendig.
Option Explicit


Sub markiere()
'    Dim rngEingabe As Range
Dim rngSpalte As Range
Dim rngZelle As Range
Dim intC As Integer
Application.EnableEvents = False
'    Set rngEingabe = Range("B3:I18")
'    For intC = 1 To rngEingabe.Columns.Count
'        Set rngSpalte = rngEingabe.Columns(intC)
'        For Each rngZelle In rngSpalte
For Each rngZelle In Range("B3:I18")
'            If rngZelle.Address(False, False) = "B6" Then
'                MsgBox "Stop"
'            End If
If rngZelle.Text = "X" Then  '<---Typen unverträglich
'               warum *-1 es gibt keine negativen Spalten
'                rngZelle.Offset(20, (rngZelle.Column - intC) * -1).Interior.ColorIndex = 22
rngZelle.Offset(20, (rngZelle.Column - intC)).Interior.ColorIndex = 22
End If
Next rngZelle
'    Next intC
Application.EnableEvents = True
End Sub

Gruß Annett

Sub markiere() ' Dim rngEingabe As Range Dim rngSpalte As Range Dim rngZelle As Range Dim intC As Integer Application.EnableEvents = False ' Set rngEingabe = Range("B3:I18") ' For intC = 1 To rngEingabe.Columns.Count ' Set rngSpalte = rngEingabe.Columns(intC) ' For Each rngZelle In rngSpalte For Each rngZelle In Range("B3:I18") ' If rngZelle.Address(False, False) = "B6" Then ' MsgBox "Stop" ' End If If rngZelle.Text = "X" Then '<---Typen unverträglich ' warum *-1 es gibt keine negativen Spalten ' rngZelle.Offset(20, (rngZelle.Column - intC) * -1).Interior.ColorIndex = 22 Cells(rngZelle.Row, 1).Interior.ColorIndex = 22 End If Next rngZelle ' Next intC Application.EnableEvents = True End Sub

Beliebteste Forumthreads (12 Monate)

Typen unverträglich und ich sehe es nicht

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread