Monat/Quartal
18.11.2004 11:37:11
dirk
ich lass durch folgende Prozedur Monatsbezeichnungen in Quartalsbezeichnungen umwandeln und das funktioniert soweit alles ganz gut, aber das jetzige Problem, welches noch auftritt ist, dass wenn in der letzten Zeile beispielsweise ein A (für April) steht gibt es kein Folgemonat mehr mit dem verglichen werden muss, um ganz genau bestimmen zu können, dass auch wirklich der April und nicht der August gemeint ist. So fällt das A einfach weg, wie es sonst aber nur beim August sein sollte.
Hat jemand viellicht einen guten Tip, wie das Problem beseitigt werden könnte?
Der Quelltext:
Sub Einzelmonate_raus()
Dim Zeile As Long
For Zeile = 2 To ActiveSheet.UsedRange.Rows.Count
If Cells(Zeile, 1) = "J" And Cells(Zeile + 1, 1) = "F" Then
Cells(Zeile, 1) = "Jan"
ElseIf Cells(Zeile, 1) = "A" And Cells(Zeile + 1, 1) = "M" Then Cells(Zeile, 1) = "Apr"
ElseIf Cells(Zeile, 1) = "J" And Cells(Zeile + 1, 1) = "A" Then Cells(Zeile, 1) = "Jul"
ElseIf Cells(Zeile, 1) = "O" Then Cells(Zeile, 1) = "Okt"
Else: Cells(Zeile, 1) = ""
End If
Next
End Sub
Gruss
Dirk