Excel VBA eine definierte Shape bewegen?

Hallo Zusammen,

Ich habe in einem File mit zwei Blättern (Genehmigung und Planung) einen Balken (benannt "Datumsbalken"). Dieser ist jeweils auf dem heutigen Tag fixiert.

Jetzt will ich seine Verschiebung anhand des heutigen Datums automatisieren. Ich bringe jedoch das Makro nicht zum laufen. Was ist mein Fehler?

Sub BalkenSchieben3()
 
    Dim Today As Variant
    Dim Last As Variant
    Dim TodaySheet As Variant
    Dim Difference As Variant
    Dim Form As Shape
 
    Set Form = Sheets("Planung").Shapes.Range("Datumsbalken") '(Array("Datumsbalken")) soll die Shape "Datumsbalken" suchen
    Set Today = Date 'Setzt das heutige Datum
    Set Difference = Sheets("Genehmigung").Range("AO3") 'Setzt den Unterschied zwischen letzter Bearbeitung und Heute
    Set TodaySheet = Sheets("Genehmigung").Range("AK3")
    
        If Difference > 0 Then
            For Difference = 1 To Difference 'Die Anzahl Tagesunterschiede (Difference) entscheidet, wie viele Male der Balken verschoben werden soll.
                With Sheets("Planung")
                    Form.Select
                    Selection.ShapeRange.IncrementLeft 21
                End With
                
            Next
            
            Else
        End If
    
    Set Sheets("Genehmigung").Range("AK3") = Today 'Das heutige Datum wird in die Zelle abgespeichert
    Set Sheets("Genehmigung").Range("AM3") = TodaySheet 'Das letzte Bearbeitungsdatum (vorheriges "Heute") wird abgespeichert, damit die nächste Difference berechnet werden kann
 
End Sub

Vielen Dank im Voraus!

Microsoft Excel, Microsoft Office, programmieren, VBA, Formel
Kann mir jemand bei diesem Excel Problem helfen?

Hallo an alle,
Ich habe folgende Aufgabe:

Es geht um Eine Zeiterfassung.
In Spalte B2 wird eine Anfangszeit eingetragen im Format hh:mm. Im Feld C2 wird die Endzeit eingetragen auch im Format hh:mm. Diese zeigen die Arbeitszeit. Die Endzeit kann jedoch auch nach 00:00 Uhr liegen was trotzdem nur die Arbeitszeit verlängert. Im Feld D2 brauche ich die angefangenen halben Stunden zwischen 06:00 Uhr und 22:00 Uhr. Im Feld E2 sollen die angefangenen halben Stunden nach 22:00 Uhr erscheinen. Die Endzeit kann auch nach 00:00 Uhr liegen. Somit wären es bei einer Arbeitszeit von 15:00 Uhr bis 17:15 Uhr zum Beispiel 5 angefangene halbe Stunden im Feld D2 und 0 angefangene halbe Stunden im Feld E2. Bei einer Arbeitszeit von 21:00 Uhr bis 1:45 Uhr wären es somit 2 angefangene halbe Stunden im Feld D2 und 8 angefangene halbe Stunden im Feld E2. Ich brauche die Formeln für die Felder D2 und E2.

Ich habe folgende Formeln bis jetzt:

D2:

=WENN(B2>=C2;0;WENN(C2<=ZEIT(6;0;0);0;WENN(B2>=ZEIT(22;0;0);0;WENN(B2<ZEIT(6;0;0);WENN(C2<=ZEIT(22;0;0);AUFRUNDEN((C2-ZEIT(6;0;0))*48;0);AUFRUNDEN((ZEIT(22;0;0)-ZEIT(6;0;0))*48;0));WENN(C2<=ZEIT(22;0;0);AUFRUNDEN((C2-ZEIT(6;0;0))*48;0);AUFRUNDEN((ZEIT(22;0;0)-MAX(B2;ZEIT(6;0;0)))*48;0))))))

E2:

=WENN(B2>=C2;0;WENN(C2<=ZEIT(6;0;0);AUFRUNDEN((C2-B2)*48;0);WENN(B2>=ZEIT(22;0;0);WENN(C2<=ZEIT(30;0;0);AUFRUNDEN((C2-B2)*48;0);AUFRUNDEN((C2-ZEIT(22;0;0))*48;0));WENN(C2<=ZEIT(22;0;0);AUFRUNDEN((C2-ZEIT(6;0;0))*48;0);WENN(B2<ZEIT(6;0;0);AUFRUNDEN((ZEIT(30;0;0)-B2)*48;0);AUFRUNDEN((C2-ZEIT(22;0;0)+ZEIT(24;0;0))*48;0))))))

Wie ihr am Bild sehen könnt funktioniert diese gut wenn die Anfangszeit vor 22 Uhr liegt und die Endzeit nach 22 Uhr aber VOR 0 Uhr. Sobald beide Zeiten innerhalb von 06:00 Uhr und 22:00 Uhr liegen kommt ein falsches Ergebnis. Und sobald die Endzeit nach 00:00 Uhr liegt wird einfach in beiden Spalten 0 ausgegeben.

Pls help <3

Bild zum Beitrag
Microsoft Excel, Microsoft Office, Formel, Office 365
Microsoft Excel | Diabook. > Neue Überarbeitung/Hilfe (VBA)?

Guten Abend zusammen.

Bevor ich zum offiziellen Thema komme nochmals ein Vorwort auf der Grundlage eines Beitrages der sinnfrei gelöscht wurde.

Vorwort:

