Seite 1 von 1

EIn Makro in mehreren Tabellen verwenden

Verfasst: Do 10. Nov 2011, 16:59
von Sasch
Hallo zusammen,

ich versuche seit Tagen ein Makro zu programmieren, aber es funktioniert irgendwie nicht so
wie ich es möchte.
Alles was ich bis jetzt gegoogelt habe, klappt nicht.

Ich habe insgesamt 14 Tabellen, in 12 davon soll das Makro funktionieren!
Bei den 12 Tabellen handelt es sich um folgende Blätter: 'Ausgaben Jan' bis 'Ausgaben Dez'

Folgendes Makro hab ich im netz gefunden und für meine Bedürfnisse angepasst:

Code: Alles auswählen

REM  *****  BASIC  *****

  Sub B24_zu_C24_addieren
    odoc = thisComponent
    osheet = odoc.sheets(1) 'erstes Tabellenblatt
    eingabe = osheet.getcellrangebyname("B24").value
    ausgabe = osheet.getcellrangebyname("C24").value
    osheet.getcellrangebyname("C24").value = eingabe + ausgabe

    End Sub

Jetzt meine Frage:
Wie muss das Makro aussehen, das ich in jeder
Tabelle damit rechnen kann?

Bin euch für jeden Tip dankbar
Gruss Sasch

Re: EIn Makro in mehreren Tabellen verwenden

Verfasst: Do 10. Nov 2011, 17:09
von gogo

Code: Alles auswählen

osheet = odoc.sheets(1) 'erstes Tabellenblatt
wählt immer .sheets(1) aus

Code: Alles auswählen

osheet = odoc.CurrentController.ActiveSheet 'aktuelles Tabellenblatt
wählt immer das gerade aktive Blatt aus.

Re: EIn Makro in mehreren Tabellen verwenden

Verfasst: Sa 12. Nov 2011, 08:42
von Sasch
hallo gogo,

danke für deine schnelle hilfe.
so funktioniert es.