238 Fragen zu Excel

Um in Excel in eine Formel nur den Wert der Zelle **I15** einzufügen, gib einfach **=I15** in die gewünschte Zelle ein. Dadurch wird der aktuelle Wert aus Zelle I15 übernommen und angezeigt. Beispiel: - Schreibe in eine beliebige Zelle: `=I15` Wenn du den Wert von I15 in einer anderen Berechnung verwenden möchtest, kannst du ihn ebenfalls direkt in die Formel einbauen, z.B.: - `=I15 + 10` (addiert 10 zum Wert aus I15) - `=I15 * 2` (verdoppelt den Wert aus I15) **Hinweis:** Mit `=I15` wird immer der aktuelle Wert aus I15 übernommen. Wenn du stattdessen den Wert einmalig (als festen Wert) übernehmen möchtest, kopiere I15 und füge ihn mit „Inhalte einfügen“ → „Werte“ ein. Dann steht der Wert als Zahl in der Zelle, nicht mehr als Bezug.

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.

Du kannst folgende Formel verwenden, um die Anzahl der Tage von heute bis zum 30.06. des Jahres, das in Zelle B18 steht, zu berechnen: ```excel =DATUM(B18;6;30)-HEUTE() ``` **Erläuterung:** - `DATUM(B18;6;30)` erstellt das Datum 30.06. des Jahres, das in Zelle B18 steht. - `HEUTE()` gibt das heutige Datum zurück. - Die Subtraktion ergibt die Anzahl der Tage zwischen heute und dem 30.06. des angegebenen Jahres. **Hinweis:** Wenn das Ergebnis negativ ist, liegt der 30.06. bereits in der Vergangenheit.

Der Ausdruck ```vba ThisWorkbook.Names("z06_a1401111_Bericht").RefersToR1S1 = "='z06_a1401111_Bericht'!R1S1:R20S18" ``` weist dem definierten Namen **z06_a1401111_Bericht** im aktuellen Workbook einen neuen Bezug zu. **RefersToR1S1** verwendet dabei die R1S1-Referenzschreibweise (Reihe/Spalte statt A1/B1). **Bedeutung:** - Der Name verweist nun auf den Zellbereich von **Zeile 1, Spalte 1** bis **Zeile 20, Spalte 18** auf dem Tabellenblatt **z06_a1401111_Bericht**. - In A1-Schreibweise entspricht das dem Bereich **A1:R20**. **Zusammengefasst:** Mit diesem Befehl wird der benannte Bereich **z06_a1401111_Bericht** auf die Zellen **A1:R20** des Blatts **z06_a1401111_Bericht** gesetzt. Weitere Infos zu benannten Bereichen in Excel findest du z.B. hier: https://support.microsoft.com/de-de/office/definieren-und-verwenden-von-namen-in-formeln-a1dcf0dd-61fc-4e1e-aa80-c8969888273e

Um in Excel zu prüfen, ob der Wert in einer Zelle (zum Beispiel A1) größer als 2 ist, kannst du folgende Formel verwenden: ```excel =A1>2 ``` Diese Formel gibt WAHR zurück, wenn der Wert in A1 größer als 2 ist, sonst FALSCH. Möchtest du eine bestimmte Aktion ausführen (z.B. einen Text anzeigen), kannst du die WENN-Funktion nutzen: ```excel =WENN(A1>2; "Größer als 2"; "Nicht größer als 2") ``` Damit wird "Größer als 2" angezeigt, wenn der Wert in A1 größer als 2 ist, sonst "Nicht größer als 2".

Um in einer Excel-Formel auf den Wert 20.000.000 in einer Zelle zu verweisen, gibst du einfach die Zelladresse an, in der dieser Wert steht. Beispiel: Angenommen, der Wert 20.000.000 steht in Zelle **A1**. **Beispiel für eine Formel:** ``` =A1 ``` Wenn du mit dem Wert rechnen möchtest, z.B. ihn verdoppeln: ``` =A1*2 ``` Wenn du direkt den Wert in eine Formel schreiben willst, verwendest du: ``` =20000000 ``` **Hinweis:** In Excel werden große Zahlen ohne Punkt oder Komma geschrieben, also **20000000** (nicht 20.000.000 oder 20,000,000). Falls du eine spezielle Formel oder Funktion meinst, bitte die Frage präzisieren.

