AW: Private Sub - Befehl
15.09.2010 12:12:10
Karsten
Hallo Otto,
danke. Mit "a" und "b" war nur ein Beispiel, was jetzt nicht weiter funktioniert, wie ich merke.
Ich hab die mal den kompletten Code kopiert. Kannst du es nochmal dementsprechend umschreiben?
Besten Dank.
Gruß
Karsten
Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Offset(2, -2) "" Then (sollte auch nur in den entsprechenden Zellen gehen "C3, _
C5,C7,c9,c11,c13,c15,c17,c19,c21,c23,c25")
ActiveCell.Offset(2, -2) =
Dim Bereich As Range
Dim rZellen As Range
Dim i As Integer
'Dein erster Zellbereich
Set rZellen = Range("C3,C5,C7,c9,c11,c13,c15,c17,c19,c21,c23,c25")
For i = 3 To 18 Step 3 'für 6 weitere Bereiche (18/3 = 6)
Set rZellen = Union(rZellen, rZellen.Offset(0, i))
Next i
Set Bereich = Intersect(rZellen, Target)
If Not Bereich Is Nothing Then
For Each Bereich In Bereich
If Bereich = "" Then
Range(Bereich, Bereich.Offset(0, -2)).Borders(xlEdgeTop).LineStyle = xlNone
Range(Bereich, Bereich.Offset(1, -2)).Borders(xlEdgeBottom).LineStyle = xlNone
Else
Range(Bereich, Bereich.Offset(0, -2)).Borders(xlEdgeTop).LineStyle = xlContinuous
Range(Bereich, Bereich.Offset(1, -2)).Borders(xlEdgeBottom).LineStyle = xlContinuous
End If
Next Bereich
End If
Else
'kommt noch'
End If
End Sub