sheet per variable deklarieren
22.02.2005 16:30:39
Peter
vieleicht kann mir das Forum bitte helfen, obwohl die frage für euch lächerlich scheint.
Ich will ein Sheet mittels Variable deklarieren um am ende des Codes wieder zurückzuwechseln.
Hat jemand Rat, bitte, bitte :) Danke
Sub Kasse()
Range("g42").Select
ActiveCell.FormulaR1C1 = Range("i42")
kassenwert = ActiveSheet.Range("c35")
tagwert = ActiveSheet.Range("i43")
Dim wks As Worksheet <--- funktioniert nicht
Set wks.name = ActiveSheet <--- " "
Select Case ActiveSheet.Range("i44")
Case 2
Sheets("KB1").Select
If Range("j29") = tagwert Then
pluswert = Range("h29")
Range("h29").Select
ActiveCell.FormulaR1C1 = pluswert + kassenwert
Sheets.Select wks <--- funktioniert nicht
Range("a1").Select
MsgBox ("Daten übertragen")
End If
End Select
End Sub
Anzeige