Um den Wert aus Spalte C (zum Beispiel C9) im Tabellenblatt „daten_artikel“ auszugeben, **wenn** in derselben Zeile in Spalte J (zum Beispiel J9) der Wert 2 steht, kannst du folgende Formel verwenden: ```excel =WENN(daten_artikel!J9=2; daten_artikel!C9; "") ``` **Erklärung:** - Wenn in `daten_artikel!J9` der Wert 2 steht, wird der Wert aus `daten_artikel!C9` ausgegeben. - Andernfalls bleibt die Zelle leer. **Hinweis:** Falls du den Wert aus der **ersten Zeile** suchst, in der in Spalte J der Wert 2 steht, und diesen Wert aus Spalte C ausgeben möchtest, kannst du folgende Matrixformel (in Excel: STRG+SHIFT+ENTER, in neueren Versionen reicht Enter) verwenden: ```excel =INDEX(daten_artikel!C:C; VERGLEICH(2; daten_artikel!J:J; 0)) ``` Diese Formel sucht in Spalte J nach dem ersten Vorkommen von 2 und gibt den Wert aus der entsprechenden Zeile in Spalte C zurück.

Die Funktion `XVERGLEICH` (englisch: `XMATCH`) sucht einen Wert in einem Bereich und gibt die Position (also die Zeilennummer innerhalb des angegebenen Bereichs) zurück, an der der Wert gefunden wurde. In deiner Formel: ``` =XVERGLEICH(1; (daten_artikel!J3:J23>20000000)*1; 0) ``` passiert Folgendes: - `(daten_artikel!J3:J23>20000000)` prüft für jede Zelle im Bereich J3:J23, ob der Wert größer als 20.000.000 ist. Das Ergebnis ist eine Matrix aus WAHR/FALSCH. - Durch `*1` werden die WAHR/FALSCH-Werte in 1/0 umgewandelt. - `XVERGLEICH(1; ...; 0)` sucht die erste 1 in dieser Matrix, also die erste Zelle, deren Wert größer als 20.000.000 ist. **Das Ergebnis der Formel ist die Position innerhalb des Bereichs J3:J23.** Beispiel: Gibt die Formel den Wert 5 zurück, dann ist das fünfte Element im Bereich J3:J23 das erste, das größer als 20.000.000 ist (also Zelle J7). **Du siehst den Wert direkt in der Zelle, in der du die Formel eingibst.** Die Zahl gibt die relative Position im Bereich J3:J23 an, nicht die absolute Zeilennummer im Tabellenblatt. **Beispiel:** - Bereich: J3:J23 (also Zeilen 3 bis 23) - Ergebnis: 5 - Gemeint ist: J7 (weil J3 + 5 - 1 = J7) **Zusammengefasst:** Die ausgegebene Zahl ist die Position im Bereich J3:J23, an der das Kriterium (>20.000.000) erstmals erfüllt ist.

