Besondere VBA Programmierung in Microsoft Excel ! Dringend !

11/08/2010 - 11:34 von DK | Report spam
Liebe Experten,

ich habe ein Problem bei der Realisierung einer Tabelle in Microsoft Excel & hoffe, ihr habt vielleicht eine Idee, wie die L?sung ist.

Und zwar habe ich 3 Zellen. In Zelle A stehen die Kosten - Stellen, in diesem Beispiel in B4 der Wert 56001. Der n?chste Wert, bzw. die n?chste Kostenstelle steht in der Zelle B16 Usw.

Nun m?chte ich ab C4 - C100 eine Formel haben, die Zelle f?r Zelle pr?ft, ob es in den Zellen B4, B5, B6 Usw. ( Fortlaufend ) ein Wert gibt. Steht in Wert in der entsprechenden Zeile, soll er diesen in die C - Spalten Kopieren, bis wieder etwas in der B - Spalte steht. Ab diesem Zeitpunkt soll er den neuen Wert nehmen.

Ich war schon einiges am Ausprobieren. Sowohl ?ber Wenn Und Funktionen als auch ?ber VBA.

Leider habe ich keine Idee mehr.

Das war mein letzter Versuch :

________________________________________________________

Sub Kopieren()
Dim rngZelle As Range
Dim LRow As Long
Dim Markierung As Range


Application.ScreenUpdating = False
With ActiveSheet
LRow = .Cells(Rows.Count, 3).End(xlUp).Row
For Each rngZelle In Range("B1:B100" & LRow)
If rngZelle > "" Then
rngZelle.Offset(0, 2) = rngZelle
Else
Sheets("T1").Range("B1:B100").Copy
Range("C1:C100").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End If
Next
End With
Application.ScreenUpdating = True

End Sub

________________________________________________________


Ich hoffe, ihr habe vielleicht eine Idee, wie man das am Besten zum Laufen kriegt.

Ich bedanke mich schon im Vorraus f?r eure Hilfe.

Viele Gr??e

Dennis


Submitted via EggHeadCafe - Software Developer Portal of Choice
A Comparison of Managed Compression Algorithms
http://www.eggheadcafe.com/tutorial...ithms.aspx
 

Lesen sie die antworten

#1 Andreas Killer
11/08/2010 - 12:13 | Warnen spam
On 11 Aug., 11:34, DK wrote:

Und zwar habe ich 3 Zellen. In Zelle A stehen die Kosten - Stellen, in diesem Beispiel in B4 der Wert 56001. Der n?chste Wert, bzw. die n?chste Kostenstelle steht in der Zelle B16 Usw.

Nun m?chte ich ab C4 - C100 eine Formel haben, die Zelle f?r Zelle pr?ft, ob es in den Zellen B4, B5, B6 Usw. ( Fortlaufend ) ein Wert gibt. Steht in Wert in der entsprechenden Zeile, soll er diesen in die C - Spalten Kopieren, bis wieder etwas in der B - Spalte steht. Ab diesem Zeitpunkt soll er den neuen Wert nehmen.



Wenn's keine Formel sein muss und eine Sub sein darf, dann hàtte ich
das im Angebot:

Sub Test()
Dim R As Range, Value
For Each R In Range("B4:B100")
If Not IsEmpty(R) Then _
Value = R
R.Offset(0, 1) = Value
Next
End Sub

Andreas.

Ähnliche fragen