VBA Code pro Zeile, Addieren pro Zeile
25.08.2015 15:46:10
Lepke
Ich benötige eure Hilfe :) ... Die Suchfunktion und das Allheilmittel Google habe ich bereits bemüht, konnte mir aus den Ergebnissen aber keinen Reim machen. Bitte seht mir nach, dass ich ein "Anfänger" bin.
Gern möchte ich folgendes tun:
In meiner Excel-Tabelle habe ich viele Zeilen mit diversem Inhalt. Steht eine bestimmte Zeichenfolge in einer Zelle, so soll der Wert der Zelle rechts daneben aufaddiert werden. Es kann dabei sein, dass sich die gesuchte Zeichenfolge mehrfach pro Zeile finden lässt. Hier sollen dann alle rechts neben der entsprechenden Zelle befindlichen Zellen aufaddiert und am Ende der Zeile als Summe ausgegeben werden. Ebenfalls soll ein Counter mitzählen, wie oft die Zeichenfolge pro Zeile zu finden war und dies ebenfalls am Ende der Zeile ausgeben. Dies soll dann Zeile für Zeile geschehen...
Es gelingt mir einfach nicht, meinen Code jeweils Zeile für Zeile auszuführen. Was ich bisher habe ist:
Sub Backspace()
On Error GoTo Fehler
Dim rngFound As Range
Dim strErste As String
Dim i As Double
i = 0
Set rngFound = Range("A1:AB100").Find(What:="0x08", LookIn:=xlValues, LookAt:=xlWhole)
If Not rngFound Is Nothing Then
strErste = rngFound.Address
i = Cells(rngFound.Row, rngFound.Column + 1).Value
Do
Set rngFound = Range("A1:AB100").FindNext(rngFound)
If Not strErste = rngFound.Address Then
i = i + Cells(rngFound.Row, rngFound.Column + 1).Value
End If
Loop While Not strErste = rngFound.Address
Cells(rngFound.Row, 30).Value = i
Else
MsgBox "Keine > 0x08 Ist wirklich schwierig zu erklären, was man will...
Ein kurzes Beispiel:
Auszug aus meiner Tabelle:
A B C D E F G H
1 s 321 k 100 0x08 200 m 123
2 h 122 0x08 150 b 220 0x08 80
3 0x08 180 t 120 0x08 250 q 113
4 t 10 o 110 g 50 u 170
5 0x08 190 w 110 0x08 255 0x08 113
es soll entstehen:
Spalte I = Immer pro Zeile alle Werte rechts neben Zellen mit Inhalt = 0x08
Spalte J = Wie häufig kam der Wert 0x08 pro Zeile vor
A B C D E F G H I J
1 s 321 k 100 0x08 200 m 123 ---> 200 1
2 h 122 0x08 150 b 220 0x08 80 ---> 230 2
3 0x08 180 t 120 0x08 250 q 113 ---> 430 2
4 t 10 o 110 g 50 u 170 --->
5 0x08 190 w 110 0x08 255 0x08 113 ---> 558 3
Könnt ihr mir helfen? Danke :)