Thema Datum  Von Nutzer Rating
Antwort
Rot Makro auf ausgebledeten Tabellenblättern
 21.09.2015 17:43:55 Marci
NotSolved
21.09.2015 18:10:52 Gast86583
NotSolved
22.09.2015 07:36:49 Marci
NotSolved
22.09.2015 11:38:41 Marci
NotSolved

Ansicht des Beitrags:
Von:
Marci		 Datum:
21.09.2015 17:43:55		 Views:
2627		 Rating:
     
Antwort:
  Ja
Thema:
Makro auf ausgebledeten Tabellenblättern

Hallo zusammen,

ich habe 50 Tabellenblätter, davon sind nur Blatt 4 und 5 sichtbar. Alle anderen sind per VBA ausgeblendet.
Im Projekt-Ordner sind die Blätter wie folgt aufgelistet:
Tabelle00 (xxx)
Tabelle01 (xxy)
Tabelle02 (xyz)......usw.

Nun mein Problem:
von Tabelle06 bis zum Schluss, soll er nachfolgendes Makro ausführen, wenn

If ActiveWorkbook.Sheets("Tabelle02").Range("L10") = 7 'Ergebnis' Then
Exit Sub

Else
'das soll er dann von Tabelle06 bis zum Ende nacheinander machen
Range("A3").PivotCell.PivotField.Caption = ActiveWorkbook.Sheets("Tabelle02").Range("J3")
Range("A4").PivotCell.PivotField.Caption = ActiveWorkbook.Sheets("Tabelle02").Range("J4")
Range("A5").PivotCell.PivotField.Caption = ActiveWorkbook.Sheets("Tabelle02").Range("J5")
Range("A6").PivotCell.PivotField.Caption = ActiveWorkbook.Sheets("Tabelle02").Range("J6")
Range("A7").PivotCell.PivotField.Caption = ActiveWorkbook.Sheets("Tabelle02").Range("J7")
Range("A8").PivotCell.PivotField.Caption = ActiveWorkbook.Sheets("Tabelle02").Range("J8")
Range("A9").PivotCell.PivotField.Caption = ActiveWorkbook.Sheets("Tabelle02").Range("J9")

End If

Ich bin nur Anfänger in VBA und komme einfach nicht weiter... 

vielen Dank im vorraus!

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Makro auf ausgebledeten Tabellenblättern
 21.09.2015 17:43:55 Marci
NotSolved
21.09.2015 18:10:52 Gast86583
NotSolved
22.09.2015 07:36:49 Marci
NotSolved
22.09.2015 11:38:41 Marci
NotSolved