@Renee Addition getrennte & Ct. in Spalten

Odje.K · 2007-09-13T17:18:24+00:00

Hallo Renee, das von Udo erstellte und von dir modifizierte Makro finde ich Klasse. Mit dem Makro kann man ja alles errechnen Währung, Maßeinheiten etc. Dazu noch eine Frage: Ist es möglich , im Makro, die Ergebniszeile so zuändern, dass man eben diese Einheiten im voraus bestimmen kann, z.B. Euro - m - cm usw. ? Hast du eine Idee ob das geht und wenn ja - Wie ? MfG Odje

Hi Odje,
Ich versteh nicht ganz, wie Du Dir das mit den Einheiten vorstellst.
Ich hab jetzt das Makro mal so modifiziert:
1. Es wird abgefragt, mit was für einem Faktor die 2te Spalte dividiert werden soll.
2. Die Summe übernimmt die Formatierung (z.B. wenn als Währung formatiert) aus der ersten Zelle der Selektion.


Sub prcMySum()
Dim rng1to1 As Range, rngFactorized As Range
Dim lFactor As Long
If Selection.Columns.Count  2 Then Exit Sub
While lFactor = 0
lFactor = Val(InputBox("Divisionsfaktor für die 2te Spalte:", "Faktor eingeben", 100))
Wend
Set rng1to1 = Range(Cells(Selection.Row, Selection.Column), _
Cells(Selection.Row + Selection.Rows.Count - 1, Selection.Column))
Set rngFactorized = Range(Cells(Selection.Row, Selection.Column + 1), _
Cells(Selection.Row + Selection.Rows.Count - 1, Selection.Column + 1))
Cells(Selection.Row + Selection.Rows.Count, _
Selection.Column + Selection.Columns.Count - 1) = _
WorksheetFunction.Sum(rng1to1) + WorksheetFunction.Sum(rngFactorized) / lFactor
Cells(Selection.Row, Selection.Column).Copy
Cells(Selection.Row + Selection.Rows.Count, _
Selection.Column + Selection.Columns.Count - 1).PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
End Sub

Greetz Renee

...Udo,
"Auf dieses Niveau begebe ich mich nicht herab!" und dann ist die Diskussion zuende... Und das macht er im Prinzip richtig (wenn's auch nicht auf jeden Einzelfall passen mag)... Leider konnte ich mir das bis jetzt nicht angewöhnen, aber dein Klammerausdruck ist wirklich drunter! Hier verkehren doch auch Kinder... ;-)
Ansonsten Danke für die positive Meinung (auch Kurt), die sich einem Newcomer ja nicht unbedingt aus dem bewussten "Konzentrat" oder besser "Kondensat" erschließt.
Im Übrigen weißt du doch genauso wie Kurt, der sich im OT-Forum auf wundersame vermehrt sehen musste, dass das Forum wegen unqualifizierter Angriffe von Trollen eingestellt wurde (HWH wollte nicht auch das noch mit Passwort schützen müssen!).
Gruß Luc :-?
@Kurt: Über Stil kann man streiten, nicht aber über die Notwendigkeit von Bildung - auch was die eigene Muttersprache betrifft! Aber das ist ein uraltes Problem, das man schon bei Grimmelshausen (30jähr Krieg) findet. Man kann Andere für (solche) Fehler kritisieren, aber man muss nicht - man darf nicht, wenn man selber eher lax formuliert... Sicher ist das alles wieder viel zu lang für dich - fehlt die "militär-preußische" Kürze - aber eine Zeitung in diesem Stil hätte nur eine Seite Infos auf 19 Seiten Werbung... ;-)
Gruß Luc :-?
PS: Im Übrigen bin ich zu den Attacken dieser "Dame" (hier unter dem bek.Namen tätig seit 2.Juniwoche 07) wie die Jungfrau zum Kind gekommen. Die psychologischen Zusammenhänge hingegen ahne ich wohl... Ich werde sicher nicht der Einzige bleiben, der sich ihres "Wohlwollens" erfreuen darf... ;-)

@Renee Addition getrennte & Ct. in Spalten

Forumthread: @Renee Addition getrennte & Ct. in Spalten

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

@Renee Addition getrennte  & Ct. in Spalten

Forumthread: @Renee Addition getrennte  & Ct. in Spalten

25 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

@Renee Addition getrennte & Ct. in Spalten

Forumthread: @Renee Addition getrennte & Ct. in Spalten

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread