Hallo,
bin noch am erlernen von VBA und bin jetzt auf mein erstes nicht selbst lösbares Problem gestoßen.
Ich denke einige von euch können mir in ein paar Sekunden die Lösung sagen, weil es so lächerlich einfach ist :)
Es geht um die drittletzte Zeile:
Diese soll den Wert aus Spalte 12 nehmen und die Werte aus 1 und 13 davon abziehen, und das als Formel hinterlegen, sodass wenn ich später in Excel die Zeit von 9:00 auf 9.20 ändere, es automatisch in Spalte 14 übernommen wird.
So wie es jetzt ist, schreibt das Programm in Excel genau so die Zeile als Formel hin, ohne das etwas berechnet wird.
Select Case Weekday(Datum)
Case vbSunday, vbSaturday
Cells(Zeile, Spalte).Font.Color = vbRed
Cells(Zeile, Spalte + 1).Value = ""
Range(Cells(Zeile, Spalte + 1), Cells(Zeile, Spalte + 17)).Value = ""
Case vbMonday, vbTuesday, vbWednesday, vbThursday, vbFriday
Cells(Zeile, Spalte + 1).NumberFormat = "hh:mm"
Cells(Zeile, Spalte + 1).Value = "09:00"
Cells(Zeile, Spalte + 12).NumberFormat = "hh:mm"
Cells(Zeile, Spalte + 12).Value = "17:00"
Cells(Zeile, Spalte + 13).NumberFormat = "hh:mm"
Cells(Zeile, Spalte + 13).Value = "00:30"
Cells(Zeile, Spalte + 14).Formula = "=Cells(Zeile, Spalte + 12) - Cells(Zeile, Spalte + 1) - Cells(Zeile, Spalte + 13)"
Cells(Zeile, Spalte + 14).NumberFormat = "hh:mm"
End Select
I
ch sag schonmal Danke
Gruß Carsten
|