Hallo, so würde es funktionieren:

=SVERWEIS($J$2;Tabelle3[#Alle];SPALTE(Tabelle3[[#Kopfzeilen];[Firma]]);FALSCH)

...zur Antwort

Dieses einzeilige Makro schreibt die Zeit auf 1/4 Std. gerundet in die markierte Zelle:

Sub Viertelstundenzeit()
  Selection.Value = Format(Round((Now - Int(Now)) * 96, 0) / 96, "hh:mm")
End Sub

Du kannst es mit einem Button verknüpfen und los geht's.

Bild zum Beitrag

...zur Antwort

Hallo, ich habe eine schöne Lösung:

Bild zum Beitrag

die erste coole Formel steht in B1, da wird der Tabellenname ausgelesen:
=TEIL(ZELLE("dateiname";A5);SUCHEN("]";ZELLE("dateiname";A5))+1;999)

In B2 wird die Spalte ermittelt: =VERGLEICH(B1;Übersicht!1:1;0)

In B3 (kopiert bis B4) werden die max/min-Zahlen geholt:
=SVERWEIS(A3;Übersicht!A:ZZ;B$2;0)

In A6 (und runterkopiert bis Zeile 70):
=WENNFEHLER(VERGLEICH(1;INDIREKT("Übersicht!Z"&A5+1&"S"&$B$2&":Z999S"&$B$2;0);0)+A5;"")

In B6 (und runterkopiert bis Zeile 70):
=WENNFEHLER(INDEX(Übersicht!A:A;A6);"")

...zur Antwort

Hallo, mach dir doch eine Hilfstabelle:

Bild zum Beitrag

In C2 (und runterkopieren) kannst du diese Formel verwenden:
=SVERWEIS(B2;E:F;2;0)

...zur Antwort

Hallo, ich glaube, dass ich dein Beispiel richtig nachgestellt habe:

Bild zum Beitrag

Du musst wohl in B19 den Wert von C19 übernehmen oder in C18 den Wert von B18.

...zur Antwort

Hallo, markiere B5 bis L5 und füge unter Start/Bedingte Formatierung/Neuer Regel/Formel zur... die Bedingungen so ein:

Bild zum Beitrag

Es genügt, die rote und die gelbe Regel einzugeben, und die Zellen B2 bis L2 fix gelb zu färben

...zur Antwort

Hallo, dafür ist die Pivottabelle wie geschaffen.

Du markierst die Spalte, in dem die Länder stehen, gehst auf Einfügen/Pivottabelle und ziehst das Land sowohl in die Zeilen als auch in die Werte. Die Standardeinstellung erzeugt die Pivottabelle in einem neuen Blatt, Ich habe das wegen der Übersichtlichkeit im selben Tabellenblatt gemacht:

Bild zum Beitrag

...zur Antwort

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