Eingabewert ändert Formatierung der Zeile
27.03.2008 10:05:00
Sebastian
ich möchte nach der Eingabe in der Spalte "I" (Fälle: 1,2,3,4, sonst), dass sich die Formatierung der Zeile "A:I" ändert. Doch es soll vermieden werden, dass man alle Zeilen von "I" mit einer Schleife ausliest, da nur ein Wert geändert wird.
Wie kann ich die Zeile der Spalte "I" ansprechen, wo die Änderung vorgenommen wurde?
Habe bisher nur diese Möglichkeit mit einer Schleife gefunden! Leider komm ich bei der If-Schleife nicht mehr klar.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim iRow As Integer, iRowL As Integer
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = iRowL To 1 Step -1
If Not Cells(iRow, 9).Value = 0 Then
Call uptodate(Target.Value, iRow)
Else
'do nothing
End If
Next iRow
End Sub
Sub uptodate(Wert As Integer, iRow As Integer)
Select Case Wert
Case "1"
ecrow (iRow)
Case "2"
shrow (iRow)
Case "3"
table (iRow)
Case "4"
nexport (iRow)
Case Else
leer (iRow)
End Select
End Sub
Sub leer(iRow As Integer)
Range("$A$iRow:$I$iRow").Select
Selection.Interior.Color = RGB(255, 255, 255)
Selection.Borders.LineStyle = xlNone
End Sub
Vielen Dank für die Hilfe!
Gruss,
Sebastian