Muss vor Makrostart eine Excel-Zelle auf heute minus 1 Tag angepasst werden?

Question

Muss vor Makrostart eine Excel-Zelle auf heute minus 1 Tag angepasst werden?

Antwort

Verwandte Fragen

Wie formuliere ich in Excel eine Formel, um nur Werte zwischen zwei Datumswerten auszuwerten?

Wie kann ich per Makro in Excel die Werte aus K2, L5 und M5 als neuen Eintrag in eine intelligente Tabelle übertragen?

Wie kann ich mit VBA die Zelle mit dem Namen 'Konto' auswählen?

Welche Excelformel liefert das Jahr des nächsten 30.06.?

Warum erkennt mein Excel VBA-Makro das Datum im Arbeitsplan nicht, obwohl es als Datum hinterlegt ist, aber in einer anderen Tabelle als Zahl angezeigt wird?

Excel Makro Autofilter alles außer bestimmten Eintrag auswählen

Excel: Text aus einer anderen Zelle in einer Formel eintragen?

Wie fügt man in Excel neben einer Zahl ein Wort in derselben Zelle hinzu?

Wie berechne ich in Excel ein bestimmtes Datum?

Excel Zelle formatieren abhängig von einer anderen Zelle?

Accepted Answer

Um in Excel eine Zelle so anzupassen, dass sie das Datum von heute minus 1 Tag anzeigt, kannst du die folgende Formel verwenden: 1. Wähle die Zelle aus, die du anpassen möchtest. 2. Gib die folgende Formel ein: ```excel =HEUTE()-1 ``` Diese Formel gibt das Datum von gestern zurück. Wenn du das Makro dann startest, wird die Zelle automatisch auf das gewünschte Datum aktualisiert.

Accepted Answer

Um in Excel nur Werte zwischen zwei Datumswerten zu berücksichtigen, kannst du die Funktion `WENN` (bzw. `IF` im Englischen) in Kombination mit logischen Operatoren verwenden. Häufig wird au... [mehr]

Accepted Answer

