Spalte A Spalte B
Month & Year Category
1, 2019 Category
A
B
C
2, 2019 Category
A
B
C
D
etc. für die weiteren Monate
In einer weiteren Schleife will ich nun für alle leeren Zellen in Spalte A den jeweiligen Wert von Month & Year hineinschreiben. Ich zeige hierzu am besten meinen bisherigen Code. Das Übertragen klappt soweit auch, nur dass das Komma verschwindet. Das heißt statt 1, 2019 steht: 12019
Der Code:
Dim moYe As String
lastrowOutput = ThisWorkbook.Worksheets("Output1").Cells(Rows.Count, 2).End(xlUp).row
'ThisWorkbook.Worksheets("Output1").Columns(1).NumberFormat = "General"
With ThisWorkbook.Worksheets("Output1")
For i = 2 To lastrowOutput
If ThisWorkbook.Worksheets("Output1").range("A" & i).Value "" Then
moYe = ThisWorkbook.Worksheets("Output1").range("A" & i).Value
MsgBox moYe
End If
If ThisWorkbook.Worksheets("Output1").range("A" & i).Value = "" Then
'ThisWorkbook.Worksheets("Output1").range("A" & i).Value = moYe
ThisWorkbook.Worksheets("Output1").Cells(i, 1).Value = moYe
ThisWorkbook.Worksheets("Output1").Cells(i, 1).NumberFormat = "General"
'ThisWorkbook.Worksheets("Output1").range("A" & i).NumberFormat = "General"
End If
Next i
End With
Es sei hierzu gesagt, dass bei der Ausgabe der String-Variable moYe in der MsgBox das Komma enthalten ist. Ich wollte ausßerdem vor dem Kopieren des Variablenwerts moYe in die jeweiligen Zellen auf Standard umstellen, aber das war dann als Number eingestellt. Falls das von Relevanz ist. Vor Ausführung des Codes ist das Format der Spalte "Month & Year" in den leeren Zellen Number. Dort wo die Werte mit Komma drin stehen, ist das Format Standard. Ich hoffe, ich habe niemanden zu sehr verwirrt und dass mir jemand behilflich sein kann. Vielen Dank im Voraus