Thema Datum  Von Nutzer Rating
Antwort
Rot Formel Erweiterung mit VBA
 04.12.2013 20:16:38 M_ephisto
NotSolved

Ansicht des Beitrags:
Von:
M_ephisto		 Datum:
04.12.2013 20:16:38		 Views:
1687		 Rating:
     
Antwort:
  Ja
Thema:
Formel Erweiterung mit VBA

Hallo Zusammen,

ich sitze hier vor einem Problem mit VBA in Excel (Office 2010). 

Vielleicht kann mir jemand weiterhelfen.

Ich möchte mittels eines Makros eine Spalte einfügen (Makro wird mittels Schaltfläche ausgelöst).

Die Spalte wird kopiert (Spalte E) und rechts eingefügt. Jetzt habe ich in Spalte D ein Formel stehen 

=SUMME(E10*$E$8)/($E$8) 

 

Jetzt möchte ich die Formel wie Flogt erweitern:

 

=SUMME((E10*$E$8)+(F10*$F$8))/($E$8+$F$8)

 

Ich möchte mehrere Spalten einfügen können aber die Anzahl der Spalten ist immer unterschiedlich.

 

Anbei mein Code so weit habe ich es hinbekommen:

 

?
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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
Sub Spaltenerweiterung()
 
Dim Nr As String
Dim Thema As String
Dim Datum As Date
 
Dim i               As Integer
Dim j               As Integer
Dim sArray()        As String
Dim sFormel         As String
Static iAddColumns  As Integer 'zählt die eingefügten Spalten (für Mittelwertsformel)
 
Application.ScreenUpdating = False
 
'*********************************************************************************************
'Spalte E kopieren und nach Rechts einfŸgen anschlie§end Zelleninhalte E10 bis E44 l_schen
 
With Columns("E:E")
        .Insert Shift:=xlToRight
        .Copy
        .Offset(0, -1).PasteSpecial (xlPasteAll)
    End With
     
    Range("E10:E44").ClearContents
    Application.CutCopyMode = False
    iAddColumns = iAddColumns + 1
 
 
'*********************************************************************************************
'Inputbox öffnen und Kopfdaten eingeben
 
'Thema = InputBox("Bitte Thema :")
'Range("E5") = Thema
 
'Datum = InputBox("Bitte Datum eingeben:")
'Range("E6") = Datum
 
'Nr = InputBox("Bitte Nr. eingeben:")
'Range("E9") = Nr
 
'**********************************************************************************************
'Mittelwertsformel erweitern
 
  ReDim sArray(iAddColumns)
    For i = 0 To iAddColumns
        sArray(i) = "(" & Cells(10, i + 5).Address(0, 0) & "*" & Cells(8, i + 5).Address(1, 1) & ")" & "/" & "(" & Cells(8, i + 5).Address(1, 1) & ")"
         
                 
        sFormel = sFormel & sArray(i) & ", "
    Next i
     
    sFormel = "=Sum(" & sFormel
    sFormel = Left(sFormel, Len(sFormel) - 2) & ")"
     
 For j = 10 To 44
        Range("D" & j).Formula = sFormel
    Next j
    
'***************************************************************************************************************************
'Zeile MArkieren und nach unten ausfüllen
     
  Range("D10").Select
   Selection.AutoFill Destination:=Range("D10:D44"), Type:=xlFillDefault
    Range("D10:D44").Select
        
        
Range("A3").Select
 
Application.ScreenUpdating = True
 
End Sub
 
Vielen Dank euch schon für eure Unterstützung!
Grüße
M_ephisto

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 Formel Erweiterung mit VBA
 04.12.2013 20:16:38 M_ephisto
NotSolved