Wie kann ich ActiveSheet durch eine Variable erset

Public Function createTestSheet(Optional myTestSheet As String) As Worksheet If sheetExists("myTestSheet") Then Application.DisplayAlerts = False Sheets("myTestSheet").Delete Application.DisplayAlerts = True End If If Not myTestSheet = Empty Then Sheets(myTestSheet).Activate End If ActiveSheet.Copy After:=ActiveSheet ActiveSheet.Name = "myTestSheet" Set createTestSheet = ActiveSheet End Function

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Public myActiveSheet As Worksheet Sub Aufruf() Call CreateTestSheet(Tabelle1, "BlaBla") MsgBox myActiveSheet.Name End Sub Public Sub CreateTestSheet(wksSource As Worksheet, _ Optional strWksTest As String = "myTestSheet") Dim wks As Worksheet 'Bereits vorhanden? On Error Resume Next Set wks = Sheets(strWksTest) On Error GoTo 0 'löschen falls vorhanden If Not wks Is Nothing Then Application.DisplayAlerts = False wks.Delete Application.DisplayAlerts = True End If 'Kopieren und umbenennen wksSource.Copy after:=wksSource Set myActiveSheet = ActiveSheet myActiveSheet.Name = strWksTest End Sub

Ok ich versuch's zu erklären:
Ich habe eine Verarbeitung geschrieben, welche bisher ActiveSheet. --- verwendet hat. Beim Testen ist es mir aber ein paar mal passiert, dass ich unbeabsichtigt das ActiveSheet beim Betrachten der Zwischenergebnisse verändert habe, damit fallen die Macros natürlich alle auf den Sack. Deshalb möchte ich überall wo jetzt ActiveSheet.--- verwendet wird, dieses durch eine Variable z.B. myActiveSheet.--- ersetzen, welche ich Anfang aufbereite.
Vorher: UsedRangeRows = ActiveSheet.UsedRange.Rows.Count
Nachher: UsedRangeRows = myActiveSheet.UsedRange.Rows.Count
Ganz am Anfang meiner Verarbeitung steht der Aufruf des Makros createTestSheet() welches sich in meinem .xlam befindet. Da meine Verarbeitung das ActiveSheet irreversibel verändert, wird automatisch für das beim Aufruf der Verarbeitung aktive Sheet (es kann aus verschiedenen Arbeitsblättern aufgerufen werden) eine Kopie erstellt, diese Kopie zum AktiveSheet gemacht und dann die Verarbeitung auf dieser Kopie durchgeführt. Damit ich frei bin bei der Vergabe eines Names für die Kopie, möchte ich das ActiveSheet aus der Funktion, welche die Arbeitskopie erstellt an die Verarbeitung zurückgeben.
Also:
- Wie muss die Variable in der Verarbeitung definiert sein (Worksheet, Object, Variant, etc)
- Wie muss diese Variable aus der Funktion createTestSheet zurückgegeben werden
Ich möchte wenn es geht im bestehenden Code einfach ActiveSheet mit Search & Replace durch myActiveSheet ersetzen .

Public myActiveSheet As Worksheet ' das ActiveSheet wird hier sichergestellt Sub Main() Set myActiveSheet = createTestSheet(wksTest:=ActiveSheet) ' erstellt eine Arbeitskopie If myActiveSheet Is Nothing Then Exit Sub UsedRangeRows = myActiveSheet.UsedRange.Rows.Count ' verwendet die Arbeitskopie End Sub Public Function createTestSheet(wksTest As Worksheet, _ Optional myTestSheet As String = "myTestSheet") As Worksheet If LCase(wksTest.Name) = LCase(myTestSheet) Then MsgBox "Aktives Blatt hat den Namen """ & myTestSheet & """." & vbLf _ & "Testblatt kann nicht erstellt werden!" Exit Function End If If sheetExists(myTestSheet) Then Application.DisplayAlerts = False ActiveWorkbook.Sheets(myTestSheet).Delete Application.DisplayAlerts = True End If wksTest.Copy After:=wksTest Set createTestSheet = ActiveSheet createTestSheet.Name = myTestSheet End Function

Beliebteste Forumthreads (12 Monate)

Wie kann ich ActiveSheet durch eine Variable erset

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wie kann ich ActiveSheet durch eine Variable erset

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread