|
Sehr geehrte Damen und Herren,
ich habe ein Workbook mit 12 Tabellenblätter gleicher Struktur. Ich möchte die gesamte Zeile eines gesuchtes Wortes aus Spalte B aller Tabellenblätter
in das Tabellenblatt "Ziel" kopieren.
Anbei mein bereits erstellter Code:
Es kommt immer die Fehleranmeldung "Object nicht definiert" bzw. With Blockvariable nicht definiert.
Sub FindAndCopy2c()
Dim suche As String
Dim z As Integer
Dim x As Object
Dim Blatt As Object
Dim ZielName As Object
Dim rngBereich As Object
Dim column As Object
suche = InputBox("wonach wollen Sie suchen?", , "Bauer")
z = 0
If suche = "" Then Exit Sub
For Each Blatt In ActiveWorkbook.Worksheets
For Each x In Blatt.UsedRange
If x = suche Then
z = z + 1
x.EntireRow.Interior.ColorIndex = 35
End If
Next x
Next Blatt
MsgBox suche & " wurde " & z & " mal gefunden."
With wks.Range("B7:B" & wks.Cells(Rows.Count, 2).End(xlUp).Row)
wks.Rows.c.Rows.Copy Worksheets("Ziel").Cells(i, 1)
End With
End Sub
Für Ihre Bemühungen bedanke ich mich im Voraus.
Mit freundlichen Grüßen
Martina Soppke
|