Thema Datum  Von Nutzer Rating
Antwort
30.09.2015 11:19:05 MoKa
Solved
30.09.2015 11:39:42 BigBen
NotSolved
30.09.2015 12:01:42 Gast28330
NotSolved
30.09.2015 12:58:28 BigBen
NotSolved
Rot Excel Formel ändern in dynamischer Tabelle
 30.09.2015 13:33:32 MoKa
NotSolved

Ansicht des Beitrags:
Von:
MoKa		 Datum:
30.09.2015 13:33:32		 Views:
1446		 Rating:
     
Antwort:
  Ja
Thema:
Excel Formel ändern in dynamischer Tabelle

Servus,

Vielen Dank für die schnellen Antworten hier, das ist echter Luxus.

Leider konnte ich meine Problematik anscheind nicht richtig vermitteln.

Die einzelnen Zeilen( in english Row deswegen dachte ich Reihe .. ^^) sollen nicht gelöscht werden( Diese Funktion gibts es auch aber die klappt reibungslos) sondern ich will die Option haben diese nicht mit in die Rechnung einzubeziehen. Ich habe eine wie Ich finde sehr umständliche Lösung für diese Problematik für eine staatische Tabelle. Dieser Code überrüft ob die Zeile 53 in der Rechnung enthalten ist und geht dann alle 52 Spalten durch und ändert die Formel. Hier einmal der Code.

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub Makro1()
'
' Makro1 Makro
'
 
'
Dim KW
Dim geplant
Dim alteFormel As String, neueFormel As String
Dim i As Integer
i = 0
 
KW = Array("C64", "D64", "E64", "F64", "G64", "H64", "I64", "J64", "K64", "L64", "M64", "N64", "O64", "P64", "Q64", "R64", "S64", "T64", "U64", "V64", "W64", "X64", "Y64", "Z64", "AA64", "AB64", "AC64", "AD64", "AE64", "AF64", "AG64", "AH64", "AI64", "AJ64", "AK64", "AL64", "AM64", "AN64", "AO64", "AP64", "AQ64", "AR64", "AS64", "AT64", "AU64", "AV64", "AW64", "AX64", "AY64", "AZ64", "BA64", "BB64")
geplant = Array("+C53", "+D53", "+E53", "+F53", "+G53", "+H53", "+I53", "+J53", "+K53", "+L53", "+M53", "+N53", "+O53", "+P53", "+Q53", "+R53", "+S53", "+T53", "+U53", "+V53", "+W53", "+X53", "+Y53", "+Z53", "+AA53", "+AB53", "+AC53", "+AD53", "+AE53", "+AF53", "+AG53", "+AH53", "+AI53", "+AJ53", "+AK53", "+AL53", "+AM53", "+AN53", "+AO53", "+AP53", "+AQ53", "+AR53", "+AS53", "+AT53", "+AU53", "+AV53", "+AW53", "+AX53", "+AY53", "+AZ53", "+BA53", "+BB53")
 
    If Range(KW(i)).HasFormula = True And InStr(1, Range(KW(i)).Formula, geplant(i)) <> 0 Then
     
      
        While i < 52
        alteFormel = Range(KW(i)).Formula
        neueFormel = Replace(alteFormel, geplant(i), "")
     
        Range(KW(i)).Formula = neueFormel
     
        i = i + 1
        Wend
         
 
         
    Else
     
        While i < 52
        alteFormel = Range(KW(i)).Formula
        neueFormel = alteFormel + geplant(i)
     
        Range(KW(i)).Formula = neueFormel
     
        i = i + 1
        Wend
         
 
         
    End If
     
End Sub

Ich bin gerade dabei diesen Code so zu verändern das er auch für eine Dynamische Tabelle tauglich ist, leider muss ich dafür ziemlich viele Arrays erstellen, an einer Lösung diesen Schritt zu umgehen und das Array automatisch erstellen zu lassen, je nach dem welchen Bereich man angeklickt hat, arbeite ich auch noch.

Jedoch gibt es für meine Problematik ja vielleicht auch noch eine andere Lösung

Mit freundlichen Grüßen

Mo

 

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
30.09.2015 11:19:05 MoKa
Solved
30.09.2015 11:39:42 BigBen
NotSolved
30.09.2015 12:01:42 Gast28330
NotSolved
30.09.2015 12:58:28 BigBen
NotSolved
Rot Excel Formel ändern in dynamischer Tabelle
 30.09.2015 13:33:32 MoKa
NotSolved