Die Frage dient nicht dafür um hier etwas zu verkaufen sondern dazu um mir im Bereich Office/Excel weiterzuhelfen. Das Diabolic Projekt ist ein Privates und von mir als Besitzer und Eigentümer erstelltes Projekt. Ebenfalls habe ich die AGB von gutefrage.net zur Kenntnis genommen und stimme diesen hiermit Schriftlich zu.

Der letzte Beitrag wurde wegen verdacht auf Verkauf entfernt obwohl ich das HIER und im anderen Beitrag deutlich erwähnt habe. Ich möchte hier nichts Verkaufen.

| Um was handelt es sich nun?

Ich bin selber Diabetiker Typ 1 und wollte ein erstmaliges Projekt erstellen um mein Diabetes auch am Computer (in Excel) Managen zu können. Dazu habe ich in der Vergangenheit auch schon paar Fragen gestellt.

Nun habe ich eine Zeit lang darüber Nachgedacht und bin zum Entschluss gekommen alles "Einheitlich" statt einzeln zu machen. Diabook, Insulinrechner, Nährwertrechner waren noch bis vor ein paar Tagen einzelne Programme in Microsoft Excel Dokument Mappen. Ich habe überlegt und mir viel dann etwas auf. Aufgrund dessen dass ich die Dinge mache um das Leben mit Diabetes einfacher zu machen dachte ich mir: Okay. Dann werde ich doch alles in einer Mappe verarbeiten da die Einzelnen Mappen immer aufwendig sind.

Ich Persönlich verwende schon lange Zeit eine App die vieles miteinander vereint. So soll es auch mit dem was ich vor habe werden.

| Weiteres:

Ich möchte das alles im Prinzip erneuern. Ich habe leider nur wenig bis minimale Kenntnisse im Bereich "Microsoft Excel" und habe schon paar Ideen die ich nur zum Teil umsetzen kann weil mir dafür das Wissen & Erfahrung fehlt und ich deshalb diesen Beitrag erstelle um danach zu Fragen.

| Vorstellung & Idee/n:

Meine Ideen und Vorstellungen in diesem Projekt sind naja irgendwie zu Groß weshalb ich bezweifle das es möglich sein wird alles in Excel umsetzten zu können.

Ich habe mich schon bei YouTube umgesehen und kam leider zu keinem Video das mir dass zeigen würde was ich so bräuchte. Ich hätte aber gerne Folgendes:

  • Startseite: Erweiterungen um in der linken Leiste alles ein und zuklappen zu können. Dies ebenfalls beim Nährwertrechner mit mehreren Mappen um dort verschiedene Kategorien für Lebensmittel anzulegen. Auch beim nachkommenden Rezeptrechner um dort ebenfalls Kategorien anlegen zu können.
  • Favoriten: Wichtig beim Nährwert/Rezeptrechner um Lebensmittel oder Rezepte schneller zu finden.
  • Mappen in Mappen: Ich hätte außerdem gerne die Funktion das ich zb. in der Mappe Nährwertrechner weitere Mappen erstellen kann un das überall.
  • Nährwertrechner(Suche): Ich hätte außerdem gerne das man oben eine Leiste hat um alle Lebensmittel und Rezepte zu finden. Diese sollen dann in einer Liste dort oder dann im Nährwertrechner angezeigt werden. Auch ins Tagebuch übertragbar sein.

Es ist zu viel. Bräuchte man dafür VBA oder geht das ohne? Danke im Voraus! :)

Bild zum Beitrag
PC, Computer, Software, Windows, Microsoft, Office, Visual Basic, Microsoft Excel, Technik, IT, VBA
Sinnvolles Tabellenlayout?

Hallo,

ich will eine Stationstabelle erstellen, sprich es werden alle belegten Betten einer Station angezeigt. das Problem ist das möglichst alle Betten auf einem Blick sichtbar sein sollen und das auf Bildschirm mit geringer Auflösung also kein HD. Dabei hat mein Chef mir die Informationen die enthalten sein sollen vorgegeben. Derzeit habe ich es so gemacht dass jede Spalte ein belegtes Bett ist.

Dies ist mein Tabellenkopf mit Beispiel Datensatz:

St./Zi./Bett Pat. Name/ Pat. Info Fallid/ Fall Info (Stückzahl)Befund

33/03/t Mustermann,Max 123456789 (2St.)Labor, (1St.)mibi,(St.)xy

Patnr. 9876543 Befundart Labor (aktiv)

Labor(befundet)

....

....

nun ist bei Pat. Name/ Pat. Info und Fallid/ Fall Info habe ich eine Bootstrap aufklappbar hinzugefügt wo weite Informationen zum Patienten und fall angezeigt werden. Damit werden quasi weitere Zeilen eingefügt wenn sie gebraucht werden und wieder ausgeblendet wenn sie nicht gebraucht werden. Außerdem werden ebenfalls bei einem klick besipielsweise auf Labor weitere Zeilen mit den einzelnen Laboreinträgen oder den einzelnen sonstwas Einträgen. Dort wird dann auch festgehalten ob sie aktiv ,angefordert, vidirt oder befundet sind.

ich suche ein möglichst effizientes Tabellenlayout das gut verständlich ist, z.B. wenn Ärzte oder Schwestern die wenig Zeit haben sich nicht vertuen oder die Tabelle nicht verstehen. Kennt sich jemmand mit Tabellenlayouts aus oder kann mir Tipps geben wo ich informationen dazu herbekomme herbekomme?

Microsoft Excel, Tabelle

Meistgelesene Fragen zum Thema Microsoft Excel