Bestimmte Berechnung bei Nichtleeren Zellen
04.02.2005 07:19:28
Enjoy82
Ich habe eine recht einfache Aufgabenstellung zu lösen, denke aber zu kompliziert und weiss nicht wie ich sie am besten lösen soll.
Ich habe eine Arbeitsmappe mit 2 Tabellen. In der ersten Tabelle laufe ich mit Hilfe einer Schleife alle Zellen durch.
Treffe ich auf eine Nicht leere Zelle, soll vom Zahlenwer dieser Zelle der Wert der linken Nebenzelle abgezogen werden.
Die Ergebnisse möchte ich in Tabelle 2 in der Spalte A anzeigen.
Mein Ansatz:
Public
Sub Berechnung()
Dim i_Row_Start As Long
Dim n As Long, i As Long
i_Row_Start = 12
For n = i_Row_Start To ThisWorkbook.Worksheets(1).Cells(65536, 1).End(xlUp).Row
If (CStr(ThisWorkbook.Worksheets(1).Cells(n, 12).Value) <> "") Then
End If
Next n
End Sub
Stimmt das soweit?
Wäre nett wenn Ihr mir aushelfen könntet.
mfG Enjoy
Anzeige