Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1212to1216
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1212to1216
1212to1216
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

MittelwertsformelBereich per VBA in Zelle schreibn

MittelwertsformelBereich per VBA in Zelle schreibn
TommiH
Hallo,
gibt es eine einfache Methode wie man in eine Zelle eine Formel schreiben kann?
Ich möchte in der Zelle y,z nicht den Mittelwert von y-10 - y-1 hineinschreiben, sondern die Formel dafür.
Cells(y, z).FormulaLocal = "=MITTELWERT(B10:B19)"
funktioniert ja für y=20 und z=2
Nur, wenn ich das für beliebige y/z-Kombinationen machen möchte, gibt es da einen (einfachen) Trick, oder muss ich da immer mit Schleifen hantieren und etwas in der Form
"=MITTELWERT(Range(Cells(y-10, z), Cells(y-1, z)))" basteln? Wobei das nicht funktioniert.
Tommi
AW: MittelwertsformelBereich per VBA in Zelle schreibn
16.05.2011 15:23:11
Rudi
Hallo, 
gibt es eine einfache Methode wie man in eine Zelle eine Formel schreiben kann?

Ja, gibt es:
Cells(y, z).FormulaR1C1 = "=Average(R[-1]C:R[-10]C)"
Gruß
Rudi
AW: MittelwertsformelBereich per VBA in Zelle schreibn
16.05.2011 15:34:04
TommiH
Hallo Rudi,
oh, ich denke das ist es (vom Prinzip), aber die Rs und Cs sind fixe Buchstaben? Erkennt Excel das selber, das ich mich damit auf Rows und Columns beziehe und die -1 / -10 sind relative Beziehungen?
Ich habe nun allerdings in der Zwischenzeit den Bereich per Schleife bestimmt (es ist leider nicht immer 10 davor :( )
Aber mit
v3 = "=MITTELWERT(Cells(" & h & "," & x & "),Cells(" & y - 1 & "," & x & "))"
kommt auch nur eine Fehlermeldung.
h = Startwert in y-Richtung,
y-1= Endwert in y-Richtung
x = Spalte
Müsste das nicht auch funktionieren?
Tommi
Anzeige
AW: MittelwertsformelBereich per VBA in Zelle schreibn
16.05.2011 16:03:03
Rudi
Hallo, 
oh, ich denke das ist es (vom Prinzip), aber die Rs und Cs sind fixe Buchstaben? Erkennt Excel das selber, das ich mich damit auf Rows und Columns beziehe und die -1 / -10 sind relative Beziehungen?

Richtig erkannt. 
"=MITTELWERT(Cells(" & h & "," & x & "),Cells(" & y - 1 & "," & x & "))"

Ganz Falsch
.FormulaLocal="=Mittelwert(" &Range(cells(h,x), cells(y-1,x)).Address & ")"
Gruß
Rudi
AW: MittelwertsformelBereich per VBA in Zelle schreibn
16.05.2011 17:13:37
TommiH
Hallo Rudi,
also das funktioniert bestens, auch wenn ich die Adressierung nicht so ganz verstehe, das Range(c1,c2)-Konstrukt ist mir zwar klar, aber wieso man nun plötzlich da ein .Adress dahinter hängen muss verstehe ich nicht ganz. Egal - es geht.
Nun hat sich nur noch ein Folgeproblem aufgetan, und zwar habe ich noch 2 weitere Möglichkeiten, wo die zu verwendenden Zellen nicht in einer Range zusammen liegen, also MW von Zelle (a,x) UND Zelle (b,x) UND Zelle (c,x) UND Zelle (d,x). Also MW von 4 Zellen die in der selben Spalte liegen. Die Werte a,b,c,d sind mir bekannt.
Wandelt sich dann der Ausdruck irgendwie in einer Art
"=Mittelwert(" & Cells(a,x);Cells(b,x);Cells(c,x);Cells(d,x).Adress & ")"
Tommi
Anzeige
AW: MittelwertsformelBereich per VBA in Zelle schreibn
16.05.2011 17:18:53
TommiH
Oh, ich habe vergessen zu schreiben, das ich die Werte in einem Array habe. Es gibt ds1 Werte und durch(1,1) ist der erste durch(2,1) der zweite und durch(ds1,1) der letzte Wert.
Also besteht die Problematik, das der Ausdruck in einer Schleife generierbar sein sollte. Geht das?
Tommi
AW: MittelwertsformelBereich per VBA in Zelle schreibn
16.05.2011 22:37:38
Rudi
Hallo,
verstehe zwar nur Bahnhof, behaupte aber, dass es geht.
Gruß
Rudi
AW: MittelwertsformelBereich per VBA in Zelle schreibn
17.05.2011 08:57:02
TommiH
Hallo Rudi,
okay, dann nochmal anders. Mit deinem Code kann ich einen Bereich (C5:C15) (z.B.) angeben, ich brauche die Möglichkeit die Zellen C5 C9 C12 und C15 zu definieren, also bestimmte Zellen. Von den Zellen weiss ich die Spalte (definiert durch Variable x) und die Zeile (definiert durch Werte in einem Array durch(1 to 10) - durch(1) ist der erste Zeilen-Wert, durch(2) der zweite usw.)
War das verständlicher ausgedrückt?
Tommi
Anzeige
AW: MittelwertsformelBereich per VBA in Zelle schreibn
17.05.2011 11:29:46
Rudi
Hallo,
Schema:
Dim myRange as Range
Dim i as integer
....
Set myRange=Cells(durch(1), x)
For i=2 To UBound(durch)
Set myRange=Union(myRange, Cells(durch(i), x))
Next i
Activecell.Formula="=Average(" &myRange.Address & ")"
Gruß
Rudi
AW: MittelwertsformelBereich per VBA in Zelle schreibn
17.05.2011 12:40:32
TommiH
Hallo Rudi,
oha, so sieht es also 'professionell' aus :) - DANKE !
Ich bin heute früh dann noch zu folgender Lösung gekommen
wobei
x die Spalte ist, um die es geht)
dv1 = Anzahl Werte im Array + 1
durch() = Array für Zeileninfo
v4 = Chr(64 + x) & durch(1)
For h = 2 To dv1 - 1
v4 = v4 & ";" & Chr(64 + x) & durch(h)
Next h
Cells(y, x).FormulaLocal = "=Mittelwert(" & v4 & ")"
Funktioniert zumindest auch
Tommi
Anzeige
Chr(64 + x)
17.05.2011 12:48:26
Rudi
Hallo,
was machst bei Spalten >Z?
Gruß
Rudi
AW: Chr(64 + x)
17.05.2011 12:58:32
TommiH
Hallo Rudi,
der Datenbereich kann nur maximal 22-24 Spalten enthalten, mehr kann das Ursprungsprogramm, welches die Daten generiert nicht erzeugen ;) - damit stellt sich (zum Glück) die Frage (für mich) nicht, ansonsten hätte ich vermutlich eine iif-Variante ergänzt, damit käme ich zumindest problemlos bis 50 Spalten, das reicht dann immer (manchmal muss ich nämlich 2 Exporte zusammenfassen)
Wie gesagt, deinen Code schaue ich mir aber schon auch noch genauer an und probiere es damit - dieses UBound und Union ist mir noch völlig fremd...
Tommi
Anzeige

