Makro erweitern
21.07.2018 12:35:19
Dietmar
ich habe folgendes Makro aus diesem Forum mal erhalten :
Sub Kopiere_Code()
Dim Ber1 As String
Dim Ber2 As String
On Error GoTo Fehler
Ber1 = Tabelle2.Columns("E:E").Find(What:="Code-Nr.").Address
Ber2 = "E" & Tabelle2.Cells(Rows.Count, 5).End(xlUp).Row - 0
Tabelle2.Range(Ber1 & ":" & Ber2).Copy Destination:=Sheet1.Range("B1")
MsgBox "fertig"
Exit Sub
Fehler:
MsgBox "Es ist ein Fehler aufgetreten" & vbLf & "evtl fehlt die Überschrift (Bezeichnung)"
End Sub
Funktinoiert auch tadellos.
Ich habe eine Tabelle etwas umbauen müssen, so dass der o.g. Bereich mit
Formeln bestückt ist.
Beim Kopieren kommen dann natürlich die Formeln mit fehlendem Bezug.
Ich müsste also "Inhalte einfügen, Werte" in dem o.g. Makro eingebaut haben.
Bitte helft mir hier
vielen Dank
Gruß Dietmar