vba zum gesuchten buchstaben springen

Question

Hallo Karin, bitte wieder um Hilfe. Ich benutze diesen vba

Sub Test_M()
Dim zelle As Range
Set zelle = Columns(2).Find(what:="m*", lookat:=xlWhole)
If Not zelle Is Nothing Then Application.Goto zelle
End Sub

der erste Name mit dem Buchstaben M (z.B. Mustermann) sollte am anfang in der Spalte B angezeigt werden und nicht in der mitte oder unten. Danke

Answer 1

Hi Jelena,

ich nehme an du meinst das so:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Beim doppelklick in Spalte H,i und J sowie O,P und Q ein x eintragen, es darf immer
'nur 1 x in der Zeile (H,i,J und O,P,Q) vorhanden sein.
'x wieder löschen falls in Zelle bereits vorhanden
    If Not Intersect(Target, Range("h4:j200")) Is Nothing Then '<== Bereich anpassen
        ActiveSheet.Unprotect
        Cancel = True
        If Target = "x" Then
            Target.ClearContents
        Else
            Range(Cells(Target.Row, 8), Cells(Target.Row, 10)).ClearContents
            Target = "x"
        End If
        Target.HorizontalAlignment = xlCenter
        ActiveSheet.Protect
    End If
    If Not Intersect(Target, Range("o4:q200")) Is Nothing Then '<== Bereich anpassen
        ActiveSheet.Unprotect
        Cancel = True
        If Target = "x" Then
            Target.ClearContents
        Else
            Range(Cells(Target.Row, 15), Cells(Target.Row, 17)).ClearContents
            Target = "x"
        End If
        Target.HorizontalAlignment = xlCenter
        ActiveSheet.Protect
    End If
End Sub

Bis später, Karin

Answer 2

Hallo Karin, so solls sein. Vielen Vielen Dank bis zur nächsten Hilfe.