|
Gut so. :) Ist in deinem Interesse.
Wenn ich das richtig sehe tust du mi dem Makro den Inhalt des Blatts mit allen anderen abgleichen.
c.Offset(0, 1).Value = wksMA1.Cells(iRow, 2) 'Thema
c.Offset(0, 4).Value = wksMA1.Cells(iRow, 5) 'Ort
c.Offset(0, 5).Value = wksMA1.Cells(iRow, 6) 'Anfang
c.Offset(0, 6).Value = wksMA1.Cells(iRow, 7) 'Ende
Wenn, dann solltest du das beim Activate eines Blattes machen.
'Modul: DieseArbeitsmappe / ThisWorkbook
Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Call MsgBox(Sh.Name & " ist nun ausgewählt/sichtbar.", vbInformation)
End Sub
|