Bereichsnamen mit VBA erstellen und ändern
10.12.2016 19:02:01
Gerhard
mit diesem Makro schreibe ich jeweils nach einem Kopiervorgang das aktuelle Datum in das Blatt "Protokoll".
Der Kopiervorgang soll jedes Mal protokolliert werden.
Der letzten Zelle soll ein Name zugeordnet werden, bzw. die Zuordnung des Namen soll immer an die letzte gefüllte Zelle
angepasst/geändert werden.
Sub datum_eintragen()
Dim x
x = Worksheets("Protokoll").Cells(Rows.Count, 2).End(xlUp).Row + 1
Cells(x, 2).Value = Now
Cells(x, 3).Value = "Test"
End Sub
Die jeweils letzte Zellen sollen als Bereichsnamen zur weiteren Verwendung festgelegt werden:
(X, 2) als "x_datum" und (x, 3) als "x_text".
Sub Makro_recorder()
With ActiveWorkbook.Names("x_datum")
.Name = "x_datum"
.RefersToR1C1 = "=Protokoll!R8C2"
.Comment = ""
End With
End Sub
Die Anpassung des aufgezeichneten Makros gelingt mir nicht.
Für den berichtigten Code bedanke ich mich im Voraus.
Gruß
Gerhard