Makro Erweiterung
20.05.2006 06:38:46
michael
Habe das Makro mit dem Rec. aufgezeichnet und die Dim Anweisung
dilettantisch eingefügt aber es Funktioniert.
(die kleinen Freuden an regnerischen tagen)
meine Frage :
wie bitte kann ich den Ring .Variabel gestalten ? InputBox ?
Sub Makro1()
Dim micha1
micha1 = ActiveCell ..(ist eine BuchstabenZahlenKombination)
ActiveCell.Range("A1:A6").Select
ActiveWorkbook.Names.Add Name:=micha1, RefersToR1C1:="=Ring!R7C4:R12C4"
ActiveCell.Offset(6, 0).Range("A1").Select
micha1 = ActiveCell
ActiveWorkbook.Names.Add Name:=micha1, RefersToR1C1:="=Ring!R13C4"
ActiveCell.Offset(3, 0).Range("A1:A6").Select
micha1 = ActiveCell
ActiveWorkbook.Names.Add Name:=micha1, RefersToR1C1:="=Ring!R16C4:R21C4"
ActiveCell.Offset(6, 0).Range("A1").Select
micha1 = ActiveCell
ActiveWorkbook.Names.Add Name:=micha1, RefersToR1C1:="=Ring!R22C4"
ActiveCell.Offset(0, 2).Range("A1").Select
End Sub
Danke michael