Selectieren Referenzieren

Hallo
Ich habe ein Makro mit der Select Methode geschrieben.
Wie muss ich es umschreiben für Referenzierung, die ja wesendlich kürzere Makros erlaubt.
Bitte um eure Hilfe
Alois

Sub XXXzuFei()
    Dim lgZeile As Long
    Dim i As Integer
    Range("b4").Select
    lgZeile = 4
    Do Until IsEmpty(Cells(lgZeile, 2))

        If (Cells(lgZeile, 3)) = "XXX" Then
        Cells(lgZeile, 1).Select
         With Selection.Interior
        .ColorIndex = 3
        .Pattern = xlSolid
    End With
    Cells(lgZeile, 2).Select
         With Selection.Interior
        .ColorIndex = 3
        .Pattern = xlSolid
    End With
            Cells(lgZeile, 3).Select
            For i = 3 To 68
                Cells(lgZeile, i) = "F"
                Cells(lgZeile, i).Select
                 With Selection.Interior
        .ColorIndex = 3
        .Pattern = xlSolid
    End With
    Selection.Font.ColorIndex = 3
            Next i
        Else
            lgZeile = lgZeile + 1
            Cells(lgZeile, 2).Select
        End If


    Loop
    End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub XXXzuFei() Dim lgZeile As Long Dim i As Integer lgZeile = 4 Do Until IsEmpty(Cells(lgZeile, 2)) If (Cells(lgZeile, 3)) = "XXX" Then With Cells(lgZeile, 1).Interior .ColorIndex = 3 .Pattern = xlSolid End With With Cells(lgZeile, 2).Interior .ColorIndex = 3 .Pattern = xlSolid End With For i = 3 To 68 With Cells(lgZeile, i) .Value = "F" .Font.ColorIndex = 3 With .Interior .ColorIndex = 3 .Pattern = xlSolid End With End With Next i Else lgZeile = lgZeile + 1 End If Loop End Sub

Wenn ich das richtig verstanden habe müsste das Makro so aussehen
Es rechnet zwar aber nichts passiert.

Sub XXXzuFeirefohne8()
'geht nicht
  Dim lgZeile As Long
  Dim i As Integer
  lgZeile = 4
  For lgZeile = 4 To Range("B4").End(xlDown).Row
    If (Cells(lgZeile, 3)) = "XXX" Then
        With Cells(lgZeile, 1).Interior
          .ColorIndex = 3
          .Pattern = xlSolid
        End With
        With Cells(lgZeile, 2).Interior
          .ColorIndex = 3
          .Pattern = xlSolid
        End With
        For i = 3 To 68
          With Cells(lgZeile, i)
              .Value = "F"
              .Font.ColorIndex = 3
            With .Interior
              .ColorIndex = 3
              .Pattern = xlSolid
            End With
          End With
        Next i
      Else
          lgZeile = lgZeile + 1
      End If
    Next lgZeile
End Sub

Das Makro Funktioniert allerdings.

Sub XXXzuFeiref8()
  Dim lgZeile As Long
  Dim i As Integer
  lgZeile = 4
  Do Until IsEmpty(Cells(lgZeile, 2))
    If (Cells(lgZeile, 3)) = "XXX" Then
        With Cells(lgZeile, 1).Interior
          .ColorIndex = 3
          .Pattern = xlSolid
        End With
        With Cells(lgZeile, 2).Interior
          .ColorIndex = 3
          .Pattern = xlSolid
        End With
        For i = 3 To 68
          With Cells(lgZeile, i)
              .Value = "F"
              .Font.ColorIndex = 3
            With .Interior
              .ColorIndex = 3
              .Pattern = xlSolid
            End With
          End With
        Next i
      Else
          lgZeile = lgZeile + 1
      End If
    Loop
End Sub

Beliebteste Forumthreads (12 Monate)

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread