kann man der Code so ändern das in Spalte B immer anzeigt wenn unter oder über Null geht.
zB.
B7 ist richtig, B4 muss November13 über 0 anzeige
Danke im Vorraus
Die Datei https://www.herber.de/bbs/user/87155.xlsm wurde aus Datenschutzgründen gelöscht
Option Explicit
Sub TestIt()
Dim lngLR As Long, lngLC As Long
Dim lngR As Long, lngC As Long
With Sheets("probe")
lngLR = .Cells(Rows.Count, 1).End(xlUp).Row
lngLC = .Cells(2, Columns.Count).End(xlToLeft).Column
.Cells(4, 2).Resize(lngLR - 3).ClearContents
If Not IsDate(.Cells(2, lngLC)) Then
Do While Not IsDate(.Cells(2, lngLC))
lngLC = lngLC - 1
Loop
End If
For lngR = 4 To lngLR
For lngC = lngLC To 5 Step -2
If Not IsEmpty(.Cells(lngR, lngC)) Then
If .Cells(lngR, lngC) 0 Or lngC = 3
lngC = lngC - 2
Loop
.Cells(lngR, 2) = .Cells(2, lngC + 2).Text & " 0 Then
Do Until .Cells(lngR, lngC) 0"
Exit For
End If
End If
Next
Next
End With
End Sub
wenn dann bei "0" auch was passieren soll, kannst du das ja entsprechned erweiteren.