Microsoft Excel

Herbers Excel/VBA-Archiv

Worksheets Definieren VBA

Betrifft: Worksheets Definieren VBA von: Frank
Geschrieben am: 25.08.2004 13:19:52

Hallo,

habe ein Problem. Möchte zu beginn meines Codes Worksheets definieren, damit ich falls ich irgendwann ein Worksheetnamen ändere nicht den ganzen Code ändern muss. Mein Code lautet wie folgt:

Dim j As Integer
Dim NumberRegr As Integer
Dim Data As Worksheet
Dim Returns As Worksheet
Dim Regressions As Worksheet

Set Data = Sheets("Data")
Set Returns = Sheets("Return")
Set Regressions = Sheets("Regressions")
...
...
Sheets(Regressions).Columns("A:G").AutoFit

End Sub

Leider gibt es eine Fehlermeldung bei Sheets(Regressions). "Type mismatch". Was mache ich falsch. Danke für die Hilfe

Frank

  


Betrifft: Regressions.Columns("A:G").AutoFit o.T. von: Roland Hochhäuser
Geschrieben am: 25.08.2004 13:25:26




  


Betrifft: AW: Worksheets Definieren VBA von: AndreasSt
Geschrieben am: 25.08.2004 13:25:33

Hallo,

Regressions repräsentiert ja jetzt das Sheet-Objekt repräsentiert (und nicht nur den Namen):

Regressions.Columns("A:G").AutoFit

Gruß
Andreas


  


Betrifft: AW: Worksheets Definieren VBA von: Jan
Geschrieben am: 25.08.2004 13:31:14

Hi Frank,

Der Aufruf für Dein Tabellenblatt "Regressions" erfogt über Deine Variable
in Deiner SET-Anweisung, also:

Regressions.Columns("A:G").AutoFit

ansonsten

Sheets("Regressions").Columns("A:G").AutoFit

Jan