Das von dir beobachtete Ergebnis (88,33333 statt 88) liegt daran, dass die Formel `=SUMME(WENN(A1:A100<>"";1/ZÄHLENWENN(A1:A100;A1100)))`in einer Matrixformel verwendet wird und **leere Zellen** oder **Doppelteinträge** nicht korrekt behandelt werden. **Hintergrund:** Die Formel zählt die eindeutigen Werte, indem sie für jeden Eintrag 1 durch die Häufigkeit dieses Wertes summiert. Das funktioniert, solange keine leeren Zellen oder Fehlerwerte vorhanden sind. Leere Zellen werden aber als ein Wert betrachtet, und wenn sie mehrfach vorkommen, wird ihr Anteil als Bruchteil gezählt, was zu Dezimalstellen führen kann. **Beispiel:** Wenn in deinem Bereich A1:A100 z.B. 3 leere Zellen sind, dann wird für jede leere Zelle 1/3 gezählt, also insgesamt 1. Wenn aber die Formel `A1:A100<>""` verwendet, werden leere Zellen eigentlich ausgeschlossen. Allerdings: - Wenn du die Formel **nicht als Matrixformel** (mit STRG+SHIFT+ENTER) eingibst, funktioniert sie nicht korrekt. - Wenn in deinem Bereich **Doppelteinträge** oder **Fehlerwerte** sind, kann das Ergebnis ebenfalls abweichen. **Lösung:** Um wirklich die Anzahl der eindeutigen, nicht-leeren Werte zu zählen, verwende besser folgende Formel (als Matrixformel mit STRG+SHIFT+ENTER abschließen): ```excel =SUMME(WENN(HÄUFIGKEIT(WENN(A1:A100<>"";VERGLEICH(A1:A100;A1:A100;0));ZEILE(A1:A100)-MIN(ZEILE(A1:A100))+1)>0;1)) ``` **Hinweis:** - Diese Formel zählt exakt die eindeutigen, nicht-leeren Werte. - In neueren Excel-Versionen kannst du auch `=UNIQUE(A1:A100)` verwenden und dann die Anzahl mit `=ANZAHL2(UNIQUE(A1:A100))` bestimmen. **Fazit:** Das Ergebnis 88,33333 kommt durch die Art der Berechnung und evtl. durch leere Zellen oder Doppelteinträge zustande. Die oben genannte Formel liefert dir das exakte Ergebnis.

Die Formel `=SUMME(WENN(A1:A100<>"",1/ZÄHLENWENN(A1:A100;A1:A100)))` wird häufig verwendet, um die **Anzahl der eindeutigen Werte** in einem Bereich zu zählen. Sie funktioniert als Matrixformel (in älteren Excel-Versionen mit Strg+Shift+Enter abschließen). **Erklärung der Formel:** - `A1:A100<>""` prüft, ob die Zellen nicht leer sind. - `ZÄHLENWENN(A1:A100;A1:A100)` gibt für jede Zelle an, wie oft deren Wert im Bereich vorkommt. - `1/ZÄHLENWENN(...)` ergibt für jeden Wert den Bruchteil, den dieser Wert zur Anzahl der eindeutigen Werte beiträgt (z.B. bei 3 gleichen Werten: 1/3 + 1/3 + 1/3 = 1). - Die SUMME addiert diese Bruchteile auf. **Warum kommt ,333333 heraus?** Das Ergebnis **0,333333...** (bzw. ,333333 in deutscher Schreibweise) deutet darauf hin, dass in deinem Bereich **genau drei Zellen** mit demselben Wert gefüllt sind und alle anderen Zellen leer sind. **Beispiel:** - A1: "Test" - A2: "Test" - A3: "Test" - A4 bis A100: leer Dann ist: - `ZÄHLENWENN(A1:A100;A1)` = 3 (weil "Test" dreimal vorkommt) - Für jede der drei Zellen: 1/3 = 0,333333... - SUMME: 0,333333... + 0,333333... + 0,333333... = 1 Aber: Da die Formel als **normale Formel** (ohne Matrix-Eingabe) eingegeben wurde, berechnet Excel nur das erste Element und gibt **1/3 = 0,333333...** zurück. **Lösung:** Damit die Formel korrekt funktioniert, muss sie als **Matrixformel** eingegeben werden: - In älteren Excel-Versionen: Formel eingeben und mit **Strg+Shift+Enter** abschließen. - In neueren Excel-Versionen (Office 365, Excel 2021 und neuer): Die Formel funktioniert als dynamische Array-Formel auch mit normalem Enter. **Zusammenfassung:** Das Ergebnis ,333333 kommt, weil die Formel nicht als Matrixformel eingegeben wurde. Excel berechnet dann nur das erste Element der Matrix und gibt 1/3 zurück. Gib die Formel als Matrixformel ein, dann erhältst du die korrekte Anzahl der eindeutigen Werte. **Weitere Infos:** - [Microsoft Support: Zählen von eindeutigen Werten](https://support.microsoft.com/de-de/office/z%C3%A4hlen-der-eindeutigen-werte-unter-einer-liste-von-werten-4d8d94b8-4b08-4e1e-89d4-9c6b388f4b6a)

Um in Excel bei **SUMMEWENN** oder **ZÄHLENWENN** nur die Anfangsbuchstaben als Kriterium zu verwenden, nutzt du Platzhalterzeichen. Das Fragezeichen `?` steht für genau ein beliebiges Zeichen, das Sternchen `*` für beliebig viele Zeichen. **Beispiel:** Du möchtest alle Zellen zählen, die mit „A“ beginnen. **Formel mit ZÄHLENWENN:** ```excel =ZÄHLENWENN(A1:A10; "A*") ``` Diese Formel zählt alle Zellen im Bereich A1:A10, deren Inhalt mit „A“ beginnt. **Formel mit SUMMEWENN:** Angenommen, du möchtest alle Werte in B1:B10 summieren, deren zugehöriger Name in A1:A10 mit „A“ beginnt: ```excel =SUMMEWENN(A1:A10; "A*"; B1:B10) ``` **Hinweis:** - Die Platzhalter funktionieren auch mit mehreren Buchstaben, z.B. `"Ab*"` für alles, was mit „Ab“ beginnt. - Die Kriterien sind nicht case-sensitive, d.h. Groß- und Kleinschreibung wird ignoriert. Weitere Infos findest du in der [Microsoft-Dokumentation zu ZÄHLENWENN](https://support.microsoft.com/de-de/office/z%C3%A4hlenwenn-funktion-e0de10c6-f885-4e71-abb4-1f464816df34) und [SUMMEWENN](https://support.microsoft.com/de-de/office/summewenn-funktion-9dd6179e-cced-41a5-8e99-00e42a540b50).

Um die Schleife so umzubauen, dass **in "Personen einzelnd drucken"** in den Zellen **C9:C66** nach dem Namen gesucht und mit der Spalte B im "Arbeitsplan" verglichen wird, muss die Namensprüfung in eine Schleife über diese Zellen gelegt werden. Für jeden gefundenen Namen wird dann geprüft, ob er in der gefundenen Zeile im "Arbeitsplan" steht. Die Übertragung erfolgt dann in die jeweilige Zeile (also z.B. in Zeile 9, 10, ...). Hier die angepasste Version des relevanten Teils: ```vba Sub übertragallepersonen() Dim wb As Workbook Dim wsQuell As Worksheet, wsZiel As Worksheet Dim datumToFind As Variant, rGef As Range Dim nameQuell As Variant Dim zielStartCol As Long, zielCol As Long, quelleCol As Long Dim i As Long Set wb = ThisWorkbook Set wsQuell = wb.Sheets("Personen einzelnd drucken") Set wsZiel = wb.Sheets("Arbeitsplan") ' Datum aus Spalte B8 der Quell-Tabelle als Zahl If IsDate(wsQuell.Range("B8").Value) Then datumToFind = CLng(wsQuell.Range("B8").Value) Else MsgBox "Datum in Personen einzeln drucken!B8 ist ungültig oder leer.", vbExclamation Exit Sub End If ' In Arbeitsplan Spalte A suchen (ebenfalls als Zahl) Set rGef = Nothing For Each cell In wsZiel.Columns("A").Cells If IsDate(cell.Value) Then If CLng(cell.Value) = datumToFind Then Set rGef = cell Exit For End If End If If cell.Row > 1000 Then Exit For ' Optional: Suchbereich begrenzen Next cell If rGef Is Nothing Then MsgBox "Datum nicht in Arbeitsplan Spalte A gefunden.", vbInformation Exit Sub End If zielStartCol = 4 ' Spalte D ' Jetzt alle Namen in C9:C66 durchgehen For i = 9 To 66 nameQuell = wsQuell.Cells(i, 3).Value ' Spalte C If Not IsEmpty(nameQuell) Then If wsZiel.Cells(rGef.Row, "B").Value = nameQuell Then ' Kopiere Werte von Arbeitsplan F bis BA in die Zielspalten ab Spalte D der aktuellen Zeile For zielCol = 6 To 54 ' F(6) bis BA(54) wsQuell.Cells(i, zielStartCol + (zielCol - 6)).Value = wsZiel.Cells(rGef.Row, zielCol).Value Next zielCol End If End If Next i MsgBox "Datenübertragung abgeschlossen.", vbInformation End Sub ``` **Hinweis:** - Die Übertragung erfolgt für jede Zeile von C9 bis C66, sofern dort ein Name steht und dieser in der gefundenen Zeile im "Arbeitsplan" (Spalte B) steht. - Die Werte werden in die jeweilige Zeile (i) ab Spalte D geschrieben. - Die Meldung am Ende kommt nur einmal, wenn alle Zeilen durchlaufen wurden. Falls du möchtest, dass für jeden gefundenen Namen eine eigene Zeile im "Arbeitsplan" gesucht wird (also nicht nur für das eine Datum), müsste die Logik noch weiter angepasst werden.

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.

Um in Excel VBA Drucktitel festzulegen, kannst du den folgenden Code verwenden. Dieser Code setzt die Drucktitel für die Zeilen und Spalten, die auf jeder gedruckten Seite wiederholt werden sollen: ```vba Sub DrucktitelFestlegen() With ActiveSheet .PageSetup.PrintTitleRows = "$1:$1" ' Wiederhole die erste Zeile .PageSetup.PrintTitleColumns = "$A:$A" ' Wiederhole die erste Spalte End With End Sub ``` In diesem Beispiel wird die erste Zeile und die erste Spalte auf jeder gedruckten Seite wiederholt. Du kannst die Bereiche anpassen, um andere Zeilen oder Spalten festzulegen. Um den Code auszuführen, öffne den VBA-Editor (Alt + F11), füge ein neues Modul hinzu und kopiere den Code dort hinein. Danach kannst du das Makro ausführen.

Um in Excel ein Feld mit einem Pfeil zu formatieren, sodass auf eine Datensammlung zugegriffen werden kann, kannst du die Funktion "Datenüberprüfung" verwenden, um eine Dropdown-Liste zu erstellen. Hier sind die Schritte: 1. **Datenquelle erstellen**: Erstelle eine Liste der Daten, auf die du zugreifen möchtest, in einem anderen Bereich des Arbeitsblatts oder in einem anderen Blatt. 2. **Zelle auswählen**: Wähle die Zelle aus, in der du den Pfeil (Dropdown) haben möchtest. 3. **Datenüberprüfung öffnen**: Gehe zu dem Reiter "Daten" in der Menüleiste und klicke auf "Datenüberprüfung". 4. **Einstellungen wählen**: Wähle im Dialogfeld "Datenüberprüfung" unter "Zulassen" die Option "Liste". 5. **Liste eingeben**: Gib im Feld "Quelle" den Bereich ein, in dem sich deine Datenquelle befindet (z.B. `=$A$1:$A$10`), oder wähle den Bereich mit der Maus aus. 6. **Bestätigen**: Klicke auf "OK". Jetzt sollte in der ausgewählten Zelle ein Pfeil erscheinen, der es dir ermöglicht, die Daten aus der Liste auszuwählen. Mit diesen Schritten kannst du ein Feld in Excel so formatieren, dass es einen Dropdown-Pfeil enthält, um auf eine Datensammlung zuzugreifen.