Makro per MAkro schreiben

Bild

Betrifft: Makro per MAkro schreiben
von: sansold
Geschrieben am: 11.04.2005 08:59:15
Hallo
ich möchte aus der XLS Datei 1 beim Ausführen des Makros 1 den folgenden Quelltext in eine vom MAkro 1 erzeugte Datei schreiben.
Option Explicit
Public rngPrev As Range
Public varIC As Variant
Public varFC As Variant


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
  Application.EnableEvents = False
  If Not rngPrev Is Nothing Then
    rngPrev.Interior.ColorIndex = varIC
    rngPrev.Font.ColorIndex = varFC
  End If
  Set rngPrev = Target
  
  With Target(1)
    varIC = .Interior.ColorIndex
    varFC = .Font.ColorIndex
    .Interior.ColorIndex = _
      IIf(varFC = xlColorIndexAutomatic, 1, varFC)
    .Font.ColorIndex = _
      IIf(varIC = xlColorIndexNone, 2, varIC)
  End With
  
  Application.EnableEvents = True
End Sub

Wie kann ich das machen?
Danke für die Hilfe
Bild

Betrifft: AW: Makro per MAkro schreiben
von: Tobias Marx
Geschrieben am: 11.04.2005 09:26:17
Servus!
Da das Ganze doch recht umfangreich ist, und ich - wenn ichs beantworten wuerde - wahrscheinlich mehr Fehler machen wuerde, als Richtiges, helfe ich dir mit nem kleinen Verweis auf die Online-Hilfe von VBA. Schau mal nach Application.VBE.Anweisungen...
Damit solltest du Glueck haben
Gruss

Tobias
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Makro per MAkro schreiben "