ich habe mit Hilfe hier gestern eine Funktion erstellt die Mitarbeiter in den Reiter Planung hinein kopiert. Nun brauche ich eine Funktion dafür, dass wenn man den Reiter löscht, somit nur noch Bezug drinnen steht, dieser die Zeilen (Rows) löscht in denen vorne bei A(x) "=#BEZUG..." steht.
Das ist meine bisherige Lösung:
Public Sub MB_Loeschen()
Dim i As Integer
i = 2
Dim j As Integer
j = 2
If (Worksheets("PLANUNG").Cells(i, 1)) "" Then
j = j + 364
i = i + 364
End If
Do While i
Leider spuckt er mir bei dem If schon ein Problem aus. Ich weiß eben nicht wie ich dem sagen soll er soll die Spalte A durchgehen. Zudem denke ich brauche ich vermutlich noch eine Dritte Integer Variable, denn i und j sind ja nach der If Schleife auf einen Wert höher als 2 gesetzt (die 364 Tage kommt weil in jeder Spalte ein Tag abgebildet wird).
Wäre um Rat dankbar
Grüße Jens