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
Bitte geben Sie ein aussagekräftiges Thema an. Bitte geben Sie eine gültige Email Adresse ein!