AW: Ausgeblendete Spalten beim Überprüfen überspringen
13.11.2016 20:22:58
Bastian
Mich würde mal interessieren weshalb du das in Auswertung haben willst ?
Wieso nicht gleich in der Jahres tabelle ?
Sonst könnte man es so versuchen
es wird immer bis Interior.ColorIndex = -4142 order 0 gesucht dann wird der loop unterbrochen
Gruß Basti
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Cancel = True
On Error GoTo ende
If Target.Value = "JU" Or Target.Value = "F" Or Target.Value = "U" Then
Datum = Target.Value
Do
If Target.Offset(r, c).Value = Target.Value Then Datum = Datum & "," & Target.Offset(-1 + r, c). _
Value
If Target.Offset(r, c).Interior.ColorIndex = 2 Or Target.Offset(r, c).Interior.ColorIndex = - _
4142 Then Exit Do
c = c + 1
If 33 = Target.Offset(r, c).Column Then r = r + 3: c = -Target.Column + 2
Loop
Datum = Split(Datum, ",")
Select Case Datum(0)
Case "U"
Col = 1
Case "F"
Col = 4
Case "JU"
Col = 3
End Select
With ThisWorkbook.Worksheets("Urlaubsschein")
.Cells(6, Col) = Datum(1)
.Cells(8, Col) = Datum(UBound(Datum))
.Cells(10, Col) = UBound(Datum)
End With
End If
ende:
End Sub