Schleife: Wenn Bedinung erfüllt - füge neues Blatt
18.05.2006 15:31:13
Sophie
Zerbreche schon seit Tagen den Kopf. Möglicherweise versuche ich was unmögliches zu erzwingen...
Also, ich möchte die Werte in den Zellen E7, E9, E11 ... bis E35 auslesen. Die Werte können 1, 2 oder 3 sein (sind auswählbar in einem Kombinationsfeld).
Falls der Wert der Zelle Falls der Wert der Zelle 3 ist, gehe bitte zu der nächsten Zelle, solange bis E35 erreicht ist.
Danach markiere, liebe VBA, alle neu eingefügten Blätter und gebe sie alle in Druckansicht aus.
Ich habe was probiert, aber es funktioniert bei mir nicht...
Vielleicht hat jemand eine Idee.
Wäre sehr-sehr dankbar!!!
LG
Sophie
Sub Makro1()
Dim i As Range
Dim Ende As Range
For i = E7 To Ende
If i < 3 Then
Set NewSheet = Worksheets.Add
NewSheet.Activate
Range("A1").Select
ActiveSheet.Pictures.Insert("C:\Dokumente und Einstellungen\E7.jpg").Select
ActiveWindow.SelectedSheets.PrintPreview
Else
i = i + 2
End If
End Sub