Mehrere Tabs mit CommandButtons einmal aktivieren

Private Sub CommandButton1_Click() Application.ScreenUpdating = False Sheets("Tab1").Select Application.Run "Code_der_auf_dem_dort-liegenden_Befehlsknopf_liegt" Application.ScreenUpdating = False Sheets("Tab2").Select Application.Run "Code_der_auf_dem_dort-liegenden_Befehlsknopf_liegt" Sheets("Gesamtblatt").Select End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub UpdateVola_current_Click() Dim objSh As Worksheet Dim rng As Range, r As Range Dim dblMax As Double, dblMin As Double Dim varVola() As Variant Dim intc As Integer varVola = Array(10, 20, 30, 45, 90, 100) Set objSh = Sheets("Tab1") 'Tabellenname anpassen! With objSh Set rng = .Range("A2:A" & Application.Max(.Cells(Rows.Count, 1).End(xlUp).Row, 2)) dblMax = Application.Max(rng) dblMin = Application.Min(rng) Do While dblMax > dblMin Set r = rng.Find(what:=CDate(dblMax), LookIn:=xlFormulas, lookat:=xlWhole) If Not r Is Nothing Then For intc = 0 To 5 ThisWorkbook.Names("VolaPeriod").Value = varVola(intc) .Calculate .Cells(524 + intc, 16) = varVola(intc) .Cells(524 + intc, 17) = r .Cells(524 + intc, 18) = r.Offset(0, 8) Next Exit Do End If dblMax = dblMax - 1 Loop End With ThisWorkbook.Names("VolaPeriod").Value = 90 Set r = Nothing Set rng = Nothing Set objSh = Nothing End Sub

Hallo Ralph
OK, dann mach mal ein Standardmodul (nicht unter Worksheet sondern VBA-Editor, Einfügen, Modul). Dort erstellst du eine öffentliche Prozedur wie folgt:
' Standardmodul
Sub Update_a_Vola_current(objSh As Worksheet)
Dim rng As Range, r As Range
Dim dblMax As Double, dblMin As Double
Dim varVola() As Variant
Dim intc As Integer
varVola = Array(10, 20, 30, 45, 90, 100)
With objSh
Set rng = .Range("A2:A" & Application.Max(.Cells(Rows.Count, 1).End(xlUp).Row, 2))
dblMax = Application.Max(rng)
dblMin = Application.Min(rng)
Do While dblMax > dblMin
Set r = rng.Find(what:=CDate(dblMax), LookIn:=xlFormulas, lookat:=xlWhole)
If Not r Is Nothing Then
For intc = 0 To 5
ThisWorkbook.Names("VolaPeriod").Value = varVola(intc)
.Calculate
.Cells(524 + intc, 16) = varVola(intc)
.Cells(524 + intc, 17) = r
.Cells(524 + intc, 18) = r.Offset(0, 8)
Next
Exit Do
End If
dblMax = dblMax - 1
Loop
End With
ThisWorkbook.Names("VolaPeriod").Value = 90
Set r = Nothing
Set rng = Nothing
Set objSh = Nothing
End Sub

Der Tabellennamen wird nun nicht mehr innerhalb der Prozedur definiert, sondern an die Prozedur übergeben, das geht so...
' Klassenmodul Worksheet


Private Sub CommandButton1_Click()
Dim objSh As Worksheet
Set objSh = Worksheets("Tabelle1")
Call Update_a_Vola_current(objSh)
End Sub

Mehrere Blätter kannst du z.B. mit einer for..next Schleife ausführen...
' Standardmodul
Sub Do_all7()
Dim objSh As Worksheet
Dim i as Byte
For i = 1 To 7
Set objSh = Worksheets("Tabelle" & i)
Call Update_a_Vola_current(objSh)
Next i
End Sub

Und schliesslich noch wegen der Berechnungsdauer. Probier mal..
Sub DeineBerechnung()
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
' Hier dein bestehender Code
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With
End Sub

cu
Chris

Beliebteste Forumthreads (12 Monate)

Mehrere Tabs mit CommandButtons einmal aktivieren

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

162 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mehrere Tabs mit CommandButtons einmal aktivieren

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

162 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread