Whit Schleife macht Probleme
01.10.2018 16:00:26
Dominik
ich versuche per VBA einen Code zu schreiben, der ein automatisches GANT-Diagramm erstellt. Ziel ist es, im 1. Schritt zu prüfen ob das Tabellenblatt "ProjektZeitplan" schon vorhanden ist, falls ja soll es gelöscht und neu angelegt werden. In Tabelle 5 ist eine Checkliste, in der relevante Aufgabenpakete abgelegt sind, falls hier "offen" oder "erledigt" steht soll das Aufgabenpaket in dem Reiter "ProjektZeitplan" auftauchen.
So viel habe ich jetzt aber ich erhalte mir unbekannte Fehler ...
Sub Zeitplanerstellen()
'Deklarationen
Dim lngZeile As Long
Dim lngZeileMax As Long
Dim lngZeileGant As Long
'Löschen vorhandenes Arbeitsblatt und erstellen eines neuen Gant-Diagramms
On Error GoTo WorkSheetErstellen
Application.DisplayAlerts = False
Sheets("ProjektZeitplan").Delete
Application.DisplayAlerts = True
GoTo WorkSheetErstellen
WorkSheetErstellen:
Worksheets.Add After:=Worksheets("Feld Test -> Freigabe")
ActiveSheet.Name = "ProjektZeitplan"
'Daten aus Checkliste Mkt übertragen
With Tabelle5
lngZeileMax = Tabelle5.UsedRange.Rows.Count
For lngZeile = 2 To lngZeileMax
If Tabelle5.Cells(9, lngZeile) = "Offen" Or "Erledigt" Then
Sheets("ProjektZeitplan").Cells(lngZeileGant, 1).Value = Tabelle5.Cells(2, _
_
_
lngZeile)
lngZeileGant = Sheets("ProjektZeitplan").UsedRange.Rows.Count + 1
Next lngZeile
Else: Next lngZeile
End If
End With
End Sub
Hilfe? ;-) Ich bin tatsächlich recht grün hinter meinen VBA Ohren ... aber bekomme schon kleinere Makros hin ...
Danke und viele Grüße
Dominik