374 Forumthreads zu ähnlichen Themen

7 a in eine Zelle schreiben
Kai

Hallo zusammen,
wie bekomme ich es hin, in eine Zelle "7 a" (7 Leerzeichen a) zu schreiben? Excel macht mir dann immer 7:00 AM daraus oder 0,29...
Danke
07.08.2008 16:45:31
Thread-ID: 1000024
6 Beiträge
Anzeige
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Anzeige
VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
x ersetzen durch wert aus bestimmter zelle
Ingolf

hallo,
ich muß eine liste erstellen. die werte unten will ich nicht immer eingeben müssen, sondern nur dort wo ein wert stehen soll ein x machen. excel soll mir dann für jedes x den wert aus der zeile 2 der gleichen spalte eintragen. mache ich in eine zelle 2 x, dann muß der wert auch 2 mal...
22.08.2008 09:08:22
Thread-ID: 1003727
5 Beiträge
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Makrostart wenn in Zelle was geschrieben wird
Bernd

Hallo,
wie stelle ich es an, damit ein Makro startet, sobald ich in einer bestimmten Zelle etwas schreibe?
Mein Code will irgendwie nicht so wie ich will. Der läuft ohne nonstop.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("D3") "" Then Call tabelle_kopi...
31.08.2008 11:09:00
Thread-ID: 1006152
2 Beiträge
Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
3
2
4
3
16
4
5
1
5
3
2
1
4
4
6
5
30
3
4
11
8
6
10
4