Mit VBA ein anderes Makro ändern

Hallo zusammen,
besteht die Möglichkeit, dass man mittels Makros ein anderes Makro bzw. den Code für Worksheet_Activate ändern kann?
Problem 1


Sub Worksheet_Activate()
'ScrollArea = "C3: Bf32"
ScrollArea = ""
End Sub

Es soll danach wie folgt aussehen (Änderung in Zeile 1 und 2 des Makro):


Sub Worksheet_Activate()
ScrollArea = "C3: Bf32"
'ScrollArea = ""
End Sub

Problem2


Sub Makro1()
Columns("A:BE").Select
Range("A2").Activate
Selection.EntireColumn.Hidden = True
Range("BF3").Select
End Sub

Dieses Makro soll dahingehend geändert werden, dass in der ersten Spalte der Wertebereich in A:F geändert wird.
Kann mir da jemand helfen? Vielen Dank im Voraus!
Viele Grüße
Markus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub versuch() Dim meCode As String With ActiveWorkbook.VBProject.VBComponents("Tabelle2").CodeModule 'sollten noch mehr Makros drin sein Zeile anpassen 'hier werden alle gelöscht .DeleteLines 1, .CountOfLines 'neuer code String meCode = _ "Sub Worksheet_Activate()" & Chr(10) & _ " 'ScrollArea = ""C3: Bf32""" & Chr(10) & _ " ScrollArea = """"" & Chr(10) & _ "End Sub" .AddFromString meCode End With End Sub

Hi Markus,
hier poste ich dir mal ein Beispiel dafür, dass die beiden Makros sich bei der Ausführung
Infos aus einem Tabellenblatt holen:


'----------------------- im Code der Tabelle1
Sub Worksheet_Activate()
ScrollArea = Cells(2, 7)
End Sub
'----------------------- in einem allg. Modul:
Option Explicit
Sub Makro1()
Range("BF3").Select
Columns(Sheets("Tabelle1").Cells(4, 7).Value).Hidden = True
End Sub
'Sub alt_Makro1()
'   Columns("A:BE").Select ' A:F
'   Range("A2").Activate
'   Selection.EntireColumn.Hidden = True
'   Range("BF3").Select
'End Sub

Jetzt fehlt natürlich noch das Makro, das die beiden Zellen G2 und G4 auf Tabelle1 mit Werten versorgt,
das also indirekt bestimmt, was Worksheet_Activate bzw. Makro1 tun - ohne VBA-Änderung.
Hier im Beispiel habe ich Scrollarea bzw. die Ausblend-Spalten mal abhängig vom Tag oder Wochentag gemacht.
Dieses "Obermakro" kommt auch in das allg. Modul:


Sub Ober_Makro()
With Sheets("Tabelle1")
If Weekday(Date, vbMonday) > 3 Then  ' ScrollArea festlegen
.Cells(2, 7) = "C3: Bf32"
Else
.Cells(2, 7) = ""
End If
If Day(Date) > 15 Then               ' Spalten zum Ausblenden festlegen
.Cells(4, 7) = "A:BE"
Else
.Cells(4, 7) = "A:F"
End If
End With
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

Mit VBA ein anderes Makro ändern

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mit VBA ein anderes Makro ändern

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

309 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