AW: Autofilter Ansicht !
09.09.2010 10:04:50
Ernst
Hallo Mike !
Danke vorerst bräuchte noch Hilfestellung..hier mein Code:
Option Compare Text
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim LoI As Long
For LoI = 3 To 1000
If InStr(Cells(LoI, 15), "Sonderzug") > 0 Then
Cells(LoI, 15).Characters(Start:=InStr(Cells(LoI, _
15), "Sonderzug"), Length:=10).Font.Color = 255
End If
Next LoI
End Sub
Private Sub CommandButton2_Click()
If ActiveSheet.FilterMode = True Then
ActiveSheet.ShowAllData
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
If Not Intersect(Target, Range("a3:a1000")) Is Nothing Then
With Target
.NumberFormat = "dd.mm.yyyy"
.Value = Date
End With
Cancel = True
End If
If Not Intersect(Target, Range("b3:b1000")) Is Nothing Then
UserForm1.Show
Cancel = True
End If
If Not Intersect(Target, Range("c3:c1000")) Is Nothing Then
UserForm2.Show
Cancel = True
End If
If Not Intersect(Target, Range("n3:n1000")) Is Nothing Then
If Target = "X" Then
If vbOK Then
Target = "X"
Cancel = True
End If
Else
Cancel = True
Target = "X"
Cancel = True
End If
End If
Application.EnableEvents = True
If Not Intersect(Target, Range("m3:m1000")) Is Nothing Then
If Target = "OK." Then
If vbOK Then
Target = "OK."
Cancel = True
End If
Else
Cancel = True
Target = "OK."
Cancel = True
End If
End If
Application.EnableEvents = True
End Sub
Private Sub CommandButton1_Click()
zurück
End Sub
Private Sub CommandButton3_Click()
Application.Dialogs(xlDialogPrint).Show
End Sub
Wo müsste ich den von dir aufgezeichneten Code einfügen das bei Autofilteransichten keine Eingabe möglich ist.
lg.Ernst