Hallo, ich habe eine Lösung ohne Makro versucht, bin aber auf keine funktionierende Lösung gekommen.

...zur Antwort

Ich nehme an, das Ergebnis ist 1. 10. 11. 12. usw.
Nimm die Punkte weg, dann klappt es.

...zur Antwort
Excel-Code für Mehrfachauswahl in Dropdown-Listen?

Hallo zusammen,

Ich versuche gerade ein Excel-Dokument zu erstellen, bei dem eine Mehrfachauswahl aus Dropdown-Listen möglich ist. Das heißt aus einer Liste sollte es möglich sein mehrere Werte anzuwählen. Das habe ich auch mit dem untenstehenden VisualBasic-Code gemeistert. Allerdings habe ich erstens das Problem, dass auch eine Mehrfachauswahl des immer gleichen Wertes möglich ist. Theoretisch könnte also in einer Zelle x-mal derselbe Werte auftauchen. Dies soll natürlich nicht möglich sein. Bei Doppelauswahl desselben Wertes soll dieser aus der Zelle wieder verschwinden.

Mein zweites Problem ist, dass ich bislang nur 2 zwei Dropdown-Listen mit Mehrfachauswahl eingefügt bekomme. Sobald ich eine dritte Spalte versuche zu implementieren, bekomme ich eine Fehlermeldung für meinen Code.

Dadurch, dass ich mich mit dem Ganzen nicht so wirklich auskenne, wäre es sehr nett, wenn mir jemand helfen könnte.

Danke!

 

Bisheriger Code:

 

Private Sub Worksheet_Change(ByVal Target As Range)

** Mehrfachauswahl über DropDown-Liste

'** Einfügen im Code-Container des betreffenden Arbeitsblattes

 

'** Dimensionierung der Variablen

Dim rngDV As Range

Dim wert_old As String

Dim wertnew As String

 

'** Errorhandling

On Error GoTo Errorhandling

 

'** Mehrfachauswahl im definierten Bereich "Abteilungen" und "Themen" (Bsp. J2:J2000, I2:I2000) durchführen

If Not Application.Intersect(Target, Range("J2:J2000", "I2:I2000")) Is Nothing Then

 

 '**Range definieren

 Set rngDV = Target.SpecialCells(xlCellTypeAllValidation)

 If rngDV Is Nothing Then GoTo Errorhandling

  

 '** Prüfen, ob eine gültige Zelle ausgewählt wurde und Werte eintragen

 If Not Application.Intersect(Target, rngDV) Is Nothing Then

   Application.EnableEvents = False

   wertnew = Target.Value

   Application.Undo

   wertold = Target.Value

   Target.Value = wertnew

   If wertold <> "" Then

     If wertnew <> "" Then

       Target.Value = wertold & ", " & wertnew

     End If

   End If

 End If

 Application.EnableEvents = True

End If

 

Errorhandling:

Application.EnableEvents = True

End Sub

...zur Frage

Hallo, kannst noch bitte beschreiben, was mit den ausgewählten Werten weiter passieren soll?
Vielleicht ist dieser Ansatz ja einfacher:
Entwicklertools/Einfügen/Kontrollkästchen

Bild zum Beitrag

Deren Name ist natürlich frei definierbar und in der zugeordneten Zellverknüpfung wird der Inhalt auf WAHR oder FALSCH gestellt.

Mehrfachauswahl im Sinne von Filter geht nicht?

...zur Antwort

Excel ist keine Künstliche Intelligenz!
Du musst du dir schon die Mühe machen und alle möglichen Fragen (ohne Tippfehler) mit den dazugehörigen Antworten in einer Tabelle erfassen.

Formel in R1:
=WENNFEHLER(SVERWEIS(Q1;Katalog!A:B;2;0);"keine Antwort gefunden")

Wobei es eine Tabelle namens "Katalog" geben muss, in der in Spalte A alle möglichen Fragen und in B die dazugehörigen Antworten stehen.

...zur Antwort

@Biene365

Falls es bei dir eine Zahl anzeigt (z.B. 45136), musst du nur das Zellformat auf Datum umstellen

...zur Antwort

Hallo, Word und Excel sind zwar von der selben Firma, aber nicht kompatibel.
Ich habe mich auch schon oft darüber geärgert. Am besten in Excel fertig machen und als Bild in Word rüber kopieren.

...zur Antwort

Hallo, versuche es so:
Bild zum Beitrag

Bis Zeile 8 sind die Werte eigegeben, dann folgen Berechnungen:
Formel für Alkoholspiegel in B9 und nach rechts kopieren:
=0,8*$B$3*10*$B$2/(B4*B5)

Formel für Differenz in B10 und nach rechts kopieren:
=B9-B6

Formel für Zeitdauer in B11 und nach rechts und unten (bis C12) kopieren:
=B$10/$B7/24

B11-C12 im Format hh:mm formatieren.

...zur Antwort

Füge unter den Entwicklertools für jede Eissorte ein Drehfeld ein, mit der rechten Maustaste kannst du verschiedenes einstellen (max, min, Schrittwert und vor Allem die verknüpfte Zelle). Es zählt nicht nur rauf, sondern auch runter:

