Makro klappt nicht

Guten Abend,
ich habe am Wochenende schon Hilfe bekommen.
Habe mir jetzt eine Userform mit einer TextBox erstellt.
Private Sub CommandButton1_Click()
Dim C
Dim Article As String
Dim Weiter
' ' Article = InputBox("Namen einsetzen oder Kürzel und den Stern= *", "Eingabe-Box")
Article = TextBox1
If Article = "" Then Exit Sub
With ActiveSheet.Range("$C$3:$F$650000")
Set C = .Find(Article, LookIn:=xlValues)
If Not C Is Nothing Then
C.Select
Else
MsgBox "Not found"
End If
End With
nochmal:
Weiter = MsgBox("Weitersuchen?", vbYesNo, "Alternative Suche")
If Weiter = vbYes Then
Cells.FindNext(After:=ActiveCell).Activate
GoTo nochmal
End If
Exit Sub
fehler:
Weiter = MsgBox("Suchbegriff nicht gefunden!", vbInformation, "Ergebnis:")
End Sub
Leider sucht mein Makro in der gesamten Datenbank, ich möchte aber nur das in einem bestimmten
gesucht wird.
Nur: "$C$3:$F$650000"
habe festgestellt das aber auch bis Spalte "N" gesucht wird.
Was muss ich ändern ?
gruß siegfried

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton1_Click() Dim C As Range Dim Article As String Dim Weiter As VbMsgBoxResult Article = TextBox1 If Article = "" Then Exit Sub With ActiveSheet.Range("$C$3:$N$650000") Set C = .Find(Article, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) If Not C Is Nothing Then C.Select Else MsgBox "Not found" End If End With nochmal: Weiter = MsgBox("Weitersuchen?", vbYesNo, "Alternative Suche") If Weiter = vbYes Then Cells.FindNext(After:=ActiveCell).Activate GoTo nochmal End If Exit Sub fehler: Weiter = MsgBox("Suchbegriff nicht gefunden!", vbInformation, "Ergebnis:") End Sub

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("$C$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" End If nochmal: Weiter = MsgBox("Weitersuchen?", vbYesNo, "Alternative Suche") If Weiter = vbYes Then Set C = ActiveSheet.Range(C.Offset(1, 0), "$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" End If GoTo nochmal End If End Sub

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("$C$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.Offset(1, 0), "$F$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

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro klappt nicht

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread