Office: Hilfe zu Makro

Hallo,

ich habe folgendes Makro zu eínem Fortschrittsbalken im Internet gefunden und finde es sehr praktisch. Allerdings möchte ich noch gerne einfügen, dass es erst ab Zeile vier mit der Berechnung beginnt, denn momentan beginnt es zwar schon ab Spalte 4, aber eben das mit der Zeile bekomm ihc nicht hin.

Ich bitte also mal wieder um eure Hilfe.
Danke

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim inSpalte As Integer
    If Target.Count > 1 Then Exit Sub
    If Target.Column <> 4 Or Target.Row > 40 Then Exit Sub
    With Worksheets("Tabelle2")
        .Range(.Cells(Target.Row, 1), .Cells(Target.Row, 100)).Interior.ColorIndex = xlNone
        For inSpalte = 1 To Target * 100
            .Cells(Target.Row, inSpalte).Interior.ColorIndex = 3
        Next inSpalte
    End With
End Sub

 

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim inSpalte As Integer
    If Target.Count = 1 And Target.Column = 4 Or Target.Row <40>= 4 Then
        With Worksheets("Tabelle2")
            .Range(.Cells(Target.Row, 1), .Cells(Target.Row, 100)).Interior.ColorIndex = xlNone
            For inSpalte = 1 To Target * 100
                .Cells(Target.Row, inSpalte).Interior.ColorIndex = 3
            Next inSpalte
        End With
    End If
End Sub

 

es war noch nicht ganz korrekt.

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim inSpalte As Integer
    If Target.Count = 1 Then
        If Target.Column = 4 Or Target.Row <40>= 4 And IsNumeric(Target) Then
            With Worksheets("Tabelle2")
                .Range(.Cells(Target.Row, 1), .Cells(Target.Row, 100)).Interior.ColorIndex = xlNone
                For inSpalte = 1 To Target * 100
                    .Cells(Target.Row, inSpalte).Interior.ColorIndex = 3
                Next inSpalte
            End With
        End If
    End If
End Sub

 

Hallo,

zunächst mal danke für die schnelle Antwort, aber wenn ich jetzt versuche die Zelle D3 zu beschriften, dann wird das Makro immer abgebrochen und ein Hinweis auf diese Zeile
"For inSpalte = 1 To Target * 100" gebracht. Warum?

 

ändere diese Zeile
If Target.Column = 4 And Target.Row <40>= 4 And IsNumeric(Target) Then

 

Ok, jetzt geht's.
Danke