Voorwaarde in macro om inhoud van cel te verplaatsen als doelcel bezet is.

[Hevoolst]

Hallo allemaal,

Op een werkmap in Excel wordt een datum ingevuld, wanneer een gemeente wordt bezocht in het kader van een project.Op een maanden overzicht in Excel wil ik per maand- elke kolom 1 maand de naam van de bezochte gemeente weergeven. Dat doet onderstaande macro.

Sub Gemeente_IOT_g()
Dim Teller As Integer
For Teller = 1 To 200
'If Sheets("Kalender").Range("g" & Teller) <> "" _
Then Sheets("IOT").Range("g" & Teller) > #12/31/2006# And Sheets("IOT").Range("g" & Teller) _
< #2/1/2007# Then _
Sheets("Kalender").Range("b" & Teller+17) = Sheets("IOT").Range("g" & 2)
If Sheets("IOT").Range("g" & Teller) > #1/31/2007# And Sheets("IOT").Range("g" & Teller) _
< #3/1/2007# Then _
Sheets("Kalender").Range("c" & Teller) = Sheets("IOT").Range("g" & 2)
If Sheets("IOT").Range("g" & Teller) > #2/28/2007# And Sheets("IOT").Range("g" & Teller) _
< #4/1/2007# Then _
Sheets("Kalender").Range("d" & Teller) = Sheets("IOT").Range("g" & 2)
If Sheets("IOT").Range("g" & Teller) > #3/31/2007# And Sheets("IOT").Range("g" & Teller) _
< #5/1/2007# Then _
Sheets("Kalender").Range("e" & Teller) = Sheets("IOT").Range("g" & 2)
If Sheets("IOT").Range("g" & Teller) > #4/30/2007# And Sheets("IOT").Range("g" & Teller) _
< #6/1/2007# Then _
Sheets("Kalender").Range("f" & Teller) = Sheets("IOT").Range("g" & 2)
If Sheets("IOT").Range("g" & Teller) > #5/31/2007# And Sheets("IOT").Range("g" & Teller) _
< #7/1/2007# Then _
Sheets("Kalender").Range("g" & Teller) = Sheets("IOT").Range("g" & 2)
If Sheets("IOT").Range("g" & Teller) > #6/30/2007# And Sheets("IOT").Range("g" & Teller) _
< #8/1/2007# Then _
Sheets("Kalender").Range("h" & Teller) = Sheets("IOT").Range("g" & 2)
If Sheets("IOT").Range("g" & Teller) > #7/31/2007# And Sheets("IOT").Range("g" & Teller) _
< #9/1/2007# Then _
Sheets("Kalender").Range("i" & Teller) = Sheets("IOT").Range("g" & 2)
If Sheets("IOT").Range("g" & Teller) > #8/31/2007# And Sheets("IOT").Range("g" & Teller) _
< #10/1/2007# Then _
Sheets("Kalender").Range("j" & Teller) = Sheets("IOT").Range("g" & 2)
If Sheets("IOT").Range("g" & Teller) > #9/30/2007# And Sheets("IOT").Range("g" & Teller) _
< #11/1/2007# Then _
Sheets("Kalender").Range("k" & Teller) = Sheets("IOT").Range("g" & 2)
If Sheets("IOT").Range("g" & Teller) > #10/31/2007# And Sheets("IOT").Range("g" & Teller) _
< #12/1/2007# Then _
Sheets("Kalender").Range("l" & Teller) = Sheets("IOT").Range("g" & 2)
If Sheets("IOT").Range("g" & Teller) > #11/30/2007# And Sheets("IOT").Range("g" & Teller) _
< #1/1/2008# Then _
Sheets("Kalender").Range("m" & Teller) = Sheets("IOT").Range("g" & 2)
If Sheets("IOT").Range("g" & Teller) > #12/31/2007# And Sheets("IOT").Range("g" & Teller) _
< #2/1/2008# Then _
Sheets("Kalender").Range("n" & Teller) = Sheets("IOT").Range("g" & 2)

Next Teller
Sheets("Kalender").Cells.Columns.AutoFit
End Sub

Het probleem ontstaat, zodra er in het kader van hetzelfde project in dezelfde maand meerdere gemeenten worden bezocht. Deze kunnen dan niet worden weergegeven. Ik heb een voorwaarde nodig die de naam van de gemeente verder in de kolom plaatst, als de oorspronkelijke cel bezet is. Hoe kan ik dat het beste doen?

Met vriendelijke groeten,

Henk