Bild zum Beitrag

Sorry, ich habe meine Lieblingssorten als Beispiel genommen :)

...zur Antwort

Hallo, um sicher zu gehen wandle die Daten in Werte um:

Wenn 335 > 980 Dann XY Sonst YZ
=WENN(WERT(A1)>WERT(B1) ;"XY";"YZ")

...zur Antwort

Hallo, so geht es auch:

Bild zum Beitrag

Falls es viele Zeilen sind, mach es am besten so:
Bild zum Beitrag

...zur Antwort

Hallo, ich verstehe zwar den Sinn nicht, aber so könntest du es machen:
Füge über den Überschriften eine Filterzeile ein und erstelle je Spalte eine Bedingte Formatierung, die die Schrift weiß macht, dann sehen die Zeilen zumindest leer aus (ich habe grau verwendet)

Bild zum Beitrag

...zur Antwort

Hallo, du hast einen Fehler in der Formel, es muss heißen:

=WENNNV(SVERWEIS(C2;$B:$C;2;FALSCH);"")

...zur Antwort

Um das zu beantworten, brauchen wir entweder viel mehr Beispiele oder eine Regel.

Hilft es, wenn du den Dateinamen nach dem 2. Minuszeichen abschneiden kannst? Das ginge so:

  Datei_abgeschnitten = Left(Datei.Name, InStr(InStr(Datei.Name, "-") + 1, Datei.Name, "-") - 1)

...zur Antwort

Hallo, du machst nichts falsch, getrennte Bereiche können nicht versendet werden.
Du brauchst also einen Workaround.

A. Du könntest in einer Hilfstabelle die Bereiche zusammenführen mit =Tabelle1!:B23, usw. und dann die Hilfstabelle verschicken.

B. Weil A ein Problem mit den Formeln verursachen könnte, kannst du auch mit 2 Schleifen die Bereiche auslesen und direkt im Mail als Bodytext verwenden.

...zur Antwort

Hallo, Excel-Formeln können keine Festwerte verändern, das geht nur mit Makro.
Ich habe ein kleines Script für dich geschrieben.
In Textfeldern, Feldern mit Formeln und leeren Zellen passiert nichts:

Sub Minus_1()

On Error Resume Next

  If MsgBox("Alle Werte in " & Replace(Selection.Address, "$", "") & " um 1 reduzieren?", vbYesNo) = vbNo Then End

  For Each Cell In Selection

    If Cell.Value <> 0 And Left(Cell.Formula, 1) <> "=" Then Cell.Value = Cell.Value - 1

  Next

End Sub

Dazu eine Schaltfläche und los geht's:

Bild zum Beitrag

...zur Antwort

Hallo, gib mal diese Formel in D2 ein und kopiere sie nach unten:
=WENN(ISTFEHLER(DATWERT(A2&"."&B2&"."&C2));"UNGÜLTIG";"ok")

Sie versucht, aus den Werten ein Datum zu bauen, wenn das misslingt, schreibt sie UNGÜLTIG, sonst ok.

Ich habe damit auch die Schalttage erfolgreich getestet:

Bild zum Beitrag

...zur Antwort

Hallo, diese Formel in K3 und runterkopieren:

=SUMME(INDIREKT("Z"&ZEILE()&"S2:"&"Z"&ZEILE()&"S"&VERGLEICH($N$1;$2:$2;0);FALSCH))

...zur Antwort

Hallo, das erste Problem ist, dass es offenbar keine Zahlen sind, Texte lassen sich in einem Diagramm nicht darstellen.

Bild zum Beitrag

Daher würde ich zuerst mal Hilfsspalten einbauen:
Formel in D1 und runter kopieren:
=WECHSELN(B2;" sek";"")+0

Ganz ähnlich mit den Millilitern in E1:
=WECHSELN(A2;" ml";"")+0

Jetzt markierst du die Spalten D:E und gehst auf Einfügen/Diagramme/Alle Diagramme/Punkt (X/Y).
Das ist der einzige Typ, der mit Zahlenwerten auf X und Y umgehen kann.

Eine Linie kannst du hinzuzaubern, wenn du mit der rechten Maustaste auf einen der angezeigten Datenpunkte klickst und "Trendlinie hinzufügen" auswählt. Die Option "Polynomisch" Grad 2 ist meistens die schönste.

Für das 2. Diagramm sinngemäß in Spalte F und G vorgehen.

...zur Antwort

Hallo!
das Problem ist, dass du mit deutschem Excel eine CSV mit amerikanischem Zahlenformat öffnest. Wenn du oft verschiedene solcher Dateien hast, kannst du Excel umstellen. Geh in die Optionen/Erweitert und stelle das Dezimaltrennzeichen auf Punkt und das Tausendertrennzeichen auf Beistrich, dann werden die Zahlen richtig interpretiert. Dann erst die Datei öffnen. Du siehst es sofort, weil die Werte nicht mehr links ausgerichtet sind (wie Texte), sondern rechts.

Bild zum Beitrag

Vergiss nicht, bei normalen Dateien wieder umzustellen auf "Trennzeichen vom Betriebssystem übernehmen"

...zur Antwort