Microsoft Excel

Herbers Excel/VBA-Archiv

Kann man das so schreiben?

Betrifft: Kann man das so schreiben? von: Markus
Geschrieben am: 19.08.2014 15:58:33

Hi Excel Foum,

wollte mal Fragen ob man den Code wie unten stehend schreiben kann, bzw. wie er geschrieben werden sollte.
Das wsZ soll je nach aktiver Tabelle (Code wird mittels Button aus der Tabelle gestartet) entsprechend definiert werden.

Dim wsQ As Worksheet, wsZ As Worksheet

Set wsQ = Worksheets("02_Ausgabe")
If Worksheets("03_Monitoring_Referenz") = ActiveSheet Then
Set wsZ = Worksheets("03_Monitoring_Referenz")
Else: Set wsZ = Worksheets("04_Monitoring_Neuteil")
End If
usw.

Gruß
Markus

  

Betrifft: AW: Kann man das so schreiben? von: Christian
Geschrieben am: 19.08.2014 16:48:30

Hallo Markus,

evtl. so:
Set wsZ = ActiveWorkbook.ActiveSheet

MfG Christian


  

Betrifft: AW: Kann man das so schreiben? von: Markus
Geschrieben am: 22.08.2014 08:04:42

Geht. Danke.


 

Beiträge aus den Excel-Beispielen zum Thema "Kann man das so schreiben?"