Aktives Blatt als Variable speichern um es später wieder aufzurufen.
Stefan Krauß
ich möchte mit VBA das derzeit aktive Worksheet (kann immer ein anderes
sein)
in eine Variable zu schreiben um es später wieder zu aktivieren.
Bin da am basteln, bekomms aber nicht hin.
Dim x As Integer
For x = 1 To Worksheet.Count
If Worksheet.Name(x) = aktivesheet Then
Set aktuell = Worksheet.Name(x)
End If
Next
wär toll wenn ich nicht ganz daneben liege ;-)
Gruss Stefan
Melanie Breden
"Stefan Krauß" <stefan...@gmx.li> schrieb im Newsbeitrag
news:aa42k8$6g21j$1...@ID-18252.news.dfncis.de...
> Hallo NG,
>
> ich möchte mit VBA das derzeit aktive Worksheet (kann immer ein anderes
> sein)
> in eine Variable zu schreiben um es später wieder zu aktivieren.
>
> Bin da am basteln, bekomms aber nicht hin.
>
> Dim x As Integer
> For x = 1 To Worksheet.Count
> If Worksheet.Name(x) = aktivesheet Then
> Set aktuell = Worksheet.Name(x)
> End If
> Next
>
wie wärs hiermit?
Sub Blatt_Merken()
Dim sh As Worksheet
Set sh = ActiveSheet
'hier dein restlicher COde
sh.Select
End Sub
Hilft dir das weiter?
mit Gruß
Melanie
XL2000
Monika Weber
> ich möchte mit VBA das derzeit aktive Worksheet (kann immer ein anderes
> sein)
> in eine Variable zu schreiben um es später wieder zu aktivieren.
Die Schleife kannst du weglassen.
Hier ein Lösungsvorschlag:
Sub test()
Dim x As String
x = ActiveSheet.Name
' die beiden Zeilen sind nur zum Testen
Worksheets(2).Select
[A1].Value = "Hallo Velo"
Worksheets(x).Select
End Sub
--
Ich hoffe, dass dir das weiterhilft.
Es liebs Grüessli aus der Schweiz
Monika
------- EXCEL -------
http://www.jumper.ch
Stefan Krauß
Gruss Stefan
"Melanie Breden" <Melanie...@arcor.de> schrieb im Newsbeitrag
news:OnepSZu6BHA.2152@tkmsftngp02...