Thema Datum  Von Nutzer Rating
Antwort
Rot Berechnung über mehrere Sheets
 24.01.2016 10:18:12 Angelika
NotSolved
24.01.2016 11:39:12 aufran
NotSolved

Ansicht des Beitrags:
Von:
Angelika		 Datum:
24.01.2016 10:18:12		 Views:
2079		 Rating:
     
Antwort:
  Ja
Thema:
Berechnung über mehrere Sheets

HI

?
1
2
3
4
5
6
7
8
9
10
11
12
13
LetzteZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
      Range("E2").FormulaLocal = "=WENN(A2="Bezirk";F2+G2;"""")"
      Range("E2").AutoFill Destination:=Range("E2:E" & LetzteZeile)
      Range("F2").FormulaLocal = "=WENN(A2="Bezirk";KÜRZEN(J2/(C2*K2));"""")"
      Range("F2").AutoFill Destination:=Range("F2:F" & LetzteZeile)
      Range("G2").FormulaLocal = "=WENN(A2="Bezirk";WENN(H2<=(C2*K2)/4;0;1);"""")"
      Range("G2").AutoFill Destination:=Range("G2:G" & LetzteZeile)
      Range("H2").FormulaLocal = "=WENN(A2="Bezirk";J2-(C2*K2)*F2;"""")"
      Range("H2").AutoFill Destination:=Range("H2:H" & LetzteZeile)
      Range("I2").FormulaLocal = "=WENN(A2="Bezirk";L2*J2;"""")"
      Range("I2").AutoFill Destination:=Range("I2:I" & LetzteZeile)
      <strong>Range("D2").FormulaLocal = "=WENN(A2="Bezirk";D2*G2;"""")"
      Range("D2").AutoFill Destination:=Range("D2:D" & LetzteZeile)</strong>

Ich lasse in einem Durchlauf 22 Sheets mit Daten befüllen, dabei berechnet mir dieser Code für jedes Sheet die angegebenen Zellen neu und geht dann zum nächsten Sheet

Mein Problem liegt nun in den letzten beiden Zeilen

Da dies ja einen Zirkelbezug ergibt. Ich habe aber schon einen Code gesehen der das in VBA hinbringt, ohne das dieser Zirkelbezug eintritt.

 

Kriegt das hier jemand für mich hin

Schon mal einen RIESSIGEN DANK im voraus

Gruß

Angelika

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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 Berechnung über mehrere Sheets
 24.01.2016 10:18:12 Angelika
NotSolved
24.01.2016 11:39:12 aufran
NotSolved