Bereichsnamen vergeben
05.07.2004 13:39:01
Wolfgang
ich habe eine Excel Tabelle, bei der ich unter einem Zeitstrahl den entsprechenden Zellen darunter einen Bereichsnamen zuweisen will, der sich am Datum darüber orientiert. Ich habe bis jetzt zwei Ansätze verfolgt:
1.
Sub namen()
Workbooks("Zeitplanung.xls").Activate
Worksheets("Zeitplan").Activate
spalte = 3
datum = Cells(4, 3).Value
zeile = 11
Do Until spalte = 246
bezug = "=Zeitplan!R" & zeile & "C" & spalte
bezeichnung = "a-k-" & datum
ActiveWorkbook.Names.Add Name:=bezeichnung, RefersToR1C1:=bezug
spalte = spalte + 1
Loop
End Sub
und
2.
Sub namen()
Workbooks("Zeitplanung.xls").Activate
Worksheets("Zeitplan").Activate
spalte = 3
datum = Cells(4, 3).Value
'1. Zeitangabe
zeile = 11
Do Until spalte = 246
Cells.(zeile, spalte).Select
bezeichnung = "a-k-" & datum
Selection.Name = bezeichnung
spalte = spalte + 1
Loop
End Sub
Leider bekomme ich jedes mal einen runtime Error 1004.
Tja, wer weiß Rat ?!
Danke
wolfgang