Codevorschlag
04.08.2012 16:48:38
Erich
Hi Vorname,
die Angaben in deiner Antwort an Hajo widersprechen in einigen Punkten dem, was du eingangs geschrieben hast,
insbesondere in der Frage, was von wo nach wo kopiert werden soll.
Auf meine Rückfrage hast du nicht geantwortet. Warum?
Hier gleich noch eine Frage:
Was soll passieren, wenn ein Wert aus Tabelle1:B:B in mehreren Blättern in C1 gefunden wird?
Welches C2 gilt dann, welches soll in Tabelle1!A übernommen werden?
Hier mein Code zum Ausprobieren:
Option Explicit
Sub chandler()
Dim wkH As Worksheet, wks As Worksheet, lngW As Long, arW, varC, nn As Long
Set wkH = Sheets("Tabelle1")
With wkH
lngW = .Cells(.Rows.Count, 2).End(xlUp).Row
arW = .Cells(1, 2).Resize(lngW).Value ' Werte in wkH.A:A
End With
For Each wks In Worksheets
With wks
If .Name wkH.Name And .Visible = xlSheetVisible Then
varC = .Cells(1, 3) ' Wert in wks.C1
For nn = 2 To lngW ' prüfe Wert, evtl. übertrage
If varC = arW(nn, 1) Then wkH.Cells(nn, 1) = .Cells(2, 3)
Next nn
End If
End With
Next wks
End Sub
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich