PflebIT - Pflegeinformatik in der Praxis - kb:s:0086:faq

Add-in deaktiveren

anonymous@undisclosed.example.com (Anonymous) — Sun, 04 Apr 2021 12:34:21 +0000

Add-in deaktiveren

Problem:
In Excel verursacht oftmals das „Senden an Bluetooth Add-in“ Probleme. Dieses Add-in wird häufig auf Laptops automatisch vom Hersteller der Bluetooth Hardware (z.B. Intel) installiert.

Will man nun über
Datei > Optionen > Add-Ins > Auswahlmenü „Verwalten“: COM-Add-Ins anschließend Klick auf „Gehe zu“
das Add-In deaktivieren, so funktioniert das auch in der aktuellen Datei.
Schließt man nun Excel und öffnet es dann wieder, so ist das Add-In jedoch wieder aktiv.

Lösung:

Die Deaktivierung muss über das Sicherheits-Center (Office 2010) erfolgen.

Datei > Optionen > Sicherheitscenter > Einstellungen für das Sicherheitscenter > Add-Ins > „Alle Anwendungs-Add-Ins deaktivieren“ anklicken und mit „OK“ bestätigen
Jetzt Software neu starten! (in der laufenden Sitzung sind die Add-Ins nämlich noch aktiviert.
Nach dem Neustart der Software, sind die Add-Ins nun deaktiviert.

siehe auch:
Anzeigen, Verwalten und Installieren von Add-Ins in Office-Programmen für Office 2010
http://office.microsoft.com/de-de/excel-help/anzeigen-verwalten-und-installieren-von-add-ins-in-office-programmen-HA010354315.aspx?CTT=1#BM2

AGGREGAT: Mehrere Suchkriterien nutzen und mehrere Werte finden (statt SVERWEIS)

anonymous@undisclosed.example.com (Anonymous) — Sun, 04 Apr 2021 12:34:38 +0000

AGGREGAT: Mehrere Suchkriterien nutzen und mehrere Werte finden (statt SVERWEIS)

Problem:
Mit SVERWEIS kann immer nur ein Wert in einer Tabelle gefunden werden.
Ich möchte aber mehrere Werte, die dem Suchkriterium entsprechen, finden.
Zudem möchte ich mehrere Suchkriterien benutzen.

Lösung:

Eine sehr gute Anleitung zur AGGREGAT-Funktion dazu findet sich hier:

https://www.youtube.com/watch?v=He3dblboncw

Aktive Zeile farbig markieren

anonymous@undisclosed.example.com (Anonymous) — Sun, 04 Apr 2021 12:35:21 +0000

Aktive Zeile farbig markieren

Problem: Wenn Werte in einer Zeile bearbeitet werden, die sehr viele Spalten hat, ist schwer zu erkennen, in welcher Zeile man sich befindet. Deshalb soll die Zeile farbig hervorgehoben werden.

Lösung:

Hinterlegen Sie folgenden Code des Tabellenblattes, indem Sie:

Den Entwicklermodus aktivieren (Datei / Optionen / Menüband anpassen: dort „Entwicklertools“ aktivieren.
Dann Entwicklertools aufrufen und dort „Visual Basic“ öffnen
Dann Tabellenblatt doppelt anklicken und den Code eingeben.

entweder:

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Rows.Interior.ColorIndex = xlColorIndexNone
    Rows(Target.Row).Interior.ColorIndex = 6
  End Sub

oder:

  Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Cells.Interior.ColorIndex = xlNone
    Rows(Target.Row).Interior.ColorIndex = 35
  End Sub

Hinweis:
Die Farben anderer, bisheriger farbigen Zellen werden leider gelöscht.

Alter berechnen

anonymous@undisclosed.example.com (Anonymous) — Sun, 04 Apr 2021 12:35:40 +0000

Alter berechnen

Problem:

In der Zelle A1 gebe ich das Geburtsdatum an (z.B. 5.1.1970). In der Zelle C1 soll das Alter ausgegeben werden.

Lösung:

Geben Sie in Zelle C1 folgende Formel ein:

=TEXT(HEUTE()-A1;„jj“)*1

oder

=DATEDIF(„1972/10/30“;„2014/12/31“;„y“)

Autofilter per VBA in erster Zeile einbauen

anonymous@undisclosed.example.com (Anonymous) — Tue, 27 May 2025 12:36:13 +0000

Autofilter per VBA in erster Zeile einbauen

Problem:

Ich habe eine Excel-Datei, in der ich mit dem Autofilter arbeite und dort immer mit Freitexten suche.

Nun möchte ich gerne vermeiden, jedes Mal den Filter zu öffnen und dann erst schreiben zu können. Stattdessen möchte ich in der ersten Zeile pro Spalte die Suchwerte eingeben können.

Lösung:

Hinterlegen Sie in VBA für das Tabellenblatt folgendes Makro:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim R As Range
  'Only when an Autofilter is present
  If Not Me.AutoFilterMode Then Exit Sub
  'Only when a cell in row 1 is changed
  Set Target = Intersect(Target, Rows(1))
  If Target Is Nothing Then Exit Sub
  'Only when a cell within the data range is changed
  Set Target = Intersect(Target, Me.AutoFilter.Range.EntireColumn)
  If Target Is Nothing Then Exit Sub
  
  With Me.AutoFilter.Range
    'In each changed cell
    For Each R In Target
      If IsEmpty(R) Then
        'Remove the filter
        .AutoFilter R.Column
      Else
        'Set the filter in this column
        If IsDate(R.Value) Then
          'Note: A date filter in VBA works only between 2 dates!
          .AutoFilter R.Column - .Column + 1, ">" & R.Value2, xlAnd, "<" & R.Value2 + 1
        Else
          .AutoFilter R.Column - .Column + 1, CStr(R.Value)
        End If
      End If
    Next
  End With
End Sub

Quelle: https://answers.microsoft.com/de-de/msoffice/forum/all/filtertext-in-zelle-eingeben-und-damit-filtern/d5cdbd06-ea80-4209-b2f8-1057becf03b5?messageId=29940056-42d0-4071-922a-a3c1ee7787f2

Bedingte Formatierung für mehrere Spalten anwenden (Mehrere Zellen nebeneinander farbig ...

anonymous@undisclosed.example.com (Anonymous) — Wed, 05 May 2021 16:11:23 +0000

Bedingte Formatierung für mehrere Spalten anwenden (Mehrere Zellen nebeneinander farbig markieren, wenn in einer anderen Zelle ein bestimmter Wert steht)

Problem:

Ich möchte mehrere Spalten (A, B und C) farblich markieren, wenn in der Spalte D der Wert „x“ steht.

Lösung:

Markieren Sie die Zellen A1 bis C200.
Wählen Sie den Befehl “Start | Bedingte Formatierung | Neue Regel”.
Wählen Sie den Befehl “Formel zu Ermittlung der zu formatierenden Zellen verwenden”.
Klicken Sie in das Feld “Werte formatieren, für die diese Werte wahr sind”.
Tragen Sie ein =$D1=„x“
Klicken Sie auf die Schaltfläche “Formatieren”.
Wählen Sie im Register “Ausfüllen” Ihre gewünschte Füllfarbe.
Übernehmen Sie mit Klick auf die Schaltläche „OK“ die Füllfarbe.
Übernehmen Sie mit Klick auf die Schaltläche „OK“ die die Formatierungsregel.

Hinweis:

Das Dollarzeichen vor dem D fixiert die Spalte D. Diese Vorgehensweise ist zwingend notwendig. Andernfalls wird nur die Spalte A farbig ausgeben (und nicht die Spalten B und C). Es darf kein Dollarzeichen vor der Zahl stehen, da andernfalls die Regel nur auf die Zeile 1 angewendet wird und nicht auf die nachfolgenden Zeilen.

Im Bereich „Wird angewendet auf:“ muss hingegen „=$A$1:$C$200“ stehen, da es sich hier um einen fixierten Bereich handelt.

Blattschutz aufheben / Arbeitsmappenschutz aufheben

anonymous@undisclosed.example.com (Anonymous) — Mon, 22 Jul 2024 14:35:03 +0000

Blattschutz aufheben / Arbeitsmappenschutz aufheben

1. Problem:
Ein Excel-Tabellenblatt ist per Blattschutz und oder einem Arbeitsmappenschutz geschützt. Der Blattschutz kann nur mit einem Passwort aufgehoben werden. Das Passwort ist jedoch verloren gegangen.

1. Lösung:

Benennen Sie die Dateiendung von .xlsx in .zip um.
Öffnen Sie die ZIP-Datei und entpacken Sie den Inhalt in einen neuen Ordner.
Blattschutz aufheben:
- Wechseln Sie in den Ordner „xl“ und dann in den Unterordner „worksheets“.
- Dort finden Sie die Dateien sheet1.xml, sheet2.xml etc.
- Öffnen Sie die Datei in einem Texteditor.
- Suchen Sie nach „protection“.
- Sie erhalten dann die Zeile:

<sheetProtection algorithmName="SHA-512" hashValue="iqZi50CVJsi8Aws6LLtWEQ8tUqShUq8AAYCfE+dZ581CM4GGMR4Y5eKVrfesXuCPyIWuK200luUxrwOiOfZ1TQ==" saltValue="o/anAhP6CkOABGszDUWc2w==" spinCount="100000" sheet="1" objects="1" scenarios="1"/>

Nun gibt es zwei Lösungen:

1. Lösung:

Löschen einfach die gesamte obige Zeile von „<“ bis „>“.
Speichern Sie die Datei.
GANZ WICHTIG: „Kopieren“ Sie nun die Datei aus dem entpackten Ordner wieder in die ZIP-Datei!
- Erstellen Sie also KEINE neue ZIP-Datei. Diese erzeugt nämlich einen Fehler!
Benennen Sie die Datei dann wieder um in .xlsx
Nun ist der Blattschutz gelöscht.

Wo finde ich das Arbeitsblattpasswort?

Das Arbeitsblatt-Passwort finden Sie auf die gleiche Art und Weise:
im Ordner „xl“
in der Datei „workbook.xml“.

2. Problem:
Ein Excel-Tabellenblatt ist per Blattschutz geschützt. Der Blattschutz kann nur mit einem Passwort aufgehoben werden. Das Passwort ist jedoch verloren gegangen.

2. Lösung:
Folgendes Makro kann im Blatt hinterlegt werden und anschließend ausgeführt werden. Danach ist der Blattschutz (inkl. Passwort) aufgehoben.
Lösung gilt für: Excel 2007, Excel 2010.

Sub Blattschutz_aufheben()

On Error Resume Next

 For i = 65 To 66
 For j = 65 To 66
 For k = 65 To 66
 For l = 65 To 66
 For m = 65 To 66
 For n = 65 To 66
 For o = 65 To 66
 For p = 65 To 66
 For q = 65 To 66
 For r = 65 To 66
 For s = 65 To 66
 For t = 32 To 126
 
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & _
 Chr(n) & Chr(o) & Chr(p) & Chr(q) & Chr(r) & Chr(s) & Chr(t)
 
 Next t
 Next s
 Next r
 Next q
 Next p
 Next o
 Next n
 Next m
 Next l
 Next k
 Next j
 Next i

 MsgBox "Blattschutz ist nun aufgehoben. Sie können nun die Formeln einsehen."
 
End Sub

Datei (Excel) per Verknüpfung immer schreibgeschützt öffnen (bei mehreren Benutzern)

anonymous@undisclosed.example.com (Anonymous) — Sun, 04 Apr 2021 12:37:58 +0000

Datei (Excel) per Verknüpfung immer schreibgeschützt öffnen (bei mehreren Benutzern)

Problem:
In Windows 10 soll eine Excel-Datei von mehreren Benutzern über den Autostart automatisch beim Start geladen werden. Beim ersten Benutzer funktioniert das problemlos. Alle weiteren Benutzer erhalten die Meldung, dass der Benutzer auswählen muss, ob er die Datei schreibgeschützt öffnen will oder schließen will.

Da die Datei jedoch von den Benutzern nur gelesen werden soll, soll diese Meldung nicht angezeigt werden, so dass der Inhalt sofort sichtbar wird.

Lösung:
Gehen Sie folgendermaßen vor:

Drücken Sie [Windows]+[R]-Taste. Es öffnet sich das Fenster „Ausführen“.
Geben Sie den Befehl „shell:startup“ in das Fenster ein und drücken Sie die [Enter]-Taste.
Dadurch wird der Autostartordner geöffnet. Dieser in Windows 10 im folgenden Pfad:

C:\Users\benutzername\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup

Hinweis: Ab Windows 10 finden Sie den Autostartordner nicht mehr unter „Start > Programme“, sondern nur noch mit der oben geschilderten Methode!
Legen Sie nun eine neue Verknüpfung (Leer) über das Kontextmenü an und geben Sie als Ziel ein:

Ziel: „C:\Program Files\Microsoft Office\root\Office16\EXCEL.EXE“ /r „D:\daten\Geburtstagsliste.xlsx“

Klicken Sie dann auf „Weiter“ und geben der Verknüpfung einen Namen (z.B. „Geburtstagsliste“)
Klicken Sie anschließend die Verknüpfung mit der rechten Maustaste an und klicken Sie auf „Eigenschaften“. Kontrollieren Sie dann folgende Einstellungen:

Ziel: „C:\Program Files\Microsoft Office\root\Office16\EXCEL.EXE“ /r „D:\daten\Geburtstagsliste.xlsx“
Ausführen in: „C:\Program Files\Microsoft Office\root\Office16\EXCEL.EXE“

Die Excel-Datei startet beim nächsten Autostart auch dann ohne Nachfrage, wenn diese bereits durch einen oder mehrere Benutzer geöffnet worden ist.

Datum: Anzahl Tage eines Monats ermitteln

anonymous@undisclosed.example.com (Anonymous) — Tue, 14 Jun 2022 09:18:13 +0000

Datum: Anzahl Tage eines Monats ermitteln

Problem:
Sie möchten aus einem Datumswert die Anzahl der Tage des jeweiligen Monats die Anzahl der Tage des Monats ermitteln.

Lösung:

Nutzen Sie dazu folgende Formel:

=TAG(MONATSENDE(A1;0))

Hinweis: In Zelle A1 tragen Sie das Datum ein (z.B. den 1.1.2021). Im Ergebnis erhalten Sie dann das Ergebnis „31“ für die Anzahl der Tage im Monat Januar 2021.

Datum auf Gültigkeit prüfen

anonymous@undisclosed.example.com (Anonymous) — Sun, 04 Apr 2021 12:38:17 +0000

Datum auf Gültigkeit prüfen

Problem:
Es soll ein Jahreskalender erstellt werden, in dem an allen gültigen Tagen die Bezeichnung für den Wochentag erscheint.

Dafür wird das Datum aus den Feldern Jahr, Monat und Tag zusammengesetzt.

Excel soll nun selbstständig erkennen, welche Anzahl an Tagen im Monat gütltig sind (z.B. im Februar 28 oder 29 Tage). Leider bietet Excel keine Funktion, um die Gültigkeit eines Datums zu testen

Lösung:

A1 = Jahr = 2012

A2 = Monat = 2 (Februar)

A3 = Tag = 28

in Zelle B1 wende ich als Formel an:

=DATUM(A1;A2;A3)

ergibt (sichtbar) in Zelle B1 das Datum:

28.2.2012

In Zelle C1 lasse ich den letzten Tag des Monats anzeigen:

=MONATSENDE(DATUM(A1;A2;A3);0)

Hinweis: Die Null nach dem Semikolon besagt, dass der angegebene Monat geprüft werden soll.

In Zelle D1 prüfe ich:

=WENN(B1<>C1;"Datum ungültig";"Datum ist gültig")

Ergebnis im Beispiel:

Datum ist gültig

Wird im Feld A3 = 30 eingegeben, so ist das Ergebnis:

Datum ungültig.

Hinweis:

Die obige Rechnung ist dann fehlerhaft, wenn ein Monat > 12 angegeben wird. In diesem Fall kann folgende Formel weiterhelfen:

=WENN(UND(A2>0;A2<13;TAG(DATUM(A1;A2+1;0))>=A3);TEXT(DATUM(A1;A2;A3);"TTT");"ungültiges Datum")

Datum in einer Formel direkt eingeben (ohne Zellbezug)

anonymous@undisclosed.example.com (Anonymous) — Sun, 04 Apr 2021 12:38:45 +0000

Datum in einer Formel direkt eingeben (ohne Zellbezug)

Problem:

Sie möchten einen Datumswert in einer Formel direkt eingeben und nicht auf eine andere Zelle zugreifen, um von dort das Datum zu übernehmen.

Lösung:

Geben Sie in der Formel das Datum wie folgt ein:

„1972/10/30“

also: Anführungszeichen, dann Jahr, dann Slash, dann Monat, dann Slash, dann Tag, dann Anführungszeichen

zum Beispiel:

=DATEDIF(„1972/10/30“;K5;„y“)

Datum: Ungültiges zusammengesetzes Datum auf Null stellen

anonymous@undisclosed.example.com (Anonymous) — Sun, 04 Apr 2021 12:39:35 +0000

Datum: Ungültiges zusammengesetzes Datum auf Null stellen

Problem:

Ich möchte gerne Datumswerte aus mehreren Feldern zusammensetzen.

Die Monate stehen zeilenweise in Spalte A:
A2 = 1 (für Januar)
A3 = 2 (für Februar)
…

In den Spalten B bis AF stehen die Tage:
B1 = 1 (erster Tag des Monats)
C1 = 2 (zweiter Tag des Monats)
…

Das Jahr steht im Feld A1 = 2016.

Wenn ich nun die Formel DATUM(A1;A3;B1) anwende, erhalte ich das korrekte Datum:
1.2.2016 (1. Februar 2016)

Wenn ich aber das ganze am 31.2.2016 durchführe (den es ja nicht gibt!!!), dann erhalte ich folgendes Ergebnis:
2.3.2016

Gleiches gilt in Monaten mit nur 30 Tagen.

Wie kann ich nun dafür sorgen, das im Falle eines falschen Ergebnisses, das Ergebnis einfach „0“ ist, damit ich beim Zusammenzählen keine Fehler erhalte? Gibt es dafür eine Funktion?

Lösung:

Die nachfolgende Lösung prüft, ob der Monat des Ergebnisses der Formel der gleiche ist, wie der zu Grunde liegende Monat des Monatswertes A2:

=WENN(MONAT(DATUM(A1;A2;B1))<>A2;„“;DATUM(A1;A2;B1))

Quelle:
http://answers.microsoft.com/de-de/office/forum/office_2010-excel/ung%C3%BCltiges-zusammengesetzes-datum-auf-null/ab405b36-9665-431b-9d4f-cc53d5b92ceb?rtAction=1456770205333

Dezimalstunden (1,75) konvertieren in Stunden und Minuten (1:45)

anonymous@undisclosed.example.com (Anonymous) — Sun, 04 Apr 2021 12:40:42 +0000

Dezimalstunden (1,75) konvertieren in Stunden und Minuten (1:45)

Problem:
In Zelle C1 habe ich eine Dauer von 1,75 Dezimalstunden eingetragen.
In Zelle C2 möchte ich diese in Stunden und Minuten ausgeben, mit einem Doppelpunkt getrennt.
Außerdem sollen in Zelle C2 auch Stundenzahlen angezeigt werden, die größer 24 Stunden sind. Wird das Format nämlich normal angegeben, so werden z.B. aus 30,5 Stunden 6:30 Stunden, da erst bis 24 gezählt wird und dann von vorne begonnen wird.

Lösung:
Tragen Sie in Zelle C2 folgende Formel ein:

=C1/24

Anschließend formatieren Sie die Zelle über das 
Kontextmenü (rechte Maustaste) > Zellen formatieren > Zahlen > Benutzerdefiniert > "[hh]:mm".

Würden Sie nur "hh:mm" als Format eingeben, so würden nur Zahlen bis zu 24 Stunden korrekt angezeigt.

Möchten Sie auch Sekunden anzeigen, so muss der Zelleninhalt durch 60 dividiert werden.
=C1/24/60

Doppelklick führt zur gleichen Zelle auf einem anderen Tabellenblatt

anonymous@undisclosed.example.com (Anonymous) — Sun, 04 Apr 2021 13:43:00 +0000

Doppelklick führt zur gleichen Zelle auf einem anderen Tabellenblatt

Problem:
In Tabellenblatt 1 (TB 1) möchte ich statistische Daten hinterlegen. Da ich diese Daten aus sehr vielen unterschiedlichen Quellen habe, möchte ich ein zweites Tabellenblatt (TB 2) anlegen indem ich die jeweilige Quellenangabe speichere. Sprich: in TB 2 in Zelle A1 steht die Quellenangabe für den Wert in TB 1 Zelle A1.

Wenn ich nun in TB 1 auf die Zelle A1 doppelklicke, möchte ich, dass der Cursor auf TB 2 in Zelle A1 springt. Doppelklicke ich in TB 1 die Zelle B15 an, soll der Cursor auf TB 2 in Zelle B15 springen.

Lösung:
Hinterlege folgenden Code in beiden Tabellenblättern.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Count > 1 Then Exit Sub
    Cancel = True
    Application.Goto Sheets("Tabelle2").Range(Target.Address)
End Sub

Dropdown-Feld nutzen um mehrere Zellen zu füllen

anonymous@undisclosed.example.com (Anonymous) — Sat, 24 Apr 2021 20:53:12 +0000

Problem:

Ich möchte in Tabelle1 ein Auswahlfeld erstellen, das mehrere Werte zur Auswahl aus Tabelle2 anbietet.

1. Lösung: Liste des Drop-Down-Feldes kommt aus anderen Tabellenblatt

In Excel 2007 bzw. Excel 2010 gehen Sie wie folgt vor:

Alle Zellen auswählen, für die das Dropdown-Feld erstellt werden soll.
Registerkarte Daten, Gruppe: Datentools, Befehl: Datenüberprüfung
Registerkarte: Einstellungen
- Befehl: Zulassen = Liste
- Befehl: Quelle = hier den Quellbereich für die Daten auswählen
- Mit „OK“ bestätigen

2. Lösung: Liste des Drop-Down-Feldes wird direkt hinterlegt

In Excel 2007 bzw. Excel 2010 gehen Sie wie folgt vor:

Alle Zellen auswählen, für die das Dropdown-Feld erstellt werden soll.
Registerkarte Daten, Gruppe: Datentools, Befehl: Datenüberprüfung
Registerkarte: Einstellungen
- Befehl: Zulassen = Liste
- Befehl: Quelle = ErsterWert;ZweiterWert;DritterWert … (die eingegebenen Werte müssen also mit Semikolon getrennt werden!)
- Mit „OK“ bestätigen

3. Lösung: VBA-Lösung die ein Drop-Down-Feld (Kombinationsfeld) nutzt, um mehrere Zellen zu füllen

Eine Lösung findet sich in folgendem Artikel:
https://www.ms-office-forum.net/forum/showthread.php?t=300957

Bereiten Sie eine Excel-Datei wie folgt vor:

Füllen Sie im Tabellenblatt „Tabelle1“ die Zellen A3 bis A22 mit einer Liste von Obstsorten (Apfel, Banane, Kiwi, etc.)

Legen Sie folgenden Quellcode für das Tabellenblatt „Tabelle1“ an:

Option Explicit                             ' Variablendeklaration erforderlich

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    '**************************************************
    '* 24.12.10                                       *
    '* erstellt von Karin (Beverly), http://Excel-Inn.de*
    '* Beverly_Forums@web.de                          *
    '**************************************************
    Dim oobElement As OLEObject             ' Variable für das Steuerelement als OLEObject
    On Error Resume Next
    ActiveSheet.OLEObjects("DropDownZoom").Delete
    On Error GoTo 0
    If Not Intersect(Target, Range("C5:C35")) Is Nothing Then
        ' Bildschirmaktualisierung aus
        Application.ScreenUpdating = False
        ' ComboBox erstellen
        Set oobElement = OLEObjects.Add(ClassType:="Forms.ComboBox.1", Left:=0, Top:=0, Width:=0, Height:=0)
        With oobElement
            .Top = ActiveCell.Top          ' Position oben
            .Left = ActiveCell.Left        ' Position links
            .Width = Range(ActiveCell, ActiveCell.Offset(0, 1)).Width ' Breite
            .Height = Range(ActiveCell, ActiveCell.Offset(1, 0)).Height ' Höhe
            .ListFillRange = "Liste"        ' Quellbereich, per Name "Liste" definiert
            .Name = "DropDownZoom"          ' Name zuweisen
            .Object.MatchRequired = True    ' nur vorhandene Einträge
            .Object.ListRows = 14           ' Zeilenanzahl der Liste
            .Object.Font.Size = 12          ' Schriftgröße
            .Object.DropDown                ' DropDown öffnen
            .Object.ListIndex = 0           ' 1. Eintrag auswählen
            ' Umwandeln in ein Datum - nur erforderlich wenn die Auswahl aus Datumswerten besteht
            If IsDate(Range(.ListFillRange).Cells(1)) Then .Object = CStr(CDate(.Object))
            .Activate                       ' aktivieren
            ' erforderlich, da andernfalls der 1. Eintrag nicht in die Zelle eingetragen werden kann,
            ' weil seine Auswahl kein Change-Ereignis auslöst da er bereits ausgwählt ist
            ' mit dem Makro "Eintrag" wird der 1. Eintrag in die Zelle geschrieben
            Application.OnTime Now + TimeValue("00:00:00"), "Eintrag"
        End With
        ' Bildschirmaktualisierung ein
        Application.ScreenUpdating = True
    End If
End Sub

Private Sub DropDownZoom_Change()
    '**************************************************
    '* 24.12.10                                       *
    '* erstellt von Karin (Beverly), http://Excel-Inn.de*
    '* Beverly_Forums@web.de                          *
    '**************************************************
    ' Wert aus der Liste wurde gewählt
    If DropDownZoom.MatchFound Then
        ' Umwandeln in ein Datum
        If IsDate(Range(DropDownZoom.ListFillRange).Cells(1)) Then _
            DropDownZoom = CStr(CDate(DropDownZoom))
    ' Wert nicht in Liste vorhanden
    Else
        ' leeren
        DropDownZoom = ""
    End If
    ' Wert aus der betreffenden Zelle des Quellbereichs in aktuelle Zelle eintragen
    ' ListIndex beginnt bei 0, deshalb + 1
    Range(DropDownZoom.TopLeftCell.Address) = _
        Range(DropDownZoom.ListFillRange).Cells(DropDownZoom.ListIndex + 1)
    ' aktuelle Zelle wie Ausgangszelle formatieren
    Range(DropDownZoom.TopLeftCell.Address).NumberFormat = _
        Range(DropDownZoom.ListFillRange).Cells(DropDownZoom.ListIndex + 1).NumberFormat
End Sub



' Makro nur zu Programmierzwecken erforderlich falls die Reaktion auf die Eingabe
' nicht mehr erfolgt
Sub bbbb()
Application.EnableEvents = True
End Sub

Legen Sie ein Modul mit dem Bezeichnung „mdlAllgemein“ mit folgendem Quellcode an:

Option Explicit
Option Private Module

Sub Eintrag()
    '**************************************************
    '* 24.12.10                                       *
    '* erstellt von Karin (Beverly), http://Excel-Inn.de*
    '* Beverly_Forums@web.de                          *
    '**************************************************
    If Not Intersect(Range(ActiveSheet.DropDownZoom.TopLeftCell.Address), Range("C5:C35")) Is Nothing Then
        ' Eintrag des 1. Wertes (ListIndex = 0) der ComboBox
        Range(ActiveSheet.DropDownZoom.TopLeftCell.Address) = _
            Range(ActiveSheet.DropDownZoom.ListFillRange).Cells(1)
        Range(ActiveSheet.DropDownZoom.TopLeftCell.Address).NumberFormat = _
            Range(ActiveSheet.DropDownZoom.ListFillRange).Cells(1).NumberFormat
    End If
End Sub

Weiterführende Hinweise:

die Schriftgröße sowie die Anzahl der Einträge der Liste eines DropDown-Listenfeldes aus Daten Gültigkeit lassen sich nicht verändern dies wird mithilfe einer ComboBox aus der Steuerelemente-Toolbox simuliert, ohne dass die betreffende Zelle mit einer Gültigkeit formatiert wurde
bei Klick auf eine Zelle im Bereich C5:C35 wird die ComboBox eingefügt und dabei Schriftgröße 12 und Zeilenanzahl 14 festgelegt die Größe ist auf Breite der Spalten C:D, Höhe auf der aktiven + nächstfolgende Zeilen sowie Position auf linke obere Ecke activen Zelleim Code eingestellt
ListIndex wird auf 0 gesetzt, sodass der erste Wert ausgewählt ist - wird kein ListIndex gesetzt, entsteht ein Laufzeitfehler
Da jedoch in diesem Fall eine Auswahl des 1. Eintrages kein Change_Ereignis auslöst, wird durch ein zusätzliches Makro beim Erstellen der CombBox (gestartet mit Application.OnTime, da bei zur Laufzeit erstellen Steuerelementen anders nicht möglich), der 1. Eintrag in die Zelle geschrieben
bei Auswahl eines Wertes wird dieser in die Zelle eingetragen und die ComboBox wieder gelöscht
handelt es sich um Datumswerte, müssen diese in der ComboBox entsprechend formatiert werden, da andernfalls statt des Datums sein Zahlenwert angezeigt wird dies muss sowohl beim Erstellen der ComboBox als auch bei Änderung der Auswahl erfolgen
erstellte ComboBox erhält den Namen DropDownZoom, da für diesen Namen der weitere Code vorgegeben ist
Quellbereich für die ComboBox ist durch einen definierten Namen dynamisch festgelegt Name Liste: =BEREICH.VERSCHIEBEN(Tabelle1!$A$1;2;;ANZAHL2(Tabelle1!$A:$A);1)

Duplikate löschen / Duplikate in Tabellenspalte löschen

anonymous@undisclosed.example.com (Anonymous) — Sat, 28 Aug 2021 17:43:13 +0000

Duplikate löschen / Duplikate in Tabellenspalte löschen

Problem:

In einer Tabellenspalte sind Duplikate enthalten, die angezeigt und dann gelöscht werden sollen.

Lösung:

1. Duplikate anzeigen

Wählen Sie: Start > Bedingte Formatierung > Regeln zum hervorheben von Zellen > Doppelte Werte

2. Duplikate löschen

Markieren Sie die „Zeilen“ in der die Duplikate gefunden werden sollen (Achtung: auf keinen Fall die ganze Spalte über den Spaltenkopf markieren, da ansonsten die Funktion „Duplikate entfernen“ inaktiv angezeigt wird (also nicht angeklickt werden kann).
Wählen Sie: Daten > Datentools: Duplikate entfernen
Nachfolgende Abfrage bestätigen.

Einfügen der gleichen Zahl in viele Felder gleichzeitig

anonymous@undisclosed.example.com (Anonymous) — Sun, 04 Apr 2021 13:44:28 +0000

Einfügen der gleichen Zahl in viele Felder gleichzeitig

Problem:
Wenn ich die gleiche Zahl (z.B. 100) in 500 Felder eintragen will, müsste ich die Zahl 500 Mal eingeben. Geht das auch schneller?

Lösung:

Markieren Sie alle Zellen, in denen die Zahl eingetragen werden soll.
Geben Sie dann die Zahl (z.B. 100) ein.
Drücken Sie die STRG-Taste und halten Sie diese gedrückt.
Drücken Sie dann (zeitgleich) die ENTER-Taste.
Die Zahl ist nun in allen Feldern eingefügt worden.

Einfügen der Inhalte ohne Formatierung per Tastenkombination

anonymous@undisclosed.example.com (Anonymous) — Thu, 05 Jan 2023 11:22:00 +0000

Einfügen der Inhalte ohne Formatierung per Tastenkombination

Problem:
Gibt es eine Tastenkombination, mit der ich den Befehl „Einfügen: Einfügeoptionen: An Zielformatierung anpassen“ durchführen kann?

Ich kann ja mit der Tastenkombination STRG+V einen Text einfügen. Wenn ich aber z.B. einen formatierten Text aus MS Word einfügen will, möchte ich diesen ohne die Formatierungen einfügen.

Zwischenalternative: Wenn ich auf die Schaltfläche „Einfügen“ klicke, dann kann ich mit der Taste „M“ das Einfügen durchführen, ohne dass die Formatierung übernommen wird.

Wie kann ich aber mit einer Tastenkombination zuerst mit STRG+C einen formatieren Text und ihn dann mit einer Tastenkombination einfügen?

Zudem möchte ich vermeiden, dass die Excel-Arbeitsmappe ein Makro enthält, da dieses bei anderen Benutzern eine Sicherheitsmeldung auslöst. Die Dateiendung soll also bei .xlsx bleiben.

Lösung:

Seit einiger Zeit bietet Excel dafür die Datei „Personal.xlsb“ an. In dieser Datei können Makros gespeichert werden, die auf dem eigenen PC in allen Arbeitsmappen verwendet werden sollen. Diese werden also nicht an einen anderen Benutzer weitergeben, so dass die eigentliche Arbeitsmappe, die der Benutzer erhält, immer noch die Endung .xlsx haben kann.

Um das Makro in der Arbeitsmappe „Personal.xlsb“ zu erstellen, gehen Sie wie folgt vor:

Erstelle eine Arbeitsmappe „Test.xlsx“.
Öffne ein Word-Dokument, in dem du einen formatierten Text erstellst.
Excel: Klicke auf „Entwicklertools > Bereich: Code > Makros aufzeichnen“.
Trage bei „Makroname“ ein: EinfuegenOhneFormatierung
Trage bei „Tastenkombination“ ein: STRG+m
Träge bei „Makro speichern in“ ein: Persönliche Makroarbeitsmappe
Klicke auf OK.
Wechseln Sie zum Word-Dokument und markieren Sie den Text und kopieren ihn mit STRG+c.
Wechseln Sie zum Excel-Dokument wählen Sie eine Zelle aus und fügen Sie ihn ohne Formatierung ein, in dem Sie die Schaltflächen „Einfügen: Einfügeoptionen: An Zielformatierung anpassen“ drücken.
Wechseln Sie zur Registerkarte „Entwicklertools > Bereich: Code > Makro beenden“.
Speichern und schließen Sie die Arbeitsmappe.
Rufen Sie nun die Arbeitsmappe „Personal.xlsb“ direkt auf, indem Sie im Windows-Explorer in folgenden Pfad wechseln:
C:\Users\IHRBENUTZERNAME\AppData\Roaming\Microsoft\Excel\XLSTART
Doppelklicken Sie auf die Datei „Personal.xlsb“ um diese zu starten.
Klicke auf „Entwicklertools > Bereich: Code > Makros“.
Wählen Sie dann das Makro aus und klicken auf „bearbeiten“.
Wählen Sie das Modul aus und löschen Sie die erste Zeile des eigentlichen Codes.
Übrig bleibt also folgender Code:

Sub EinfuegenOhneFormatierung()
' EinfuegenOhneFormatierung Makro
' Tastenkombination: Strg+m
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False, NoHTMLFormatting:=True
End Sub

Speichern Sie die Datei und schließen Sie die Datei.
Wenn Sie nun neue Excel-Arbeitsmappen erzeugen, wird der Code zur Verfügung stehen, so dass Sie einen bereits markierten und kopierten Text (STRG+c) mit der neuen Tastenkombination (STRG+m) einfügen können.

Quellen:

Eingabewert einer Zelle soll eine andere Zelle verändern

anonymous@undisclosed.example.com (Anonymous) — Sun, 04 Apr 2021 13:45:09 +0000

Eingabewert einer Zelle soll eine andere Zelle verändern

Problem:
In einem Tabellenblatt sind die Werte von 10 Pflegediensten enthalten.

Zelle A1 (Eingabe des Pflegedienstes):
Um eine Auswertung eines Pflegedienstes vornehmen zu können, gebe ich in Zelle A1
den Zeilenwert des jeweiligen Pflegedienstes an.

Zelle B1 (Ausgabewert):
In Zelle B1 soll nun der „Wert“ erscheinen, der zum jeweiligen Pflegedienst
in Spalte C mit den Nummern 1 bis 10 enthalten ist.

Lösung:
=(INDIREKT(ADRESSE(A1;3)))

Aus Zelle A1 wird die Nummer des Pflegedienstes geholt, der als Zeilennummer benutzt wird.
3 bedeutet, das in Spalte 3 (also C) gesucht wird.

Ist der Eingabewert in A1 = 1, dann wird der Wert der Zelle C1 angezeigt.
Ist der Eingabewert in A1 = 3, dann wird der Wert der Zelle C3 angezeigt.

Die Funktion „Adresse“ gibt nur den Zellbezug als Text wieder.
Die Funktion „Indirekt“ benutzt diesen dann als Formel.

Formel Filter mit Teilstring suchen

anonymous@undisclosed.example.com (Anonymous) — Sat, 01 Feb 2025 16:42:08 +0000

Formel Filter mit Teilstring suchen

Problem:

Mit Hilfe der neuen Funktion „Filter“ kann man dynamische Ergebnislisten erzeugen, die auf einem Suchstring basieren.

Die Funktion sieht aber nicht vor, nach einem Teilstring zu suchen.

Dieses Problem kann aber gelöst werden.

Lösung:

Die Daten sind in Tabellenblatt 1 „Adressen“ enthalten:

Tabellenblatt-Name: Adressen
Spalte A: Straße
Spalte B: Postleitzahl
Spalte C: Ort

Auf Tabellenblatt 2 „Ergebnis“ wird zunächst die „normale“ Filter-Formel verwendet:

In Zelle A1 wird der Suchstring eingetragen: „Frankfurt“
In Zelle A3 wird der nachfolgende Code eingetragen:

=FILTER('Adressen'!A2:C2000;'Adressen'!C2:C2000=A1;"kein Ergebnis")

Es werden nun alle drei Spalten des Tabellenblatts „Adressen“ ausgegeben, in denen in Spalte C der Ort „Frankfurt“ enthalten ist.
Nicht ausgegeben werden Orte, in denen „Frankfurt“ nur Teil der Zelle ist.

Auf Tabellenblatt 2 „Ergebnis“ wird zunächst die „erweiterte“ Filter-Formel verwendet, die nach dem Teilstring sucht:

In Zelle A1 wird der Suchstring eingetragen: „Frankfurt“
In Zelle A3 wird der nachfolgende Code eingetragen:

=FILTER('Adressen'!A2:C2000;ISTZAHL(SUCHEN(A1;'Adressen'!C2:C2000));"kein Ergebnis")

Es werden nun alle drei Spalten des Tabellenblatts „Adressen“ ausgegeben, in denen in Spalte C der Ort „Frankfurt“ als Teilstring enthalten ist.
Beispiele dafür sind:
- Frankfurt
- Frankfurt am Main
- Frankfurt Oder
- Frankfurtstein

Tipp: Wenn Sie in einem Eingabefeld eine Drop-Down-Liste hinterlegen möchten, das auf einer Tabelle basiert, dann kann diese Tabelle auch auf einer gefilterten Tabelle (siehe oben) basieren. So ist es z.B. möglich, sehr lange Auswahllisten stark zu reduzieren, so dass die Drop-Down-Liste nur noch wenige Werte enthält.

Formel Indirekt: Formel aus Werten einer Tabellenzelle zusammensetzen

anonymous@undisclosed.example.com (Anonymous) — Tue, 27 Jun 2023 14:21:21 +0000

Formel Indirekt: Formel aus Werten einer Tabellenzelle zusammensetzen

Problem:
In Tabellenblatt 1 (Inhalt) soll ein Inhaltsverzeichnis erstellt werden.
Das Inhaltsverzeichnis besteht aus Hyperlinks zu mehreren anderen Tabellenblättern und den dortigen Titeln.

Der Titel befindet sich in den anderen Tabellenblättern immer in der Zelle A1.

Die Tabellenblätter tragen die namen „01, 02 etc.“.

Lösung:

Tabellenblatt: 00

Im Tabellenblatt „Inhalt“ steht in der Zelle A3, A4, A5 etc. der Name der jeweiligen Tabellenblätter (also 00, 01, 02 etc.).
In der jeweils rechts danebenstehenden Zelle (B3, B4, B5 etc.) wird folgende Formel eingegeben:

=INDIREKT("'"&A3&"'!A1")

Damit wird dann in der Zelle B3 beispielsweise der Titel des Tabellenblattes „00“ (der dort in der Zelle A1 steht) ausgegeben.

Funktion DATEDIF ergibt Fehler #ZAHL!

anonymous@undisclosed.example.com (Anonymous) — Sun, 04 Apr 2021 13:47:07 +0000

Funktion DATEDIF ergibt Fehler #ZAHL!

Problem: Sie möchten die Formel-Funktion DATEDIF verwenden, um das Alter mit Hilfe des Geburtsdatums zu berechnen.

Konstellation:
Feld A1 (Geburtsdatum): 5.3.1970
Feld A2 (aktuelles Jahr): 2017

In Feld A3 tragen Sie die folgende Formel ein:
=DATEDIF(A1;A2;„Y“)

Als Ergebnis erhalten Sie die Fehlermeldung:
#ZAHL!

Ursache: Die Fehlermeldung „#ZAHL!“ erscheint, wenn eine Zahl eine falsche Formatierung enthält.
Die Funktion DATEDIF erwartet zwei Datumswerte. Im Feld A2 ist jedoch nur die Zahl 2017 enthalten. Hierbei handelt es sich um eine „Zahl“ und nicht um ein „Datum“.

Lösung: Schreiben Sie in das Feld A2 irgendein Datum des gewünschten Jahres hinein. Sollten Sie immer noch die o.g. Fehlermeldung erhalten, formatieren Sie das Feld als „Datum“.

Richtig wäre also:

Konstellation:
Feld A1 (Geburtsdatum): 31.3.1970
Feld A2 (aktuelles Jahr): 1.1.2017

In Feld A3 tragen Sie die folgende Formel ein:
=DATEDIF(A1;A2;„Y“)

Möchten Sie in der Formel DATEDIF das Geburtsdatum direkt angeben, so gilt die amerikanische Schreibweise:

deutsch: 31.3.1970
amerikanisch: 1970/03/31

Funktion: Hyperlink

anonymous@undisclosed.example.com (Anonymous) — Sun, 04 Apr 2021 13:47:49 +0000

Funktion: Hyperlink

Wie kann ich einen Hyperlink auf eine bestimmte Zelle setzen?

Geben Sie in der Zelle A1 folgende Formel ein:

=HYPERLINK(„#D20“;„Link anklicken“)

setzt einen Hyperlink mit dem Namen „Link anklicken“ auf die Zelle D20 im gleichen Arbeitsblatt.

Geben Sie in der Zelle A1 in Tabelle1 folgende Formel ein:

=HYPERLINK(„#Tabelle2!D20“;„Link anklicken“)

setzt einen Hyperlink mit dem Namen „Link anklicken“ auf die Zelle D20 im Arbeitsblatt „Tabelle2“.

Funktion: SVERWEIS

anonymous@undisclosed.example.com (Anonymous) — Fri, 12 Nov 2021 12:36:53 +0000

Funktion: SVERWEIS

SVERWEIS() in Excel – was kann man damit machen?
http://praxistipps.chip.de/sverweis-in-excel-was-kann-man-damit-machen_9582

Mit SVERWEIS Wert in einer Spalte suchen und dann den Wert einer anderen Spalte zurückgeben
https://www.tippscout.de/excel-sverweis-wverweis_tipp_6322.html

HT wird zu HAT - aber ungewollt

anonymous@undisclosed.example.com (Anonymous) — Wed, 07 Sep 2022 14:39:09 +0000

HT wird zu HAT - aber ungewollt

Problem:
Wenn ich in einer Excel-Zelle die Abkürzung HT oder ht eingebe, macht Excel automatisch daraus HAT oder hat.

Lösung:
Excel ersetzt in diesem Fall „gewollt“ automatisch die Zeichenfolge.

Um dieses Automatisch auszuschalten, gehen Sie wie folgt vor:

Wählen Sie den Befehl „Datei > Optionen > Dokumentenprüfung“.
Klicken Sie rechts auf die Schaltfläche „Autokorrektur-Optionen“.
In der Registerkarte „Autokorrektur“ klicken Sie in das Feld „Ersetzen:“.
Geben Sie dort „ht“ ein.
Wählen Sie mit dem Mauszeiger den Eintrag „HT - HAT“ aus.
Klicken Sie anschließend auf die Schaltfläche „Löschen“.
Bestätigen Sie Ihre Änderung mit Klick auf die Schaltfläche „OK“.

Kalenderwoche stimmt nicht in Excel

anonymous@undisclosed.example.com (Anonymous) — Sat, 09 Apr 2022 11:31:41 +0000

Kalenderwoche stimmt nicht in Excel

Problem:
Wenn ich die Funktion „Kalenderwoche“ verwende, erhalte ich für ein Datum eine falsche Kalenderwoche. Woran kann das liegen?

Lösung:
Die Kalenderwoche wird in den verschiedenen Ländern unterschiedlich berechnet.

In Europa ist die erste Kalenderwoche des Jahres diejenige Woche, in der der erste Donnerstag enthalten ist. Diese Regelung findet sich in der DIN ISO 8601 wieder.

Damit die Formel die europäische Kalenderwoche annimmt, muss als zweiter Wert in der Formel der Wert „21“ stehen.

Wenn die Zelle A1 das Datum 10.1.2022 enthält, dann muss die Formel lauten:

=KALENDERWOCHE(A1;21)

Ergebnis = 2

Kopieren einer Zelle ohne dabei die Werte hochzuzählen

anonymous@undisclosed.example.com (Anonymous) — Sun, 04 Apr 2021 13:48:07 +0000

Kopieren einer Zelle ohne dabei die Werte hochzuzählen

Problem:
Wenn ich eine Zelle mit dem Inhalt „1.“ kopiere, wird die Zahl pro Zelle hochgezählt (2., 3., 4. …). Wie kann ich diesen Automatismus abschalten?

Lösung:
Halten Sie beim Kopieren der Zellen die STRG-Taste gedrückt. Dadurch bleibt der Inhalt unverändert.

Kopieren per Klick auf rechte Maustaste

anonymous@undisclosed.example.com (Anonymous) — Tue, 11 Jul 2023 20:49:22 +0000

Kopieren per Klick auf rechte Maustaste

Problem:
Manchmal kommt es vor, dass man viele einzelne Zellinhalte von Excel in eine andere Software übertragen möchte, die ebenfalls nur einzelne Textfelder aufweist. Eine Kopie der ganzen Tabelle scheidet daher aus.

Um nicht jedes Mal STRG + C drücken zu müssen, kann man auch mit der Maustaste arbeiten.

Lösung:
Das nachfolgende Makro fügt den Inhalt einer Excel-Zelle in die Zwischenablage ein, indem über der Zelle die rechte Maustaste gedrückt wird. Zwar öffnet sich dadurch auch das Kontextmenü (so wie es sein soll), gleichzeitig wurde aber auch der Text der Zelle in die Zwischenablage kopiert.

Danach kann dann der Text der Zwischenablage in einer anderen Software per STRG + V eingefügt werden.

'Quelle: https://www.ms-office-forum.net/forum/showthread.php?t=223176

Option Explicit
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    
    'Kopiert den Zellinhalt in die Zwischenablage, sobald die rechte Maustaste angeklickt wird.
    
    Target.Copy
    
    'Cancel=true 'Kontextmenü wird ausgeblendet (wenn gewünscht)

End Sub

Leere Zellen einfärben

anonymous@undisclosed.example.com (Anonymous) — Sun, 04 Apr 2021 13:48:53 +0000

Leere Zellen einfärben

Problem:
Wenn eine Zelle leer ist (nicht enthält) soll diese mit einer anderen Farbe angezeigt werden.

Lösung:
In Excel 2007 und 2010 gilt:
Start > Bedingte Formatierung > Neue Regel
Gewünschte Zellen markieren Befehl: Nur Zellen formatieren die enthalten
Zellwert gleich =„“ eingeben (also Gleichzeichen und zwei Anführungszeichen ohne Leerzeichen)
Hintergrundfarbe auswählen und mit OK bestätigen.

Leerzeichen in Telefonnummer löschen

anonymous@undisclosed.example.com (Anonymous) — Sun, 04 Apr 2021 13:49:10 +0000

Leerzeichen in Telefonnummer löschen

Problem:
Es sollen alle Leerzeichen aus Telefonnummern entfernt werden.
Suchen und Ersetzen geht nicht, da dann die erste Null abgeschnitten wird.

Lösung:
Die Original Telefonnummer steht in Feld A1
In Zelle B1 wird folgende Formel eingegeben:
=WECHSELN(A1;„ “;)

Dadurch werden alle Leerzeichen entfernt. Die erste Null bleibt aber bestehen.

Makro: Zeilen zusammenklappen / Zeilen aufklappen

anonymous@undisclosed.example.com (Anonymous) — Wed, 01 Nov 2023 11:32:03 +0000

Makro: Zeilen zusammenklappen / Zeilen aufklappen

Problem:
Sie verwenden eine Excel-Datei, in der in einzelnen Zellen längere Texte stehen, so dass sie mehrere Zeilenumbrüche haben.

In der ersten Zeile der Zelle schreiben Sie jedoch immer einen Kurztext hinein, so dass der restliche Text nur angezeigt werden muss, wenn Sie ihn benötigen. Andernfalls würden Sie die Zeile gerne zusammenklappen wollen. Da Sie auf dem ganzen Tabellenblatt so vorgehen, möchten Sie gerne alle Zeilen zusammenklappen und bei Bedarf wieder aufklappen wollen.

Lösung:
Erstellen Sie ein erstes Makro, indem Sie:

die Makroaufzeichnung anschalten
mit STRG+A das ganze Tabellenblatt markieren
die Zeilenhöhe auf 15 Punkt stellen (über die rechte Maustaste)
in die Zelle A1 klicken (damit die Markierung aufgehoben wird)
die Makroaufzeichnung beenden
dem Makro die Tastenkombination STRG+k zuweisen

Erstellen Sie ein zweites Makro, indem Sie:

die Makroaufzeichnung anschalten
mit STRG+A das ganze Tabellenblatt markieren
die Zeilenhöhe aufklappen, indem Sie am linken Seitenrand auf den Strich zwischen zwei Zeilen klicken (dadurch wird die volle Größe wieder hergestellt)
in die Zelle A1 klicken (damit die Markierung aufgehoben wird)
die Makroaufzeichnung beenden
dem Makro die Tastenkombination STRG+l zuweisen

Danach können Sie mit den beiden Tastenkombinationen die Zellen des Blattes alle aufklappen und wieder zuklappen.

Wenn Sie die Makros in VBA direkt eingeben wollen, finden Sie nachfolgend den Quellcode. Sie müssen danach nur noch die Tastenkombinationen zuweisen:


Sub ZeileKleiner()
' Durch dieses Makro werden alle Zellen auf dem aktiven Tabellenblatt markiert
' und alle Zeilen auf eine Höhe von 15 Punkten eingestellt.

    Cells.Select
    Selection.RowHeight = 15
End Sub


Sub ZeileGroesser()
' Durch dieses Makro werden alle Zellen auf dem aktiven Tabellenblatt markiert
' und alle Zeilen ihre maximal benötigte Größe (je nach Inhalt) eingestellt.
' ZeileGroesser Makro

    Cells.Select
    Cells.EntireRow.AutoFit
End Sub

Nullwerte im Diagramm ausblenden

anonymous@undisclosed.example.com (Anonymous) — Sun, 04 Apr 2021 14:11:56 +0000

Nullwerte im Diagramm ausblenden

Problem:
Ein Diagramm soll Werte aus einer Tabelle anzeigen, die Nullwerte enthält.
Wird ein Liniendiagramm verwendet, werden anstatt der Linien nur Punkte angezeigt.
Würde man in die Leeren Zellen „0“ setzen, so würde zwar eine Linie gezeichnet, diese jedoch an den jeweiligen Stellen zum Nullpunkt geführt.
Die Linien sollen aber miteinander verbunden werden.

Lösung:
In die leeren Zellen trägt man den Wert

#NV

ein.

Microsoft Excel - FAQ Allgemein

anonymous@undisclosed.example.com (Anonymous) — Tue, 27 May 2025 12:27:37 +0000

Microsoft Excel - FAQ Allgemein

3D-Tabelle "abbilden"

Add-in deaktiveren

AGGREGAT: Mehrere Suchkriterien nutzen und mehrere Werte finden (statt SVERWEIS)

Aktive Zeile farbig markieren

Alter berechnen

Autofilter per VBA in erster Zeile einbauen

Barcodes und QR-Codes in Excel erstellen

Bedingte Formatierung für mehrere Spalten anwenden (Mehrere Zellen nebeneinander farbig markieren, wenn in einer anderen Zelle ein bestimmter Wert steht)

Behebung von Startproblemen in Microsoft Excel

Blattschutz aufheben / Arbeitsmappenschutz aufheben

Blattsortierung in der Arbeitsmappe Tabellenblätter einer Excel-Arbeitsmappe sortieren.

Datei (Excel) per Verknüpfung immer schreibgeschützt öffnen (bei mehreren Benutzern)

Datum: Anzahl Tage eines Monats ermitteln

Datum auf Gültigkeit prüfen

Datum in einer Formel direkt eingeben (ohne Zellbezug)

Datum: Ungültiges zusammengesetzes Datum auf Null stellen

Datumsbereich in einem Kalender farblich markieren (Video)

Dezimalstunden (1,75) konvertieren in Stunden und Minuten (1:45)

Doppelklick führt zur gleichen Zelle auf einem anderen Tabellenblatt

Dropdown-Feld nutzen um mehrere Zellen zu füllen

Duplikate löschen / Duplikate in Tabellenspalte löschen

Dynamische Drop-Down-Listen

Einblenden der ersten Spalte oder Zeile auf einem Arbeitsblatt

Einfügen der gleichen Zahl in viele Felder gleichzeitig

Einfügen der Inhalte ohne Formatierung per Tastenkombination

Eingabewert einer Zelle soll eine andere Zelle verändern

Formel Filter mit Teilstring suchen

Formel Indirekt: Formel aus Werten einer Tabellenzelle zusammensetzen

Funktionen: Liste aller Funktionen (von Microsoft)

Funktion Börsenhistorie
Hinweis 1: Alle Börsenkürzel, die Microsoft verwendet, finden sich hier: Informationen zu den Finanzdatenquellen für Aktien
Hinweis 2: Eine Liste aller Aktien des XETRA und der Deutschen Börse als CSV-Datei findet sich hier: Alle handelbaren Instrumente des XETRA

Funktion DATEDIF ergibt Fehler #ZAHL!

Funktion: KGROESSTE

Funktion: SVERWEIS

Funktion: SVERWEIS - Multikonditionaler Verweis (Suche eines Wertes auf der Grundlage von 2 Werten aus 2 Zeilen, auf deren Grundlage der Wert gefunden werden soll
Hinweis: Die Funktion sucht nach zwei Werten in zwei Spalten und einem Ergebnis in einer dritten Spalte.

Funktion: SVERWEIS - Koordinaten aus Suchbegriff in Zeile und Spalte bestimmen
Hinweis: Die Funktion sucht nach zwei Werten in einer Zeile und in einer Spalte und einem Ergebnis im Kreuzungspunkt dieser beiden Suchfelder.

Funktion: Hyperlink

Hinweise zu Drittanbieter-Programmen, die als Störquellen bei allerlei Word-Problemen identifiziert wurden

How to Read and Create Barcodes in Excel
Video zum Tutorial

HT wird zu HAT - aber ungewollt

Kalenderwoche stimmt nicht in Excel

Kopieren per Klick auf rechte Maustaste

Kopieren einer Zelle ohne dabei die Werte hochzuzählen

Korrigieren als Text formatierter Zahlen durch Anwenden eines Zahlenformats

Leere Zellen einfärben

Leerzeichen in Telefonnummer löschen

Liste der Excel-Funktionen (nach Alphabet)

Liste der Excel-Funktionen (nach Kategorie)

Makro: Zeilen zusammenklappen / Zeilen aufklappen

Microsoft Power Query für Excel (Add-In für Excel 2010 und 2013)
Das Add-In ermöglicht das Konsolidieren von mehreren Tabellenblättern in einem neuen Tabellenblatt.

Nullwerte im Diagramm ausblenden

Serien-E-Mails mit individuellem Anhang per Outlook, Excel und Word versenden

SVERWEIS: Alle Werte finden (und nicht nur einen Wert)

SVERWEIS: Auf Basis eines Suchwertes nach einem dazugehörigen Wert suchen

Text extrahieren bis zu einem bestimmten Zeichen

Uhrzeiten: Zeiten über Nacht berechnen (von einem auf den anderen Tag)

Umwandeln von XML zu einfachen Text Werte Paaren
Tolle Erläuterung zum Thema. Es wird auch eine Excel-Datei zur Verfügung gestellt, mit deren Hilfe die Anfangstags und die Endtags vom Inhalt getrennt werden kann.

VBA: Wert per Klick bzw. Doppelklick an Autofilter übergeben

VBA-Passwort löschen

VBA: AutoFilter an- und ausschalten / Filter löschen
Erläuterungen zum Einschalten und Ausschalten des AutoFilters in Excel (auf einem Tabellenblatt oder auf allen Tabellenblättern).

VBA: Datenbank erstellen / UserForm Grundlagen: Beispiel einer einfachen Datenbank
Eingabeformular per VBA erstellen. Excel als einfache Datenbank nutzen. Youtube-Konto: ANDRÉ NAS - EXCEL VBA & POWERPOINT

Vergleich von zwei Tabellenzellen

Wie füge ich dem Balkendiagramm in Excel eine vertikale / durchschnittliche Linie hinzu?

Windows-Explorer Dateipfade und / oder Dateien als Excel-Tabelle ausgeben / exportieren

Wochentag Funktion leicht erklärt

XML-Daten in Excel verwenden und erstellen oder importieren XML: Übersicht über XML in Excel (von Microsoft)

XML: Ordner-Import bei unterschiedlich strukturierten Dateien mit Power Query

ZÄHLENWENNS: Anzahl der Daten ermitteln, die innerhalb eines Datumsbereiches liegen

Zahl als Text umwandeln von Text als Zahl

Zahl ist teilbar ohne Rest (Funktion REST)

Zeilen farblich markieren, wenn bestimmter Wert in Zelle

Zelle: Zeilenumbruch per VBA anschalten / ausschalten

Zelle anklicken und in anderer Zelle Text anzeigen

Zellbezug dynamisch verändern

SVERWEIS: Alle Werte finden (und nicht nur einen Wert)

anonymous@undisclosed.example.com (Anonymous) — Sun, 04 Apr 2021 14:16:37 +0000

SVERWEIS: Alle Werte finden (und nicht nur einen Wert)

Problem:
Mit SVERWEIS kann immer nur ein Wert in einer Tabelle gefunden werden.
Ich möchte aber mehrere Werte, die dem Suchkriterium entsprechen, finden.

Lösung:

Eine sehr gute Anleitung dazu findet sich hier:
https://www.tabellenexperte.de/besser-als-sverweis-alle-werte-finden/

Text extrahieren bis zu einem bestimmten Zeichen

anonymous@undisclosed.example.com (Anonymous) — Wed, 26 Apr 2023 20:32:59 +0000

Text extrahieren bis zu einem bestimmten Zeichen

Problem:

Im Feld A3 steht ein Text, der an einer bestimmten Stelle das Zeichen Slash (/) enthält. Rechts daneben steht weiterer Text. Dieser rechte Textteil auf der rechten Seite soll in einer anderen Zelle (C3) extrahiert werden.

Lösung:

Geben Sie in das Feld C3 eine der beiden folgenden Formeln ein:

=RECHTS(A3;LÄNGE(A3)-FINDEN(„#“;WECHSELN(A3;„\“;„#“;LÄNGE(A3)-LÄNGE(WECHSELN(A3;„\“;„“)))))

Oder

=RECHTS(A3;LÄNGE(A3)-VERWEIS(999;FINDEN(„\“;A3;ZEILE(A:A))))

Uhrzeiten: Zeiten über Nacht berechnen (von einem auf den anderen Tag)

anonymous@undisclosed.example.com (Anonymous) — Tue, 25 Jul 2023 17:57:52 +0000

Uhrzeiten: Zeiten über Nacht berechnen (von einem auf den anderen Tag)

Problem:
Sie möchten in der Dienstplanung die Dauer der Arbeitszeit berechnen. Der Mitarbeiter hatte aber eine Nachtwache, so dass Excel nicht einfach die Zeiten voneinander abziehen kann.

Lösung:

Spalte I = Arbeitszeit Anfang (Format hh:mm)
Spalte J = Arbeitszeit Ende (Format hh:mm)
Spalte K = Pause Dauer (in Stunden und Minuten als Dezimalzahl)
Dann in einer neuen Zelle folgende Formel eingeben:

=WENN(I2<J2;((J2-I2)*24)-K2;((J2-I2+1)*24)-K2)

VBA: Wert per Klick bzw. Doppelklick an Autofilter übergeben

anonymous@undisclosed.example.com (Anonymous) — Fri, 10 May 2024 11:35:59 +0000

VBA: Wert per Klick bzw. Doppelklick an Autofilter übergeben

Problem:

In Tabellenblatt „Tabelle1“ steht in Spalte A in jeder Zeile eine Identifikationsnummer (also eine Zahl).
Diese Zahl soll per einfachem Klick bzw. per Doppelklick auf das jeweilige Feld an ein fest vorgegebenes Feld (A2) auf das Tabellenblatt „Tabelle3“ übergeben werden.
In Tabellenblatt „Tabelle2“ ist eine Liste enthalten, die mehrere Einträge zur gleichen Identifikationsnummer der Tabelle1 enthält (also eine Untertabelle).
Wenn nun der Benutzer in Tabelle1 einen Doppelklick auf eine Zelle der Spalte A ausführt, wird die jeweilige Identifikationsnummer zuerst nach Tabelle2 in das Feld A2 kopiert. Anschließend wird dieser Wert verwendet, um in Tabelle2 alle Einträge zu filtern, die in Spalte A diesen Wert enthalten.
Voraussetzung: Lassen Sie sich beide Tabellenfenster gleichzeitig anzeigen (Tabellenblatt „Tabelle1“ auf Bildschirm 1 und Tabellenblatt „Tabelle2“ auf Bildschirm 2).
Eine Mustertabelle dazu finden Sie hier: Excel Wiedervorlage mit Untertabelle

Lösung für einfachen Klick:

In Tabelle1 wird folgender VBA-Code hinterlegt:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
  If Target.Column = 1 Then
     Tabelle3.Range("A2").Value = Target.Value
     Target.Copy
  End If

'Alternative Variante mit Doppelklick
'Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
  ' Tabelle3.Range("A2").Value = Target.Value
  ' Target.Copy
  ' Cancel = True

  If Tabelle2.AutoFilterMode Then
     Tabelle2.AutoFilterMode = False
  End If
  
  If Not ActiveSheet.AutoFilterMode Then
     Tabelle2.Range("A1").AutoFilter
     Tabelle2.Range("A1").AutoFilter 1, Tabelle3.Range("A2").Value
  End If


End Sub

VBA-Passwort löschen

anonymous@undisclosed.example.com (Anonymous) — Mon, 22 Jul 2024 14:51:44 +0000

VBA-Passwort löschen

Problem:

Sie möchten in einer Excel-Datei das VBA-Passwort löschen, dass der Entwickler an folgender Stelle hinterlegt hat:

Entwicklertools > Visual Basic > (z.B.) Modul1 (anklicken und rechte Maustaste anklicken) > Eigenschaften von VBA-Project > Registerkarte: Schutz
- Haken aktieren: Projekt für die Anzeige sperren
- Kennwort zwei Mal eingeben

Lösung:

Benennen Sie die Excel-Datei von „.xlsm“ um in „.zip“
Öffnen Sie die ZIP-Datei und entpacken Sie den Inhalt in einen neuen Ordner.
Wechseln Sie in den Ordner „xl“.
Starten Sie einen Hex-Editor (z.B. XVI32) und öffnen Sie die Datei „vbaProject.bin“.
Suchen Sie nach dem Text-String „Dpb“ (Haken bei Case sensitive„ deaktivieren) und benennen Sie die Zeichenfolge um in „dpX“.
Speichern Sie die Datei und kopieren Sie diese wieder in die ZIP-Datei hinein.
- ACHTUNG: Erstellen Sie keine neue ZIP-Datei sondern benutzen Sie die bisherige ZIP-Datei!
Benennen Sie die Datei von “.zip„ um in “.xlsm„.
Starten Sie die Excel-Datei, …
- Sie erhalten den Fehler „Die Projektdatei C:\dateiname.xlsm“ enthält einen ungültigen Wert für den Schlüssel 'DPX. Laden des Projektes fortsetzten?“. Bestätigen Sie den Startvorgang mit Klick auf „Ja“.
- Wechseln Sie zu „Entwicklertools > Visual Basic > Programmbaum: Module > Modul1“ und klicken Sie mit der rechten Maustaste. Wählen Sie dann „Eigenschaften von VBAProject“ mit der linken Maustaste aus.
- Wählen Sie die Registerkarte „Schutz“ aus und deaktivieren Sie den Haken bei „Projekt für die Anzeige sperren“.
- Sie haben nun wieder Zugriff auf den VBA-Code.

Vergleich von zwei Tabellenzellen

anonymous@undisclosed.example.com (Anonymous) — Wed, 26 Apr 2023 20:27:14 +0000

Vergleich von zwei Tabellenzellen

Problem:

Ich habe zwei Tabellen, die jeweils eine Telefonnummer, die Rahmenvertragsnummer und den Ort enthalten. In beiden Tabellen sind unterschiedlich viele Telefonnummern hinterlegt.
Ich möchte nun wissen, welche Telefonnummern in der kürzeren Liste fehlen, die in der längeren Liste enthalten sind.

Lösung: Teil 1 - Wert direkt verglichen und falls Wert vorhanden ist, diesen ausgeben Ziel ist es, zuerst einmal die Telefonnummern zu kennzeichnen, die nur in einer der beiden Listen vorkommen.

1. Tabelle „TEins“ („1. Liste der Telefonnumern (intern)) mit den Feldern:
Spalte A = Telefonnummern
Spalte B = Rahmenvertragsnummer
Spalte C = Ort

2. Tabelle „TZwei“ (2. Liste der Telefonnumern (Telefonanbieter)) mit den Feldern:
Spalte A = Telefonnummern
Spalte B = Rahmenvertragsnummer
Spalte C = Ort

3. Tabelle
Spalte A = Telefonnummern aus 1. Tabelle
Die Telefonnummern müssen manuell in die Spalte A kopiert werden. Dabei sollten diese nur als „Wert“ übernommen werden, so dass keine Formatierungsfehler auftreten können.

Spalte B = enthält die Formel zum Vergleich
{=SVERWEIS(A1;TZwei!$A$1:$A$600;1;FALSCH)}
Da es sich um eine Matrixformel handelt, muss die Eingabe der Formel mit der Tastenkombination STRG+UMSCHALT+ENTER vorgenommen werden.

Die Spalte B vergleicht den Wert aus Zelle A1 mit allen Werte aus der Tabelle TZwei Spalte A1 bis A600. Wird der Wert in einer der Zellen gefunden, so wird die Telefonnummer aus TZwei angezeigt. Hierfür wird in der Formel nach dem dritten Semikolon der Wert 1 eingegben, da es sich um die erste Spalte handelt.

Sollte der Wert in der Liste nicht vorkommen, so wird als Ergebnis “#NV„ ausgegeben. Danach kann dann also gefiltert werden und so die fehlenden Einträge ermittelt werden.

Der Wert „FALSCH“ ist notwendig, da andernfalls bei nicht vorhandenen Telefonnummern die vorherige gefundene Telefonnummer ausgegeben würde.

Achtung: Sofern ein Wert zwei Mal vorkommt, wird der zweite Wert ebenfalls mit “#NV„ gekennzeichnet. Sofern ein Feld in der Ausgangstabelle leer ist, wird ebenfalls “#NV„ ausgegeben.

Lösung: Teil 2 - Wert verglichen und falls Wert vorhanden ist, wird die Rahmenvertragsnummer ausgegeben Ziel ist es, zuerst einmal die Telefonnummern zu kennzeichnen, die nur in einer der beiden Listen vorkommen.

1. Tabelle „TEins“ („1. Liste der Telefonnumern (intern)) mit den Feldern:
Spalte A = Telefonnummern
Spalte B = Rahmenvertragsnummer
Spalte C = Ort

2. Tabelle „TZwei“ (2. Liste der Telefonnumern (Telefonanbieter)) mit den Feldern:
Spalte A = Telefonnummern
Spalte B = Rahmenvertragsnummer
Spalte C = Ort

Spalte B = enthält die Formel zum Vergleich
{=SVERWEIS(A1;TZwei!$A$1:$B$600;2;FALSCH)}
Da es sich um eine Matrixformel handelt, muss die Eingabe der Formel mit der Tastenkombination STRG+UMSCHALT+ENTER vorgenommen werden.

Im Unterschied zur Lösung Teil 1, muss die Formel auf den Bereich A bis B ausgedehnt werden. Zwar werden die beiden Telefonnummern miteinander verglichen, jedoch wird durch den Wert „2“ in der Formel, die zweite Spalte als Ausgabespalte genutzt, d.h. die Rahmenvertragsnummer wird ausgegeben.

Der Wert „FALSCH“ ist notwendig, da andernfalls bei nicht vorhandenen Telefonnummern die vorherige gefundene Telefonnummer ausgegeben würde.

Achtung: Sofern ein Wert zwei Mal vorkommt, wird der zweite Wert ebenfalls mit “#NV“ gekennzeichnet. Sofern ein Feld in der Ausgangstabelle leer ist, wird ebenfalls „#NV“ ausgegeben.

Windows-Explorer Dateipfade und / oder Dateien als Excel-Tabelle ausgeben / exportieren

anonymous@undisclosed.example.com (Anonymous) — Sat, 28 Aug 2021 17:47:43 +0000

Windows-Explorer Dateipfade und / oder Dateien als Excel-Tabelle ausgeben / exportieren

Problem:

Ich möchte im Windows Explorer einen Ordner mit Unterordnern und Dateien in Form einer Excel-Datei anzeigen lassen.

Lösung:

Wählen Sie: Daten > Daten abrufen > Aus Datei > Aus Ordner
Wählen Sie nun den gewünschten Ordner aus und klicken Sie auf „Öffnen“.
Dann Schaltfläche „Laden“ anklicken.

Nun wird der Ordner inklusive aller Unterordner und aller Dateien in das Excel-Tabellenblatt geladen.
In der Spalte F finden Sie den Dateipfad.

Sofern Sie Spalten A bis E nicht benötigen (also nur die Ordner anzeigen lassen möchten), können Sie diese Spalten zuerst löschen.
Anschließend können Sie die doppelten Ordner (Duplikate) löschen. Gehen Sie dazu wie folgt vor: Duplikate löschen / Duplikate in Tabellenspalte löschen.

ZÄHLENWENNS: Anzahl der Daten ermitteln, die innerhalb eines Datumsbereiches liegen

anonymous@undisclosed.example.com (Anonymous) — Sun, 04 Apr 2021 14:17:10 +0000

ZÄHLENWENNS: Anzahl der Daten ermitteln, die innerhalb eines Datumsbereiches liegen

Problem:
In Zeile 1 befinden sich die Überschriften der Tabelle. In einer Tabelle befindet sich in Spalte A das „Startdatum“ von 100 Abonnenten.
In der Spalte B befindet sich das „Enddatum der Abonnenten.

Es soll nun ermittelt werden, wie viele Abonnenten zum Zeitpunkt X (Zelle D2) ein Abo hatten.

1. Lösung (Excel 2007 und 2010):
In diesem Fall kann die Formel „ZÄHLENWENNS“ verwendet werden.
Schreiben Sie in Zelle D2 folgende Formel hinein:

=ZÄHLENWENNS(A$2:$A$1000;“<„&D2;$B$2:$B$1000;“>„&D2)

Achtung:
Das Größer-Zeichen bzw. das Kleiner-Zeichen muss in dieser Formel von Anführungszeichen umschlossen sein und anschließend mit einem &-Zeichen von der Zellenbezeichnung getrennt werden.

Zudem muss in der „Enddatum“-Spalte ein Datum in der Zukunft stehen, da ansonsten ein Fehler auftritt.

	Spalte A	Spalte B	Spalte D	Spalte E
Zeile 1	Startdatum	Enddatum	Zieldatum	Anzahl
Zeile 2	01.01.2000	31.12.2099	1.1.2020	4
Zeile 3	01.01.2000	05.05.2018
Zeile 4	01.01.2000	31.12.2099
Zeile 5	01.01.2000	02.02.2015
Zeile 6	01.01.2000	31.12.2099
Zeile 7	01.01.2000	31.12.2099

Zahl als Text umwandeln von Text als Zahl

anonymous@undisclosed.example.com (Anonymous) — Thu, 17 Mar 2022 10:34:28 +0000

Zahl als Text umwandeln von Text als Zahl

Problem:
Normalerweise formatiert man den Inhalt einer Zelle mit dem Befehl „Zellen formatieren“, den man über das Kontextmenü (rechte Maustaste) erreicht.

Es kann aber vorkommen, dass Excel eine Zahl in einem Feld, wenn man mit dem Befehl „Zellen formatieren“ nachsieht, dort als „Zahl“ formatiert, aber diese Zahl im Feld tatsächlich als Text erkennt.

Das Problem: Man kann also nirgendwo „sehen“ dass die Zahl als Text formatiert ist!!!

Solche „Textzahlen“ können jedoch zu sehr merkwürdigen Fehlern führen. Angenommen man möchte anhand einer Zahl in einem Feld mit Hilfe der Funktion „SVERWEIS“ in einer anderen Tabelle nach einem Wert suchen, dann wird dieser dort nicht gefunden, weil er in der anderen Tabelle eine Zahl ist. In der Ausgangstabelle jedoch nicht.

Achtung:\\ Es nützt gar nichts, die Zahl über den Befehl „Zellen formatieren“ anders zu formatieren!!! Es ist also zwingend notwendig eine der nachfolgenden Lösungen anzuwenden.

1. Lösung (Excel 2007 und 2010):

Fügen Sie die Daten als Text ein.
Markieren Sie den Text.
Rufen Sie die Registerkarte „Daten“, dort die Gruppe „Datentools“ und dort den Befehl „Text in Spalten“.
1. Dialogfeld: „getrennt“ auswählen. Dann auf „Weiter“ klicken.
2. Dialogfeld: alle Einstellungen belassen. Dann auf „Weiter“ klicken.
2. Dialogfeld: alle Einstellungen belassen. Dann auf „Fertigstellen“ klicken.

Hinweis: Dieser Tipp funktioniert nur bei Zahlen die bis 16 Ziffern lang sind.

2. Lösung (Excel 2007 und 2010):

Heben Sie ggf. einen Blattschutz auf, indem Sie wie folgt vorgehen:
Menü: Überprüfen > Gruppe: Änderungen > Befehl: Blattschutz aufheben
Markieren Sie die betroffenen Zellen.
Wandeln Sie die Zellinhalte von Text in Zahl um, indem Sie folgenden Befehl anklicken:
Menü: Daten > Gruppe: Datentools > Befehl: Text in Spalten > Befehl: Fertig stellen

3. Lösung:

Addieren Sie zu der Zahl im Feld den Wert 0 (Null). Dadurch erkennt Excel, das es sich um eine Zahl handeln muss.
Markieren Sie eine Zelle, die die Zahl 0 enthält. Kopieren Sie diese nun (STRG + C).
Klicken Sie auf: Einfügen > Inhalte einfügen > Addieren.

4. Lösung:

Multiplizieren Sie die Zahl mit dem Wert 1 (Eins). Dadurch erkennt Excel, das es sich um eine Zahl handeln muss.
Markieren Sie eine Zelle, die die Zahl 1 enthält. Kopieren Sie diese nun (STRG + C).
Klicken Sie auf: Einfügen > Inhalte einfügen > Multiplizieren.

5. Lösung:

Lesen Sie die Grundzelle (z.B. A1) in einem Nachbarfeld mit der Funktion „ISTZAHL(A1)“ aus.
Dadurch wird der Zellinhalt auf jeden Fall in eine Zahl umgewandelt.

Zahl ist teilbar ohne Rest (Funktion REST)

anonymous@undisclosed.example.com (Anonymous) — Mon, 05 Apr 2021 15:20:33 +0000

Zahl ist teilbar ohne Rest (Funktion REST)

Problem:

Eine Zahl wird durch eine andere Zahl geteilt (dividiert).

Es soll geprüft werden, ob die beiden Zahlen geteilt werden können, ohne dass sich ein Rest ergibt (also eine Teilung mit einem ganzzahligen Ergebnis möglich ist, ohne Nachkommastellen).

Lösung:

Zelle A1 = 20 Zelle A2 = 10

Formel in Zelle A5:
=WENN(REST(A1;A2)>0;„Zahl ist nicht teilbar“;„Zahl ist teilbar“)

Ergebnis: Zahl ist teilbar

Zeilen farblich markieren, wenn bestimmter Wert in Zelle

anonymous@undisclosed.example.com (Anonymous) — Fri, 01 Mar 2024 08:36:39 +0000

Zeilen farblich markieren, wenn bestimmter Wert in Zelle

Problem:
In einer Tabelle ist in Spalte A entweder der Wert „Ausgaben“ oder „Einnahmen“ enthalten.

In den folgenden Spalten steht die Art der Einnahme, die Höhe des Betrages und eine Bemerkung.

Alle Zeilen, die in der Spalte A den Wert „Ausgaben“ enthalten, sollen rot gefüllt werden.
Alle Zeilen, die in der Spalte A den Wert „Einnahmen“ enthalten, sollen blau gefüllt werden.

Lösung:
Die Lösung kann mit Hilfe der bedingten Formatierung gelöst werden. Gehen Sie dazu wie folgt vor.

Markieren Sie die Spalten und Zeilen „B1:Z100“.
Klicken Sie in der Menüleiste > Registerkarte: Start > Gruppe: Formatvorlagen > Bedingte Formatierung an.
Wählen Sie den Befehl „Regeln verwalten“ (ganz unten).
Wählen Sie den Befehl „Neue Regel“.
Wählen Sie den Befehl „Formel zur Ermittlung der zu formatierenden Zellen verwenden“.
Wählen Sie den Befehl „Formatieren“ > Registerkarte: Ausfüllen > Farbe „blau“ auswählen und bestätigen Sie mit OK.
Geben Sie in die Zelle „Werte formatieren, für die dieses Formel wahr ist“ folgenden Wert ein:
- =$A2=„Einnahmen“
- Hinweis: Es ist zwingend notwendig, das vor dem A ein Dollarzeichen steht und vor der Zahl kein Dollarzeichen steht. Und obwohl hier eine direkte Zeile (in diesem Fall die 2) angegeben wird, weiß Excel durch diese Schreibweise (mit dem Dollarzeichen), dass damit alle Zeilen gemeint sind und nicht nur die Zeile 2.
Jetzt diese Eingabe mit „OK“ bestätigen.
Das darunter liegende Dialogfenster öffnet sich und Sie können an dieser Stelle fortfahren.
Geben Sie in die Zelle „Wird angewendet auf“ ein:
- =$1:$100 (für alle Spalten bis in die Unendlichkeit, aber nur die ersten 100 Zeilen)
- =$B:$Z (für alle Zeilen bis in die Unendlichkeit, aber nur die Spalten B bis Z)
Jetzt diese Eingabe mit „OK“ bestätigen.

Nun sollten alle Zeilen in denen in der Spalte A das Wort „Einnahmen“ steht in allen Spalten blau erscheinen.

Legen Sie nun die Formel noch einmal mit der Farbe Rot und dem Wort „Ausgaben“ an.

Zellbezug dynamisch verändern

anonymous@undisclosed.example.com (Anonymous) — Sun, 04 Apr 2021 14:18:36 +0000

Zellbezug dynamisch verändern

Problem:
In einer Formel soll auf eine Zelle dynamisch verwiesen werden.

Beispiel:
In den Zellen A1 bis L1 stehen die Erträge der Monate Jan, Feb, Mrz etc.

In Zelle B2 schreibe ich ein, welchen Monat ich anzeigen lassen will.
In Zelle B3 wird für für den Januar ein A geschrieben, Für den Februar ein B etc.

In Zelle D1 soll nun der Wert angezeigt werden, der dem Wert der Zeile 1 entspricht, je nachdem welcher Monat in Zelle B2 ausgewählt wurde.

Lösung:
=INDIREKT(B3&1)

ergibt A1 für Monat Januar
ergibt C1 für Monat März

Erklärung:
Die Funktion INDIREKT baut den Zellbezug aus der ersten und zweiten Information zusammen:

erste Information: Buchstabe aus der Zelle B3
zweite Information: Zahl 1

also Zelle A1, B1, C1 etc.

Zelle anklicken und in anderer Zelle Text anzeigen

anonymous@undisclosed.example.com (Anonymous) — Sun, 04 Apr 2021 14:18:20 +0000

Zelle anklicken und in anderer Zelle Text anzeigen

Problem:
Auf einem Tabellenblatt (Tabelle1) werden in Spalte A Fragen gestellt.
Auf einem anderen Tabellenblatt (Tabelle2) werden in Spalte A Erläuterungen zu den Fragen in Tabelle1 gespeichert. D.h. in Tabelle1 Zelle A1 steht eine Frage und in Tabelle2 Zelle A1 steht eine Erläuterung.

Wenn nun in Tabelle1 auf Zelle A1 mit der Maus geklickt wird, dann soll in der Tabelle1 Zelle B1 die Erläuterung aus Tabelle2 A1 erscheinen.

1. Lösung:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
With Columns("B")
    .Font.Color = vbWhite
    .EntireRow.RowHeight = 15
End With

If Target.Column = 1 Then
    With Target.Offset(, 1)
        .WrapText = True
        .Font.ColorIndex = xlAutomatic
        .EntireRow.AutoFit
    End With
Else
    Columns("B").WrapText = False
End If
Application.ScreenUpdating = True
End Sub

2. Lösung:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub

With ActiveSheet
    With .TextBox1
        If Target.Column = 1 Then
            .Top = Target.Top
            .Width = 500
            .Height = 250
            .Text = Sheets("Tabelle2").Range(Target.Address).Text
            .Visible = True
        Else
            .Visible = False
        End If
    End With
End With
End Sub

Quelle:

Danke an Claus Busch und Andreas Killer:
http://answers.microsoft.com/thread/c4a75cb5-62a8-4bfb-97c1-504714ff96af

Zelle: Zeilenumbruch per VBA anschalten / ausschalten

anonymous@undisclosed.example.com (Anonymous) — Sun, 04 Apr 2021 14:17:43 +0000

Zelle: Zeilenumbruch per VBA anschalten / ausschalten

Problem:
In einer Zelle ist ein mehrzeiliger Text enthalten (z.B. eine ausführliche Erklärung). Dieser Text soll jedoch nur dann voll angezeigt werden, wenn man auf die Zelle klickt.
Ist die Zelle dann aufgeklappt, soll sich diese beim nächsten Klick auf die Zelle wieder zuklappen.

Lösung:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, Range("A1:A20")) Is Nothing Or _
    Target.Count > 1 Then Exit Sub


If ActiveCell.WrapText = False Then
    ActiveCell.WrapText = True
Else
    ActiveCell.WrapText = False
End If

End Sub