Befehl Set - Sheet aus String zuweisen
10.01.2006 17:48:12
Peter
In nachfolgendem Code wurde bisher das Objekt vSheet wie folgt definiert:
Set vSheet = aBook.Sheets(aSheet.Index -1)
Nun möchte ich den Sheetnamen aus einem Datum ableiten, und zwar wie folgt:
dstring = Sheets("Parameter").Range("navdate")
nString = Format(Month(Date), "00") & Format(Day(Date), "00")
Set vSheet = nString
BEI DER ZEILE
Set Vsheet = nString
kommt die Fehlermeldung "Fehler beim Kompilieren: Typen unverträglich"
Kann mir jemand sagen, wo das Problem liegt und wie es zu lösen ist?
Danke, Peter
Option Explicit
Sub Plausi()
Dim aBook As Workbook
Dim aSheet As Worksheet
Dim vSheet As Worksheet
Dim x As Variant
Dim zNr As Long
Dim nString As String
Dim dstring As Date
Set aBook = ThisWorkbook
Set aSheet = aBook.ActiveSheet
If aSheet.Index = 1 Then Exit Sub
'Set vSheet = aBook.Sheets(aSheet.Index - 1)
dstring = Sheets("Parameter").Range("navdate")
nString = Format(Month(Date), "00") & Format(Day(Date), "00")
Set vSheet = nString
....