auf selbtgeschriebene Methode zugreifen und Variab
17.03.2004 12:32:46
Timo
Habe volgende Methode geschrieben:
Code:
Private Sub CommandButton2_Click()
NewSheetName = NewSheetNam()
End Sub
Sub NewSheetNam(Int1)
Dim Int1 As String
MessSit = Right(SheetName, 11)
'MsgBox SheetName
If Left(MessSit, 3) = "-40°C" Then
If Right(MessSit, 1) = "O" Then
If Mid(MessSit, 6, 5) = " " Then
Int1 = "-40°C,0°,open"
End If
If Mid(MessSit, 6, 5) = "+11.3" Then
Int1 = "-40°C,+11.3°,open"
End If
If Mid(MessSit, 6, 5) = "-11.3" Then
Int1 = "-40°C,-11.3°,open"
End If
End If
If Right(MessSit, 1) = "C" Then
If Mid(MessSit, 6, 5) = " " Then
Int1 = "-40°C,0°,close"
End If
If Mid(MessSit, 6, 5) = "+11.3" Then
Int1 = "-40°C,+11.3°,open"
End If
If Mid(MessSit, 6, 5) = "-11.3" Then
Int1 = "-40°C,-11.3°,open"
End If
End If
End If
End Sub
Sie steht in dem Code einer UserFrom die mehrere Objekte enthällt. In einem Objekt in der UserForm möchte ich auf die Methode zugreifen. Die Variablen "MessSit" und "SheetName" sind für alle Objekte deklariert.
An bestimmten Stellen in einem Objekt, möchte ich den Wert, den die Methode wiedergibt einer Variablen "NewSheetName" abspeichern. Wie krieg ich das hin???? Denke nicht das mein Code richtig ist, sonst würde es ja klappen, oder??? *lach*
Hoffe auf Hilfe!!!!
Gruß Timo