|
Hallo liebe Forumler,
ich stehe mal wieder auf dem Schlauch und würde mich über einen Ansatz freuen.
Ich habe eine Mitarbeiterliste aus der ich ein Organigramm erstelle.
Durch die Verknüpfung eines Mitarbeiters zu einem Vorgesetzten definiere ich die Teams im Organigramm - das funktioniert auch soweit.
Das Problem ist nun, dass die Mitarbeiter im Organigramm nicht direkt untereinander aufgeführt werden, sondern in der jeweiligen Zeile aus der Mitarbeiterliste.
Bspw.:
Teamleitung (A1)
MA1 (A3)
MA2 (A15)
MA3 (A43)
...
Ich habe mir nun gedacht, dass ich einfach die Zellen zwischen den einzelnen MAs pro Team einfach lösche, bekomme das aber nicht hin...
Hier der Code
Sub ClearColumns()
Dim j As Integer
Dim LastLine As Long
'Team1 bereinigen
LastLine1 = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row
For j = 15 To LastLine
'Wenn Zellen leer
If Range(Cells(j, 4), Cells(j, 5)).Value = "" Then
'Dann löschen und nach oben verschieben
Range(Cells(j, 4), Cells(j, 5)).Delete xlShiftUp
End If
Next j
End Sub
Ob ich nun "" oder NULL schreibe ändert nichts an der Tatsach, dass rein gar nichts passiert...
Was habe ich vergessen?
Für Hilfe dankt euch,
Heiko
|