Addition mehrerer Zellen mit VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Born,
die erste freie Zeile wuerde ich auf jeden Fall auch mit xlUp ermitteln.
Das zweite Problem verstehe ich leider nicht so ganz. Wie kommt die Nummer des Paerchens zustande? Und Du hast ein Zipfile online gestellt mit xml oder so. Damit kenn ich mich leider ueberhaupt nicht aus :-(. Wenn Du eine Arbeitsmappe dazu haettest, waere es schoen.
Ich habe das jetzt so verstanden, dass die Einser einer Zeile aus der roten Tabelle in die selbe Zeile + die drei nachfolgenden Zeilen der gruenen Tabelle uebernommen werden. Wenn jetzt in Spalte B eine 2 steht, dann sollen nach Deinem Beispiel die Spalten der Gruenen Tabelle geloescht werden, die im Beispiel in Zeile 9 stehen. Stuende jetzt in Zeile 9 eine 1, dann muessten demnach die Spalten der Tabelle geloescht werden, die in Zeile 8 stehen. Aber richtig durchgestiegen bin ich noch nicht.
Ich hab mal versucht, eine Loesung zu basteln, Du kannst sie Dir in der angehaengten Arbeitsmappe anschauen. Wenn Du nacheinander die Buttons fuer Zeile 8, 9 und 10 drueckst, siehst Du, was passiert, wenn die Zeilen der Reihe nach in die gruene Tabelle uebernommen werden. Ich hoffe, das kommt der gewuenschten Loesung schon nahe.
Lass mich wissen, ob es einigermassen o.k. ist. Oh - und ich hab 6 Stunden Zeitverschiebung (voraus), deswegen kann es sein, dass ich schon weg bin und es mit der Antwort etwas dauert.

https://www.herber.de/bbs/user/46153.xls

Gruss
Rainer

Hallo Born,
fuege bitte mal den untenstehenden Code in Dein Workbook ein und dann gib als aktuelle Zeile (dReihe) 26 ein. Ich denke, jetzt macht es das, was Du willst.
Wenn Du das Makro Schrittweise durchlaufen laesst und einen "Watch" fuer alle Variablen setzt, dann kannst Du das Ganze leichter nachvollziehen, ich gebe zu es ist etwas konfus :-) Evtl. musst Du die Zeilen noch anpassen. Ich bin jetzt davon ausgegangen, dass, wenn ab Zeile 26 (Excelzeile 27) aktualisiert wird, nachgeschaut wird, ob in Spalte B der Zeile 25 (Excelzeile 26) eine Zahl steht. Wenn ja, sucht das Makro in den 4 darueberliegenden Zeilen nach Paaren, die die jeweilige Zahl aus Spalte B enthalten und setzt alle diese Spalten dann in den folgenden Zeilen auf Null (Dieses Problem ist WIRKLICH schwer zu erklaeren... ;-))
Kann es eigentlich vorkommen, dass Du z. B. die Spalte 1 in dem Bereich gleichzeitig auf Nullsetzen sollst, aber auch 1 Addieren - wenn ja, musst Du das Makro dann da auch noch anpassen...
Gruss
Rainer


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = ("$N$1") Then
Dim dReihe, i, k, l, ctr  As Double
ctr = 2
Dim paarw(1 To 5) As Double
dReihe = Range("M1").Value
If Sheet1.Range("N1") = 1 Then
If Range("B" & dReihe)  "" Then
paarw(1) = Range("b" & dReihe)
For i = dReihe - 3 To dReihe
If Sheet1.Cells(i, 7 + paarw(1)) = 1 Then
For k = 1 To 5
If Not k = paarw(1) Then
If Sheet1.Cells(i, 7 + k) = 1 Then
paarw(ctr) = k
ctr = ctr + 1
Exit For
End If
End If
Next k
End If
Next i
End If
For i = dReihe + 1 To dReihe + 4
For k = 1 To 5
Sheet1.Cells(i, 2 + k) = Sheet1.Cells(dReihe, 2 + k) + Sheet1.Cells(2, 7 + k)
Next k
If ctr > 2 Then
For k = 1 To ctr
Sheet1.Cells(i, 2 + paarw(k)) = "0"
Next k
End If
Next i
End If
End If
End Sub

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread