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

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?

Excel Formel zur Berechnung von Eingang Email zu Auslieferung

Wie erstelle ich ein Makro, das eine PDF-Datei aus einer Excel-Tabelle erstellt und in einem bestimmten Ordner speichert?

=LÄNGE('274_BBK_Ust'!$B6) ?

Wie kann man den Textinhalt von Zelle A17 mit B17 in einer neuen Zelle abfragen?

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

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.

Accepted Answer

Um in Excel die Differenz zwischen einem Datum und einer Uhrzeit (z.B. "Eingang Email") und einem anderen Datum (z.B. "Auslieferung") zu berechnen, kannst du die folgende Formel ve... [mehr]

Accepted Answer

Um in Excel die Differenz zwischen einem Datum und einer Uhrzeit (z.B. "Eingang Email") und einem anderen Datum (z.B. "Auslieferung") zu berechnen, kannst du die folgende Formel verwenden: Angenommen, das Datum und die Uhrzeit des Eingangs der E-Mail stehen in Zelle A1 und das Datum der Auslieferung in Zelle B1. Die Formel zur Berechnung der Differenz in Tagen wäre: ```excel =B1 - A1 ``` Wenn du die Differenz in Tagen, Stunden und Minuten anzeigen möchtest, kannst du die folgende Formel verwenden: ```excel =TEXT(B1 - A1, "Tage: 0; Stunden: 0; Minuten: 0") ``` Stelle sicher, dass die Zellen A1 und B1 im richtigen Datumsformat formatiert sind, damit Excel die Berechnungen korrekt durchführen kann.

Accepted Answer

Um ein Makro zu erstellen, das eine PDF-Datei aus einer Excel-Tabelle erstellt und in einem bestimmten Ordner speichert, kannst du den folgenden VBA-Code verwenden. Dieser Code geht davon aus, dass du... [mehr]

Accepted Answer

Um ein Makro zu erstellen, das eine PDF-Datei aus einer Excel-Tabelle erstellt und in einem bestimmten Ordner speichert, kannst du den folgenden VBA-Code verwenden. Dieser Code geht davon aus, dass du die Excel-Datei bereits geöffnet hast und die Tabelle, die du als PDF speichern möchtest, aktiv ist. 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. Füge den folgenden Code in das Modul ein: ```vba Sub ExportAsPDF() Dim ws As Worksheet Dim pdfPath As String ' Setze das Arbeitsblatt, das du als PDF speichern möchtest Set ws = ThisWorkbook.Sheets("NameDeinesBlattes") ' Ändere "NameDeinesBlattes" entsprechend ' Definiere den Speicherort und den Dateinamen pdfPath = "C:\DeinOrdner\DeineDatei.pdf" ' Ändere den Pfad und Dateinamen entsprechend ' Exportiere das Arbeitsblatt als PDF ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False MsgBox "PDF wurde erfolgreich erstellt und gespeichert!" End Sub ``` 4. Ändere `"NameDeinesBlattes"` in den Namen des Arbeitsblatts, das du speichern möchtest, und passe den `pdfPath` an den gewünschten Speicherort und Dateinamen an. 5. Schließe den VBA-Editor und gehe zurück zu Excel. 6. Drücke `ALT + F8`, wähle `ExportAsPDF` aus der Liste und klicke auf `Ausführen`. Das Makro erstellt nun eine PDF-Datei des angegebenen Arbeitsblatts und speichert sie im angegebenen Ordner.

Accepted Answer

Die Funktion `=LÄNGE('274_BBK_Ust'!$B6)` in Excel gibt die Anzahl der Zeichen in der Zelle B6 des Arbeitsblatts "274_BBK_Ust" zurück. Wenn du diese Formel in eine Zelle e... [mehr]

Accepted Answer

Die Funktion `=LÄNGE('274_BBK_Ust'!$B6)` in Excel gibt die Anzahl der Zeichen in der Zelle B6 des Arbeitsblatts "274_BBK_Ust" zurück. Wenn du diese Formel in eine Zelle eingibst, wird die Länge des Textes, der sich in der angegebenen Zelle befindet, als Zahl angezeigt.

Accepted Answer

Um den Textinhalt von Zelle A17 mit dem von B17 in einer neuen Zelle abzufragen, kannst du die Funktion `WENN` verwenden. Angenommen, du möchtest das Ergebnis in Zelle C17 anzeigen, könntest... [mehr]

Accepted Answer

Um den Textinhalt von Zelle A17 mit dem von B17 in einer neuen Zelle abzufragen, kannst du die Funktion `WENN` verwenden. Angenommen, du möchtest das Ergebnis in Zelle C17 anzeigen, könntest du folgende Formel verwenden: ```excel =WENN(A17=B17; "Gleich"; "Ungleich") ``` Diese Formel prüft, ob der Inhalt von A17 gleich dem Inhalt von B17 ist. Wenn ja, wird "Gleich" angezeigt, andernfalls "Ungleich". Du kannst den Text in den Anführungszeichen nach Bedarf anpassen.