Re: Zellinhalt = Variablenname
26.04.2003 18:49:39
Rob
Für alle die es wissen wollen, es geht mit einem kleinen Unweg doch.Prozedur in bei Start in ein anderes Modul schreiben und am Ende wieder löschen:
Schreiben:
With ActiveWorkbook.VBProject.VBComponents("NewModule").CodeModule
.InsertLines 1, "Sub Variablen"
.InsertLines 2, "Dim Name" + ThisWorkbook.Sheets("Einstellungen").Range("a13").Value + " as String"
.InsertLines 3, "Dim Name" + ThisWorkbook.Sheets("Einstellungen").Range("a14").Value + " as String"
.InsertLines 4, "Dim Name" + ThisWorkbook.Sheets("Einstellungen").Range("a15").Value + " as String"
.InsertLines 5, "End Sub"
End With
löschen:
ThisWorkbook.VBProject.VBComponents("NewModule").CodeModule.DeleteLines 1, 3
Rob