für Matthias L ( andere User sind auch eingeladen

Hallo Matthias,
du hattest mir freundlicherweise diesen Code zur Verfügung gestellt :

Sub Kopiere()
Dim Ber1 As String
Dim Ber2 As String
On Error GoTo Fehler
Ber1 = Tabelle1.Columns("C:C").Find(What:="Bezeichnung").Address
Ber2 = "C" & Tabelle1.Cells(Rows.Count, 3).End(xlUp).Row - 1
Tabelle2.Columns("C:C").ClearContents 'Ziel säubern
Tabelle1.Range(Ber1 & ":" & Ber2).Copy Destination:=Tabelle2.Range("A3")
MsgBox "fertig"
Exit Sub
Fehler:
MsgBox "Es ist ein Fehler aufgetreten" & vbLf & "evtl fehlt die Überschrift (Bezeichnung)"
End Sub