Multisuche

Sub MultiSuche() Dim Sh As Worksheet Dim GZelle As Range Dim FStelle$ Dim SBegriff As String SBegriff = InputBox("Bitte Suchbegriff eingeben:") For Each Sh In Worksheets Sh.Activate Set GZelle = Sh.Cells.Find(SBegriff) If Not GZelle Is Nothing Then FStelle = GZelle.Address Do GZelle.Activate 'If MsgBox("Weiter", vbYesNo + vbQuestion) = vbNo Then Exit Sub Call Copy Set GZelle = Cells.FindNext(After:=ActiveCell) If GZelle.Address = FStelle Then Exit Do Loop End If Next Sh End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub MultiSuche() Dim Sh As Worksheet, tarWks As Worksheet Dim GZelle As Range Dim FStelle As Range Dim SBegriff As String Set tarWks = Worksheets("Zieltabelle") SBegriff = InputBox("Bitte Suchbegriff eingeben:") If SBegriff = "" Then MsgBox "Kein Suchbegriff" Exit Sub End If For Each Sh In Worksheets 'Sh.Activate If Sh.Name <> tarWks.Name Then Set GZelle = Sh.Cells.Find(SBegriff) If Not GZelle Is Nothing Then FStelle = GZelle.Address Do GZelle.Activate 'If MsgBox("Weiter", vbYesNo + vbQuestion) = vbNo Then Exit Sub Call copy Set GZelle = Sh.Cells.FindNext(After:=ActiveCell) If GZelle.Address = FStelle Then Exit Do Loop End If End If Next Sh End Sub

Habe den code jetz so abgeändert das er die Zieltabelle meidet,
leider hat er sucht er nicht jeden begriff wo dann die fehlermeldung
kommt Meldung objektvariabele oder with-blockvariable nicht festgelegt
und zwar in der zeile
If GZelle.Address = FStelle Then Exit Do
hier den code


Sub MultiSuche()
Dim Sh As Worksheet, tarWks As Worksheet
Set tarWks = Worksheets("Parameter")
Columns("A:G").Select
Selection.Clear
Range("A1").Select
'Dim Sh As Worksheet
Dim GZelle As Range
'Dim FStelle$
Dim SBegriff As String
Dim FStelle As String
SBegriff = InputBox("Bitte Suchbegriff eingeben:")
For Each Sh In Worksheets
If Sh.Name <> tarWks.Name Then
Sh.Activate
Set GZelle = Sh.Cells.Find(SBegriff)
If Not GZelle Is Nothing Then
FStelle = GZelle.Address
Do
GZelle.Activate
'If MsgBox("Weiter", vbYesNo + vbQuestion) = vbNo Then Exit Sub
Call Copy
Set GZelle = Cells.FindNext(After:=ActiveCell)
If GZelle.Address = FStelle Then Exit Do
Loop
End If
End If
Next Sh
Sheets("Parameter").Select
End Sub


Sub Copy()
'z = 1
ActiveCell.Offset(0, -6).Range("A1:G3").Copy 'Range("Parameter!A2")
z = 10
Worksheets("Parameter").Cells(z, 1).Insert
'z = z + 1
End Sub

vieleicht einen rat für micht was er damit gemeint ist
trotzdem schon mal vielendank das ist jetzt ne ecke weiter

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Multisuche

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread