Thema Datum  Von Nutzer Rating
Antwort
Rot 3 Zellen addieren und als Formel hinterlegen
 07.12.2015 16:08:58 Carsten
NotSolved
07.12.2015 16:55:20 Gast18008
NotSolved
07.12.2015 17:15:18 Gast36844
NotSolved

Ansicht des Beitrags:
Von:
Carsten		 Datum:
07.12.2015 16:08:58		 Views:
1180		 Rating:
     
Antwort:
  Ja
Thema:
3 Zellen addieren und als Formel hinterlegen

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.

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    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"
            <strong>Cells(Zeile, Spalte + 14).Formula = "=Cells(Zeile, Spalte + 12) - Cells(Zeile, Spalte + 1) - Cells(Zeile, Spalte + 13)"
</strong>            Cells(Zeile, Spalte + 14).NumberFormat = "hh:mm"
    End Select

I

ch sag schonmal Danke

 

Gruß Carsten

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot 3 Zellen addieren und als Formel hinterlegen
 07.12.2015 16:08:58 Carsten
NotSolved
07.12.2015 16:55:20 Gast18008
NotSolved
07.12.2015 17:15:18 Gast36844
NotSolved