Filter
Hubert
Vielen Dank für Deine Bemühung.
Habe heute eine Lösung bekommen.
Siehe neues Makro.
Mein Fehler liegt wohl in der Formatierung.
MfG Hubert
Sub Zuanbaulist()
Dim Rng As Range
With Worksheets("Tabelle1")
.Unprotect
Set Rng = .Columns(1).Find(what:=Worksheets("Tabelle2").Range("A8"), lookat:=xlWhole, _
_
LookIn:=xlFormulas)
If Rng Is Nothing Then
Beep
MsgBox "Eine Bearbeitung wurde nicht gefunden!", 64, "Infomeldung zur Bearbeitung"
Else
.Range("A1:P10000").AutoFilter Field:=1, Criteria1:=CStr(Worksheets("Tabelle2"). _
Range("A8"))
.Range("I2:P10000").Copy 'nicht zu vergessen das hier alle eigenschaften einer _
_
zelle mitkopiert werden
End If
End With
.Protect
End Sub
Anzeige