05.02.2017, 14:29
Auch das drucken der Blätter welche mit gewählt in Spalte I klappt noch nicht ganz.
In Liste [Blatt 'Objekte'] Spalte D (=Blattnamen) ab Zeile 7 und I:
In Liste [Blatt 'Objekte'] Spalte D (=Blattnamen) ab Zeile 7 und I:
Code:
Private Sub CommandButton1_Click()
'Mit dem Blatt Objekte
With Sheets("Objekte")
'Schleife ueber alle Eintraege in Spalte D ab Zeile 7
For iCnt = 4 To .Cells(Rows.Count, 7).End(xlUp).Row
'Wenn in Spalte I ein x, dann
If .Cells(iCnt, 9) = "x" Then
ReDim Preserve varSelectedSheets(lngCounter)
'Blattname aus Spalte D uebernehmen
varSelectedSheets(lngCounter) = .Cells(iCnt, 4)
lngCounter = lngCounter + 1
'Ende Wenn in Spalte I ein x, dann
End If
'Ende Schleife ueber alle Eintraege in Spalte D ab Zeile 7
Next
'Ende Mit dem Blatt Objekte
End With
End Sub