Um in Excel nur Werte zwischen zwei Datumswerten zu berücksichtigen, kannst du die Funktion `WENN` (bzw. `IF` im Englischen) in Kombination mit logischen Operatoren verwenden. Häufig wird auch `SUMMEWENN` oder `ZÄHLENWENN` bzw. deren Versionen mit mehreren Bedingungen (`SUMMEWENNS`, `ZÄHLENWENNS`) genutzt. **Beispiel:** Angenommen, in Spalte A stehen die Datumswerte und in Spalte B die zugehörigen Zahlen. Du möchtest die Werte aus Spalte B nur dann berücksichtigen, wenn das Datum in Spalte A zwischen dem 01.01.2024 und dem 31.01.2024 liegt. **Formel für eine einzelne Bedingung (z.B. in C2):** ```excel =WENN(UND(A2>=DATUM(2024;1;1);A2<=DATUM(2024;1;31));B2;"") ``` Diese Formel gibt den Wert aus B2 nur dann zurück, wenn das Datum in A2 im Januar 2024 liegt. **Formel für die Summe aller Werte zwischen zwei Datumswerten:** ```excel =SUMMEWENNS(B:B;A:A;">=01.01.2024";A:A;"<=31.01.2024") ``` Hier werden alle Werte aus Spalte B summiert, deren Datum in Spalte A zwischen dem 01.01.2024 und dem 31.01.2024 liegt. **Hinweis:** Statt fest eingetragener Datumswerte kannst du auch Zellen mit Datumsangaben verwenden, z.B.: ```excel =SUMMEWENNS(B:B;A:A;">="&D1;A:A;"<="&E1) ``` wobei in D1 das Startdatum und in E1 das Enddatum steht. **Weitere Infos zu den Funktionen:** - [SUMMEWENNS (Microsoft)](https://support.microsoft.com/de-de/office/summewenns-funktion-c9e748f5-7ea7-455d-9406-611cebce642b) - [WENN-Funktion (Microsoft)](https://support.microsoft.com/de-de/office/wenn-funktion-5fd2b9dc-14a0-4ee8-944b-2f7b2b8a8b3e) So kannst du Bedingungen für Datumsbereiche in Excel-Formeln umsetzen.

Accepted Answer

Um Werte aus den Zellen K2, L5 und M5 als neuen Eintrag in eine intelligente Tabelle (auch als "Excel-Tabelle" oder "ListObject" bezeichnet) zu übertragen, kannst du folgenden... [mehr]

Accepted Answer

Um Werte aus den Zellen K2, L5 und M5 als neuen Eintrag in eine intelligente Tabelle (auch als "Excel-Tabelle" oder "ListObject" bezeichnet) zu übertragen, kannst du folgenden VBA-Code verwenden. Er fügt eine neue Zeile am Ende der Tabelle hinzu und trägt die Werte dort ein. Angenommen, deine Tabelle heißt **"Tabelle1"** (den Tabellennamen findest du unter "Tabellentools" → "Tabellendesign" → "Tabellenname"). Passe den Namen ggf. an. ```vba Sub WerteInTabelleEinfuegen() Dim ws As Worksheet Dim tbl As ListObject Dim neueZeile As ListRow Set ws = ThisWorkbook.Sheets("Tabelle1") ' Blattname ggf. anpassen Set tbl = ws.ListObjects("Tabelle1") ' Tabellenname ggf. anpassen Set neueZeile = tbl.ListRows.Add ' Werte in die erste, zweite und dritte Spalte der Tabelle eintragen neueZeile.Range(1, 1).Value = ws.Range("K2").Value neueZeile.Range(1, 2).Value = ws.Range("L5").Value neueZeile.Range(1, 3).Value = ws.Range("M5").Value End Sub ``` **Hinweise:** - Ersetze `"Tabelle1"` durch den tatsächlichen Namen deiner Tabelle. - Die Werte werden in die ersten drei Spalten der Tabelle geschrieben. Falls deine Tabelle anders aufgebaut ist, passe die Indizes `(1, 1)`, `(1, 2)`, `(1, 3)` entsprechend an. - Das Makro kannst du im VBA-Editor (Alt+F11) in ein Modul einfügen. Weitere Infos zu intelligenten Tabellen findest du bei [Microsoft](https://support.microsoft.com/de-de/office/verwenden-von-excel-tabellen-zur-verwalten-von-daten-7ab0bb7d-3a9e-4b56-a3c9-6c94334e492c).

Accepted Answer

Um in VBA eine Zelle mit dem Namen „Konto“ auszuwählen, kannst du den Namen direkt über das `Range`-Objekt ansprechen. Voraussetzung ist, dass der Name „Konto“ als be... [mehr]

Accepted Answer

Um in VBA eine Zelle mit dem Namen „Konto“ auszuwählen, kannst du den Namen direkt über das `Range`-Objekt ansprechen. Voraussetzung ist, dass der Name „Konto“ als benannter Bereich in deiner Arbeitsmappe existiert. Hier ein Beispielcode: ```vba Range("Konto").Select ``` Falls du dichergehen möchtest, dass der Name existiert, kannst du es so absichern: ```vba Dim nm As Name On Error Resume Next Set nm = ThisWorkbook.Names("Konto") On Error GoTo 0 If Not nm Is Nothing Then Range("Konto").Select Else MsgBox "Der benannte Bereich 'Konto' existiert nicht." End If ``` **Hinweis:** - Der Code funktioniert nur, wenn der Name „Konto“ eindeutig ist und sich auf eine einzelne Zelle bezieht. - In modernen Excel-Versionen ist die Verwendung von `.Select` oft nicht nötig, da du direkt mit dem Bereich arbeiten kannst. Weitere Infos zu benannten Bereichen findest du bei [Microsoft](https://support.microsoft.com/de-de/office/definieren-und-verwenden-von-namen-in-formeln-bd4224d2-167d-4a9a-8454-1c2d3786e99f).

Accepted Answer

Um das Jahr des nächsten 30.06. (30. Juni) basierend auf dem aktuellen Datum zu ermitteln, kannst du folgende Excel-Formel verwenden: ```excel =JAHR(HEUTE()) + (HEUTE()>DATUM(JAHR(HEUTE());6;... [mehr]

Accepted Answer

Um das Jahr des nächsten 30.06. (30. Juni) basierend auf dem aktuellen Datum zu ermitteln, kannst du folgende Excel-Formel verwenden: ```excel =JAHR(HEUTE()) + (HEUTE()>DATUM(JAHR(HEUTE());6;30)) ``` **Erklärung:** - `HEUTE()` gibt das aktuelle Datum zurück. - `DATUM(JAHR(HEUTE());6;30)` erzeugt den 30.06. des aktuellen Jahres. - `HEUTE()>DATUM(JAHR(HEUTE());6;30)` prüft, ob das heutige Datum nach dem 30.06. liegt. Ist das der Fall, ergibt der Ausdruck 1 (WAHR), sonst 0 (FALSCH). - Das Ergebnis wird zum aktuellen Jahr addiert, sodass du das Jahr des nächsten 30.06. erhältst. **Beispiel:** - Ist heute der 15.06.2024, ergibt die Formel 2024. - Ist heute der 01.07.2024, ergibt die Formel 2025.

Accepted Answer

Das Problem liegt sehr wahrscheinlich an der Art, wie Excel intern mit Datumswerten umgeht. Ein Datum in Excel ist eigentlich eine Zahl (z.B. 45123 für den 01.09.2023), aber die Anzeige kann unte... [mehr]

Accepted Answer

Das Problem liegt sehr wahrscheinlich an der Art, wie Excel intern mit Datumswerten umgeht. Ein Datum in Excel ist eigentlich eine Zahl (z.B. 45123 für den 01.09.2023), aber die Anzeige kann unterschiedlich sein – als Zahl, als Datum, als Text. Wenn du ein Datum per Formel erzeugst (z.B. `=A1` oder `=DATUM(...)`), kann es sein, dass beim Kopieren oder beim Vergleich mit VBA Unterschiede auftreten, insbesondere wenn das eine Feld als Zahl und das andere als Text formatiert ist. **Typische Ursachen und Lösungen:** ### 1. Unterschiedliche Formate (Datum vs. Text) - **Problem:** In `wsQuell.Range("B8")` steht das Datum als Zahl, im Arbeitsplan ist es vielleicht als Text oder per Formel erzeugt. - **Lösung:** Stelle sicher, dass beide Werte als Datum (also als Zahl) vorliegen. Du kannst das in VBA erzwingen: ```vba datumToFind = CLng(wsQuell.Range("B8").Value) ``` und beim Suchen: ```vba Set rGef = wsZiel.Columns("A").Find(What:=datumToFind, LookIn:=xlValues, LookAt:=xlWhole) ``` ### 2. Zeitanteil im Datum - **Problem:** Ein Datum kann auch eine Uhrzeit enthalten (z.B. 01.09.2023 00:00:00 vs. 01.09.2023 12:00:00). Das sieht gleich aus, ist aber intern unterschiedlich. - **Lösung:** Beim Vergleich nur das Datum nehmen: ```vba datumToFind = Int(wsQuell.Range("B8").Value) ``` und beim Suchen: ```vba Set rGef = wsZiel.Columns("A").Find(What:=datumToFind, LookIn:=xlValues, LookAt:=xlWhole) ``` ### 3. Formelzellen - **Problem:** In der Zieltabelle steht das Datum als Formel, z.B. `=Tabelle1!A1`. Das ist aber für den Wertvergleich egal, solange der Wert ein Datum ist. - **Lösung:** Prüfe, ob in der Zieltabelle wirklich ein Datum steht (kein Text!). Teste das z.B. mit: ```vba Debug.Print wsZiel.Cells(1, "A").Value, IsDate(wsZiel.Cells(1, "A").Value) ``` ### 4. Find-Methode: LookIn-Parameter - **Problem:** `LookIn:=xlValues` ist meist richtig, aber manchmal hilft auch `xlFormulas`. - **Lösung:** Teste beide Varianten: ```vba Set rGef = wsZiel.Columns("A").Find(What:=datumToFind, LookIn:=xlValues, LookAt:=xlWhole) If rGef Is Nothing Then Set rGef = wsZiel.Columns("A").Find(What:=datumToFind, LookIn:=xlFormulas, LookAt:=xlWhole) End If ``` --- **Zusammengefasst:** - Stelle sicher, dass du wirklich mit Zahlen (Datumswerten) vergleichst, nicht mit Text. - Nutze `CLng` oder `Int`, um den Zeitanteil zu entfernen. - Probiere ggf. beide `LookIn`-Varianten. - Prüfe mit `IsDate`, ob in beiden Zellen wirklich ein Datum steht. **Beispiel für robusten Vergleich:** ```vba Dim datumToFind As Long datumToFind = CLng(wsQuell.Range("B8").Value) Dim cell As Range For Each cell In wsZiel.Columns("A").Cells If CLng(cell.Value) = datumToFind Then Set rGef = cell Exit For End If Next cell ``` Das ist zwar etwas langsamer als `.Find`, aber sehr robust. --- **Tipp:** Wenn du weiterhin Probleme hast, prüfe die Werte mit `Debug.Print` im Direktfenster, um zu sehen, wie sie intern aussehen. --- **Weitere Infos zu Excel-Datumswerten:** [Microsoft: Arbeiten mit Datumsangaben und Uhrzeiten in Excel](https://support.microsoft.com/de-de/office/arbeiten-mit-datumsangaben-und-uhrzeiten-in-excel-9ffb6c2f-2c42-4b53-9573-2b8b0a77b3c0) --- Falls du einen bestimmten Wert als Beispiel hast, kannst du ihn im Direktfenster (`Debug.Print wsQuell.Range("B8").Value`) ausgeben und vergleichen, wie er in der Zieltabelle aussieht.

Accepted Answer

Um in Excel ein Makro zu schreiben, das im Autofilter alles auswählt, außer eines bestimmten Eintrags, kannst du den folgenden VBA-Code verwenden. Dieser Code geht davon aus, dass du bereit... [mehr]

Accepted Answer

Um in Excel ein Makro zu schreiben, das im Autofilter alles auswählt, außer eines bestimmten Eintrags, kannst du den folgenden VBA-Code verwenden. Dieser Code geht davon aus, dass du bereits einen Autofilter auf deine Daten angewendet hast. 1. Öffne Excel und drücke `ALT + F11`, um den VBA-Editor zu öffnen. 2. Klicke auf `Einfügen` und wähle `Modul`, um ein neues Modul zu erstellen. 3. Kopiere den folgenden Code in das Modul: ```vba Sub FilterExceptOneEntry() Dim ws As Worksheet Dim filterRange As Range Dim criteria As String ' Setze das Arbeitsblatt und den Filterbereich Set ws = ThisWorkbook.Sheets("DeinBlattName") ' Ersetze "DeinBlattName" mit dem Namen deines Arbeitsblatts Set filterRange = ws.Range("A1").CurrentRegion ' Ersetze "A1" mit der Zelle, die den Autofilter enthält ' Setze das Kriterium, das ausgeschlossen werden soll criteria = "EintragZumAusschließen" ' Ersetze "EintragZumAusschließen" mit dem Eintrag, den du ausschließen möchtest ' Wende den Autofilter an With filterRange .AutoFilter Field:=1, Criteria1:="<> " & criteria ' Ersetze "1" mit der entsprechenden Spaltennummer End With End Sub ``` 4. Ersetze `DeinBlattName` mit dem Namen deines Arbeitsblatts und `EintragZumAusschließen` mit dem spezifischen Eintrag, den du ausschließen möchtest. Achte darauf, die Spaltennummer im `Field`-Parameter entsprechend anzupassen. 5. Schließe den VBA-Editor und gehe zurück zu Excel. 6. Drücke `ALT + F8`, wähle `FilterExceptOneEntry` aus der Liste und klicke auf `Ausführen`. Das Makro filtert nun alle Einträge in der angegebenen Spalte, außer dem, den du ausgeschlossen hast.

Accepted Answer

Um in Excel den Text aus einer anderen Zelle in eine Formel einzutragen, kannst du die Verknüpfung mit der Zelle herstellen. Angenommen, der Text steht in Zelle A1 und du möchtest diesen Tex... [mehr]

Accepted Answer

Um in Excel den Text aus einer anderen Zelle in eine Formel einzutragen, kannst du die Verknüpfung mit der Zelle herstellen. Angenommen, der Text steht in Zelle A1 und du möchtest diesen Text in Zelle B1 verwenden. Du kannst einfach die folgende Formel in Zelle B1 eingeben: ``` =A1 ``` Wenn du den Text aus A1 in eine andere Formel einfügen möchtest, kannst du das ebenfalls tun. Zum Beispiel, wenn du den Text aus A1 in eine CONCATENATE-Funktion einfügen möchtest, könntest du Folgendes verwenden: ``` =CONCATENATE("Der Text ist: ", A1) ``` Alternativ kannst du auch die `&`-Operator verwenden: ``` ="Der Text ist: " & A1 ``` Diese Formeln übernehmen den Text aus A1 und fügen ihn in die gewünschte Formel ein.

Accepted Answer

In Excel kannst du in derselben Zelle eine Zahl und ein Wort kombinieren, indem du die Zahl und das Wort mit dem Zeichen "&" oder der Funktion "VERKETTEN" verbindest. Hier sind... [mehr]

Accepted Answer

In Excel kannst du in derselben Zelle eine Zahl und ein Wort kombinieren, indem du die Zahl und das Wort mit dem Zeichen "&" oder der Funktion "VERKETTEN" verbindest. Hier sind zwei Methoden: 1. **Mit dem "&"-Zeichen**: Angenommen, du hast die Zahl in Zelle A1 und möchtest das Wort "Stück" hinzufügen. Du kannst in eine andere Zelle die folgende Formel eingeben: ``` =A1 & " Stück" ``` 2. **Mit der Funktion "VERKETTEN"**: Du kannst auch die Funktion "VERKETTEN" verwenden: ``` =VERKETTEN(A1; " Stück") ``` In beiden Fällen wird das Ergebnis in der Zelle angezeigt, und du kannst die Zelle nach Bedarf formatieren.

Accepted Answer

Um in Excel ein bestimmtes Datum zu berechnen, kannst du verschiedene Funktionen verwenden, je nach dem, was genau du erreichen möchtest. Hier sind einige gängige Methoden: 1. **Ein bestimm... [mehr]

Accepted Answer

Um in Excel ein bestimmtes Datum zu berechnen, kannst du verschiedene Funktionen verwenden, je nach dem, was genau du erreichen möchtest. Hier sind einige gängige Methoden: 1. **Ein bestimmtes Datum eingeben**: Du kannst einfach ein Datum in eine Zelle eingeben, z.B. `01.01.2023`. 2. **Datum mit der Funktion `DATUM` erstellen**: Du kannst die Funktion `DATUM(Jahr; Monat; Tag)` verwenden, um ein Datum zu erstellen. Beispiel: `=DATUM(2023; 1; 1)` ergibt den 1. Januar 2023. 3. **Datum berechnen, indem du Tage hinzufügst**: Wenn du ein Datum hast und eine bestimmte Anzahl von Tagen hinzufügen möchtest, kannst du einfach die Zahl zu dem Datum addieren. Beispiel: Wenn in Zelle A1 der 01.01.2023 steht, kannst du `=A1 + 30` verwenden, um den 31. Januar 2023 zu erhalten. 4. **Datum berechnen mit `HEUTE()`**: Wenn du das aktuelle Datum verwenden möchtest, kannst du die Funktion `HEUTE()` nutzen. Beispiel: `=HEUTE() + 30` gibt das Datum in 30 Tagen an. 5. **Datum berechnen mit `DATEDIF`**: Um die Differenz zwischen zwei Daten zu berechnen, kannst du die Funktion `DATEDIF(Startdatum; Enddatum; "Einheit")` verwenden. Beispiel: `=DATEDIF(A1; B1; "d")` gibt die Anzahl der Tage zwischen den Daten in A1 und B1 zurück. Diese Methoden sollten dir helfen, mit Datumsberechnungen in Excel zu arbeiten.

Accepted Answer

Um eine Excel-Zelle in Abhängigkeit von einer anderen Zelle zu formatieren, kannst du die bedingte Formatierung verwenden. Hier sind die Schritte: 1. **Zelle auswählen**: Wähle die Zel... [mehr]

Accepted Answer

Um eine Excel-Zelle in Abhängigkeit von einer anderen Zelle zu formatieren, kannst du die bedingte Formatierung verwenden. Hier sind die Schritte: 1. **Zelle auswählen**: Wähle die Zelle oder den Zellbereich aus, den du formatieren möchtest. 2. **Bedingte Formatierung öffnen**: Gehe im Menüband auf die Registerkarte „Start“ und klicke auf „Bedingte Formatierung“. 3. **Neue Regel erstellen**: Wähle „Neue Regel“ aus. 4. **Regeltyp auswählen**: Wähle „Formel zur Ermittlung der zu formatierenden Zellen verwenden“. 5. **Formel eingeben**: Gib die Formel ein, die die Bedingung beschreibt. Zum Beispiel, wenn du die Zelle A1 formatieren möchtest, abhängig vom Wert in B1, könntest du eine Formel wie `=B1="Ja"` verwenden. 6. **Format festlegen**: Klicke auf „Formatieren“, um das gewünschte Format (z.B. Schriftfarbe, Hintergrundfarbe) auszuwählen. 7. **Regel anwenden**: Bestätige die Eingaben und schließe die Dialoge. Jetzt wird die Formatierung der ausgewählten Zelle(n) basierend auf dem Wert in der anderen Zelle automatisch angepasst.