multiplikation v. spalten

Hi,
ich möchte gerne jede Spalte mit jeder anderen multiplizieren
und die Produkte am besten auf ein neues Tabellnblatt in Spalten ausgeben, da man sonst mit dem colum.count Probleme bekommt ;-(
- mein "steh auf dem schlauch problem" ist aber der, dass
var1 erst soviele Schleifenrunden konstant bleiben soll, wie
Spalten vorhanden sind !
..da muss eine dritte Laufvariable her, oder & wie !?

bsten dank für tips & tricks , grüsse christian

Sub multiplySpecial()
Dim i As Integer
Dim j As Integer
Dim doErgeb As Double
Dim basis As Range
Set basis = Worksheets("Tabelle1").UsedRange
For j = 1 To basis.Columns.Count
For i = 1 To basis.Rows.Count
var1 = basis.Cells(i, j).Value
var2 = basis.Cells(i, j + 1).Value
doErgeb = var1 * var2
'Später auf anderes Tabellenblatt
Cells(i, j + basis.Columns.Count) = doErgeb
Next i
Next j
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Christian,

Wenn ich das richtig sehe, meinst Du, daß nebeneinanderliegende Spalten miteinander multipliziert werden(?).
1. Was passiert mit der letzten Spalte ?
Lt. Deiner Formel ist das letzte Ergebnis immer Null, da ja
var2 denn Wert von der Spalte erhälten, die neben der
letzten belegten Spalte liegt. Und diese wäre ja leer.
2. UsedRange liefert nicht zuverlässig die letzte Benutzte Zeile oder Spalte, da Excel ein "Gedächtnis" besitzt. D.h. wird aus letzten Zelle nur z.B. nur der Inhalt gelöscht, ist sie für Excel nicht leer. Dieser Gedächtnisspeicher wird erst beim Speichern einer Tabelle geleert.(hab ich selbst schon festgestellt ...leider)
Daher besser ...(bezieht sich auf Zeile 1, Spalte 1)

LetzteSpalte = Tabelle1.Cells(1, Columns.Count).End(xltoleft).Column
LetzteZeile = Tabelle1.Cells(Rows.Count,1).End(xlup).Row

Wenn Du nicht weißt, welche die längste Spalte oder Zeile ist, muß die Abfrage natürlich über alle Zeilen und Spalten laufen und dann eine Variable mit dem Neuen Endwert belegt werden, wenn er größer als der vorherige ist.

3. Sollen die Multiplikationsergebnisse aller Zellen addiert werden ????

Wenn Du nur die nebeneinanderliegenden Zellwerte spaltenweise multiplizieren willst, dann dreh einfach die Schleifen.

For i = 1 To basis.Rows.Count
For j = 1 To basis.Columns.Count
var1 = basis.Cells(i, j).Value
var2 = basis.Cells(i, j + 1).Value
doErgeb = var1 * var2
Tabelle2.Cells(i,j).Value = doErgeb
Next j
Next i

Beliebteste Forumthreads (12 Monate)

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread