Makro Zeile erweitern

Guten Tag,
ich habe folgendes Makro über dieses Forum erhalten, für das Suchen in den Spalten:
Private Sub CommandButton1_Click()
Dim C As Range
Dim Article As String
Dim Weiter As VbMsgBoxResult
Article = TextBox1
If Article = "" Then Exit Sub
Set C = ActiveSheet.Range("$E$3:$F$650000").Find(What:=Article, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)

If Not C Is Nothing Then
C.Select
Else
MsgBox "Not found"
Exit Sub
End If
nochmal:
Weiter = MsgBox("Weitersuchen?", vbYesNo, "Alternative Suche")
If Weiter = vbYes Then

'Set C = ActiveSheet.Range("$C$3:$F$650000").Find(What:=Article, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)

Set C = ActiveSheet.Range(C.Offset(1, 0), "$e$650000").Find(What:=Article, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If Not C Is Nothing Then
C.Select
GoTo nochmal
Else
MsgBox "Not found"
Exit Sub
End If
End If
End Sub

ich möchte gern diese Zeile ebenfalls erweitert haben E+F
Set C = ActiveSheet.Range(C.Offset(1, 0), "$e$650000").Find(What:=Article, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)

bin nicht so gut,
mfg wolfgang

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Moin!

Ich hab mal die Bereiche angepasst, Zeilengrenzen rausgenommen.
im Zweiten suchlauf hast du von C mit Offset gesucht. Wenn C aber in spalte "F" gefunden wird, wird der 2te Suchlauf nicht mehr in "E" gemacht, da offset nur nach unten verschiebt. Daher hab ich das angepasst und von C.row in spalte "E" den Bereich gesetzt.

für die Bessere lesbarkeit hab ich die rng1 vorher benannt.
Schau es dir mal an

Private Sub CommandButton1_Click()
    Dim C As Range
    Dim Article As String
    Dim Weiter As VbMsgBoxResult
    
    Article = TextBox1
    If Article = "" Then Exit Sub
    
    Set rng1 = ActiveSheet.Range("E:F")
    Set C = .Find(What:=Article, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
    
    If Not C Is Nothing Then
        C.Select
    Else
        MsgBox "Not found"
        Exit Sub
    End If
nochmal:
    Weiter = MsgBox("Weitersuchen?", vbYesNo, "Alternative Suche")
    If Weiter = vbYes Then
        Set rng1 = ActiveSheet.Range(Cells(C.Row + 1, "E"), "F" & Rows.Count) 'wenn in F die fundstelle ist, wird ansonsten nicht mehr in E gesucht!
        Set C = rng1.Find(What:=Article, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
        
        If Not C Is Nothing Then
            C.Select
            GoTo nochmal
        Else
            MsgBox "Not found"
            Exit Sub
        End If
    End If
End Sub

Gruß, MCO

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro Zeile erweitern

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread