@Renee Addition getrennte & Ct. in Spalten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub prcMySum() Dim rngEuro As Range, rngCent As Range If Selection.Columns.Count 2 Then Exit Sub Set rngEuro = Range(Cells(Selection.Row, Selection.Column), _ Cells(Selection.Row + Selection.Rows.Count - 1, Selection.Column)) Set rngCent = 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(rngEuro) + WorksheetFunction.Sum(rngCent) / 100 End Sub

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

Sub prcMySum() Dim rng1to1 As Range, rngFactorized As Range Dim lDivisor As Long If Selection.Columns.Count 2 Then Exit Sub While lFactor = 0 lDivisor = Val(InputBox("Divisor für die 2te Spalte:", "Divisor 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) / lDivisor 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

,sondern hat sich in einem Anfall von geistiger Umnachtung wieder dazu hinreissen lassen, auf eine zwar mathematisch und semantisch richtige, aber nichtsdestotrotz, in meinen Augen, überflüssige und lächerliche Äusserung zu reagieren. Es liesse sich ja durchaus diskutieren, ob die Multiplikation mit einem Faktor der kleiner 1 ist, der Bezeichnung würdig ist. Und da Du, und anscheinend auch andere, immer wieder um das OT trauerst, werde ich mir mal überlegen ob ich einen der Free-Forum-Software-Provider dazu missbrauchen soll, ein solches zu eröffnen. Wer immer auch Lust hast eine einseitig zusammengestellte Linkliste zu erstellen, hier und dort wäre ein möglicher Anfang.
Luc, das wirim Zitat "...sind wir aber beide noch nicht ganz drüber weg..." war auf uns 2 bezogen. Das zur Klarstellung. Die "Dame" war ,und ist manchmal noch, dämlich und zieht sich zurück. Der "Herr" war herrlich und darf sich weiter in seinem und anderer Glanze sonnen.
GreetZ Renee
P.S. die Selbstbezüglichkeit dieses Posts grenzt schon fast an Kunst!

...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... ;-)

Sub prcMySum() Dim rng1To1 As Range, rng1Div100 As Range If Selection.Columns.Count 2 Or Selection.Row = 1 Then Exit Sub Set rng1To1 = Range(Cells(Selection.Row, Selection.Column), _ Cells(Selection.Row + Selection.Rows.Count - 1, Selection.Column)) Set rng1Div100 = 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) = _ Format(WorksheetFunction.Sum(rng1To1) + WorksheetFunction.Sum(rng1Div100) / 100, _ "0.00 " & Cells(Selection.Row - 1, Selection.Column)) End Sub

Beliebteste Forumthreads (12 Monate)

@Renee Addition getrennte & Ct. in Spalten

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

98 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

@Renee Addition getrennte  & Ct. in Spalten

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

98 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

@Renee Addition getrennte & Ct. in Spalten

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread