|
Hey Leute
Habe ein kleines Problem beim meinem Projektplan:
Ich haben auf einem Tabellenblatt (Struktur) Überschriften und Unterüberschriften die im Projektplan angezeigt werden sollen.
Die Überschriften befinden sich ab der Zeile in der Spalte A
Der Plan befindet sich auf dem Tabellenblatt "PlanGesamt".
Am Plan sagte ichin der Zelle A13=Struktur!A13 und zog den Zellenwert nach unten
Problem ist jetzt dass zum BSP in den Zeilen 15,16,17,18 Werte sind aber dann 10 Zeilen kein Wert mehr und 10Zeilen später wieder Werte
Jetzt wollte ich mittels VBA die leeren Zellen ausblenden. Da die auf dem Tabellenblatt la nicht leer sind, da Verweis auf andres Tabellenblatt bin ich ins Straucheln gekommen
Weiteres Problem ist es sind ab Zeile 13 in der Spalte A immer zwei Zellen verbunden, da ich im Plan dann Soll/IST Werte brauche.
Sub Zeilenausblenden()
Dim i As Integer
Dim Reihe As Integer
For i = 13 To 1000
Sheets("Struktur").Activate
If Cells(i, 1) = "" Then
Reihe = i + 1
Sheets("PlanGesamt").Activate
Range(Cells(i, 1), Cells(Reihe, 1)).EntireRow.Hidden = True
i = i + 1
End If
Next i
End Sub
Hier Mein Programm
Danke im voraus!
|