Name automatisch definieren
12.08.2004 11:21:12
Simone
ich hoffe ihr könnt mir helfen. Ich habe folgendes Problem. Ich möchte über ein Macro einen Bereich Definieren. Name des Bereichs ist "ItemStructure". Ich möchte das übers Makro automatisieren, weil die Anzahl der Zeilen im Bereich (Spalte A & B) variabel ist. Nun kann ich beim festlegen der Structure für die Zeilenanzahl nur einen festen Wert angeben. Wißt ihr einen Rat, wie ich meine Variable Anzlines in der Structure einbringen kann? Unten seht ihr das Macro, soweit ich es aufzeichnen konnte:
Gruß
Simone
Sub Macro1()
' Macro1 Macro
' Macro recorded 12.08.2004 by wfsb386
Dim Anzlines As Integer
Anzlines = ActiveSheet.UsedRange.Rows.Count
ActiveWorkbook.Names("ItemStructure").Delete
Range("A1:B" & Anzlines).Select
ActiveWorkbook.Names.Add Name:="ItemStructure", RefersToR1C1:= _
"=Structure!R1C1:R158C2"
End Sub