|
For x = 2 To 7
If ThisWorkbook.Worksheets("Daten").Cells(x, 4) <> "" Then
ThisWorkbook.Worksheets("Copy").Copy before:=ThisWorkbook.Worksheets("Copy")
ActiveSheet.Name = "Blatt" & x
anr = ThisWorkbook.Worksheets("Daten").Range("A" & x)
ann = ThisWorkbook.Worksheets("Daten").Range("B" & x)
vna = anr & " " & ann
ThisWorkbook.Worksheets("Daten").Range("H1").Value = x
ThisWorkbook.Worksheets("Blatt" & x).Range("B6").Value = vna
If ThisWorkbook.Worksheets("Daten").Range("C" & x).Value <> "" Then
ThisWorkbook.Worksheets("Blatt" & x).Range("B7").Value = "von der Firma"
ThisWorkbook.Worksheets("Blatt" & x).Range("B8").Value = ThisWorkbook.Worksheets("Daten").Range("C" & x).Value
End If
zts = ThisWorkbook.Worksheets("Daten").Range("E" & x) 'hier steht die Startzeit
zte = ThisWorkbook.Worksheets("Daten").Range("F" & x) 'hier steht die Endzeit
Application.OnTime TimeValue(ztx), "Start"
Application.OnTime TimeValue(zty), "Ende"
End If
Next x
Moin M. K.
vielen Dank, war keine schlechte Idee, aber so leider nicht machbar, da die Zeit variabel sein muss
so, wie oben gezeigt, sieht der Code bis jetzt aus....
die Anzahl der Blätter, die eingefügt werden sollen sowie die Start-Zeit, hängen von einer Eingabe in der UF ab...
wenn ich jetzt 2 Blätter hinzufüge, dann wird im ersten Blatt die Zeit unter zts gespeichert....füge ich noch ein weiteres Blatt ein, wird die Variable zts überschrieben. Und das möchte ich gerne verhindern....also so, dass jedes hinzugefügte Blatt seine "eigene" Zeit hat
Gruß Stefan
|