Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
25.09.2025 16:01:26
VBA - Laufzeitfehler 9105 zu viele Zeichen 255
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1952to1956
1952to1956
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

verschied. Spalten mit VBA auf doppelt. Werte überprüfen

Forumthread: verschied. Spalten mit VBA auf doppelt. Werte überprüfen

verschied. Spalten mit VBA auf doppelt. Werte überprüfen
15.11.2023 19:02:28
elitebahnwaerter
Hallo Zusammen, ich komme leider mit meiner Datei nicht weiter und bräuchte aus diesem Grund eure Hilfe.

Ich bin gerade dabei für meine Abteilung einen Urlaubsplan für das Jahr 2024 zu erstellen.

Nun bräuchte ich ein VBA, welches verhindert, dass es in den Spalten (A5:A17, B5:B17, C5:C17, D5;D17, E5:E17, F5:F17 und G5:G17) bestimmte doppelte Werte gibt. So dürfen folgende Werte in den zuvor beschriebenen Spalten nur einmal vergeben sein: Urlaub 1, Urlaub 2, Stundenausgleich 1, Stundenausgleich 2, Stundenausgleich 4. Sollte der Wert doch doppelt vergeben worden sein, soll eine Fehlermeldung erstellt und der zuletzt eingetragene Wert gelöscht werden.

Die Spalten sollen getrennt voneinander überprüft werden.

Ich würde mich über eure Vorschläge sehr freuen :)

Anzeige
AW: verschied. Spalten mit VBA auf doppelt. Werte überprüfen
15.11.2023 19:13:18
ralf_b
vielleicht liege ich ja falsch ,aber eine datenüberprüfung mit zählenwenns würde das doch erledigen ,oder nicht?
AW: verschied. Spalten mit VBA auf doppelt. Werte überprüfen
15.11.2023 19:15:31
daniel
Hi
gibt es auch andere Werte, die dann doppelt vorkommen dürfen?

wenn nur diese Werte vorkommen dürfen, würde ich unterhalb der Spalten jeden Wert einmal auflisten, allerdings als Formel nach diesem prinzip:

=Wenn(ZählenWenn(A5:A17;"Urlaub 1")=0;"Urlaub 1";"")
=Wenn(ZählenWenn(A5:A17;"Urlaub 2")=0;"Urlaub 2";"")
usw

dann machst du ne Datenüberprüfung Typ Liste für den Bereich A5:A17 und verweist auf diese Zellen.
Sobald dann ein Wert einmal oben eingetragen wurde, verschwindet er unten aus der Liste und kann somit nicht mehr verwendet werden.

Gruß Daniel
Anzeige
AW: verschied. Spalten mit VBA auf doppelt. Werte überprüfen
15.11.2023 19:30:52
elitebahnwaerter
Hallo ihr Beiden, vielen Dank für eure Antworten. Die Option mit der Datenprüfung ist leider nicht möglich. Da ich diese bereits in den Zellen für eine Dropdownliste benutze.
AW: verschied. Spalten mit VBA auf doppelt. Werte überprüfen
15.11.2023 19:34:08
daniel
aber diese DropDownliste muss dann noch die Werte Urlaub 1, Urlaub 2 usw enthalten, oder????????
dann nimm doch einfach in der Vorlage für die DropDownListe die Werte raus, wenn sie schon drin sind.
du brauchst dann zwar für jede Spalte ne eigene DropDownVorlagenliste, ist aber immer noch einfacher als was programmieren.
(klar noch einfacher ist, einen zu finden der es einem Programmiert, aber geh mal davon aus, dass du das selber programmieren musst.)
Gruß Daniel
Anzeige
AW: verschied. Spalten mit VBA auf doppelt. Werte überprüfen
15.11.2023 19:43:33
elitebahnwaerter
Das funktioniert leider nicht. Weil jeder Wert variable von den Mitarbeitern eingetragen werden kann.
AW: verschied. Spalten mit VBA auf doppelt. Werte überprüfen
15.11.2023 19:48:48
elitebahnwaerter
Dim Bereich As Range
Set Bereich = Range("B5:B17")
If Target.Value = "" Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Bereich, Target) Is Nothing Then Exit Sub
If WorksheetFunction.CountIf(Bereich, Target.Value) > 1 Then
MsgBox ("Doppelter Eintrag nicht möglich"), vbCritical, "Doppelter Wert"
Application.EnableEvents = False
Target.Value = ""
Application.EnableEvents = True
Target.Select
End If

Das ist der Corde den ich selbst geschrieben habe. Hierbei werden alle Werte überprüft. Sollte es zu aufwendig sein, würde es mir auch reichen wenn ich diesen Code in den beschriebenen Spalten verwenden kann. Ich habe aber keinen Plan wie ich im Rahmen diesen Codes weitere Spalten prüfen kann.

Die Idee den Code zu kopieren und nur die Zellen zu ändern hatte ich schon. Funktioniert aber leider nicht.
Anzeige
AW: verschied. Spalten mit VBA auf doppelt. Werte überprüfen
15.11.2023 20:03:17
daniel
Hi

das ganze für mehrere Spalten gültig machen?
einfach so:
i
f not Intersect(Target, Range("A5:G17")) is nothing then ' hier prüfen, ob die Eingabe überhaupt innerhalb des relevanten Eingabebereichs stattfindet

     Set Bereich = Intersect(Target.EntireColumn, Range("5:17"))


Gruß Daniel
Anzeige
AW: verschied. Spalten mit VBA auf doppelt. Werte überprüfen
elitebahnwaerter
kann mir jemand erklären, wie ich das in meinen bereits vorhandenen Code einarbeiten kann
AW: verschied. Spalten mit VBA auf doppelt. Werte überprüfen
15.11.2023 19:59:15
daniel
der Mitarbeiter gibt die Inhalte für die DropDownListe vor?
kann ich mir nicht vorstellen.

also fangen wir noch mal an:
was kann und darf ein Mitarbeiter in den Zellen A5:A17 eingeben?
wie hast du das reglementiert? du sagst du hast dort schon eine Datenüberprüfung.
Was für eine hast du (Liste, Benutzerdefiniert) und wie ist sie definert?

ich hatte mir das in etwa so vorgestellt.
wie du siehst, kann in jeder Spalte jeder Wert nur einmal ausgewählt werden.
dann verschwindet er aus dem DropDown.
https://www.herber.de/bbs/user/164313.xlsx

Gruß Daniel
Anzeige
AW: verschied. Spalten mit VBA auf doppelt. Werte überprüfen
15.11.2023 20:51:51
Elitebahbwaerter
Die Dropdownliste hab ich mit Datenüberprüfung (Liste) erstellt.

Die Mitarbeiter können anhand der Dropdownliste Werte eintragen.

Eine Doppelwertvergabe soll verhindert werden.
AW: verschied. Spalten mit VBA auf doppelt. Werte überprüfen
daniel
Genau das macht doch meine Datei.
Gast du die mal angeschaut?
;

Forumthreads zu verwandten Themen

Mittelwertberechn. mit var. Spaltenlänge
Falk

Hallo,
Zur Situation
in einer Excelspalte (z.B. A) füge ich - aus einem anderen Programm - kopierte Zahlen ein. Excel schreibt die, in Spalte A, eingefügten Zahlen untereinander. In der Spalte B berechne ich dann den Mittelwert wie folgt: =SUMME(A2:A1872)/1871
Mein Problem
Weil...
15.09.2008 11:21:00
Thread-ID: 1009725
5 Beiträge
Anzeige
Spalte mit x = Wert möglich ?
Petra

Hallo
Ich möchte gerne wenn in Spalte B3 ein x eingetragen wird, das dann in Spalte B3 der Wert aus Spalte B1 eingetragen wird.
Ich weiß das es per Formel =Wenn(B3="x";B1;0) geht, aber dann müßten wir hier Behelfsspalten einbauen was nicht gewünscht wird.
Habe es per Bedingter Forma...
23.09.2008 15:34:17
Thread-ID: 1011775
21 Beiträge
Spalten mit mehrfachen Datumswerten löschen
Claudia

Hallo zusammen,
ich brauche mal wieder Eure Hilfe. Ich habe eine Tabelle die folgenden Aufbau hat.
Zeile 1 = Überschrift
Ab Zeile 2 stehen Werte (in Spalte A jeweils Datumswerte, die Tabelle ist chronologisch sortiert, das jüngste Datum steht unten).
Jetzt möchte ich - da am Tag...
19.01.2009 10:29:01
Thread-ID: 1041331
5 Beiträge
Anzeige
Spalte mit Wert aus einer Zelle füllen
schneidrian

Hallo Forum,
Ich habe folgendes Problem, ich habe einige hundert Zellen untereinander. In diese (alle) will ich genau den gleichen Wert eintragen lassen, der in einer gesonderten Zelle steht. Irgendwie finde ich hier keine passendes Mittel.
Viele Grüße
Florian
16.02.2009 17:06:00
Thread-ID: 1051222
2 Beiträge
wert in zeile suchen und spalte kopieren
Astrid

Hallo Fachleute,
Ich stecke bei folgendem Excel problem fest:
Ich habe eine relativ komplexe Exceldatei mit der ich die Ergebnisse aus einem Simulationsprogramm auswerte. Alle Auswertung bezieht sich auf Werte aus einem Blatt "Datei" mit einer festen Struktur. D.h. ich habe in Zelle A 1...
11.03.2009 12:41:00
Thread-ID: 1059072
9 Beiträge
Anzeige
Werte addieren mit Bezug auf andere Spalten
Dennis

Hallo,
in Spalte A steht entweder KAUF oder VERKAUF, Spalte B ist WARE1 oder WARE2, Spalte C ist die Stückzahl.
Nun würde ich gern in eine Zelle den aktuellen Bestand von Ware1 und in einer anderen Zelle den Bestand von Ware2 sehen. Aber wie addiere ich die Bestände mit Berücksichtigung...
26.05.2009 15:53:26
Thread-ID: 1077452
9 Beiträge
Werte in Spalte vergleichen und Mittelwert bilden
Micha2009

Hallo liebe Excel Freunde.
Ich sitze vor einem Problem und hoffe mir kann einer helfen.
Mein Problem ist folgendes.
Eine Tabelle mit 3 Spalten.
1. Datum, 2. Zeit, 3. Werte
Nun versuche ich alle Werte mit gleichem Datum zu mitteln und in eine neue Spalte G mit zugehörigem Dat...
30.09.2009 12:23:08
Thread-ID: 1106408
5 Beiträge
Spalte mit Datum suchen und Wert von Zeile kopiere
Zeile

Hi, folgendes Problem:
Ich möchte hinter eine Schaltfläche ein Makro legen, welches im Quellsheet 'Tabelle2' die Zeile 12 nach dem Vormonat (also: aktueller Monat - 1) durchsucht (Werte der Zeile 12 sind in der Datumsform z.B. 01.11.2009 und werden benutzerdefiniert dargestellt als MMM JJ)....
11.11.2009 14:08:13
Thread-ID: 1116202
3 Beiträge
wert suchen mit bedingung ab bestimmter spalte
martin

Hallo Zusammen,
ich brauche mal eben eure Hilfe. Und zwar will ich einen Wert suchen, klappt soweit auch ganz gut, allerdings soll er mir nicht den ersten wer anzeigen, sondern erst ab einer bestimmten spalte, die auch vorgegeben ist und sich auch ändern kann.
anbei die excel liste...vo...
18.04.2010 14:15:03
Thread-ID: 1152428
4 Beiträge
Anzeige
Spalte mit doppelten Werten ohne diese Doppelten
Nora

Hi,
Ich habe eine Spalte mit vielen Strings. Manche sind doppelt oder dreifach oder ....
Ich brauche in der Spalte daneben eine Liste von all diesen Werten, wobei jeder Wert nur einmal auftreten darf.Nora
07.05.2002 10:39:17
Thread-ID: 119107
3 Beiträge
Wert aus Textdatei mit mehreren Spalten lesen
SteffenS

Hallo Zusammen,
ich haben folgenden Code
Sub test() 'Textdatei öffnen Dim afile As String, astring As String afile = ThisWorkbook.Path & "\system\" & "aplz" Open afile For Input As #1 ' Datei öffnen. Do While Not EOF(1) Line Input #1, astring Loop Close #1 End Sub Aufbau Tex...
12.08.2010 23:31:30
Thread-ID: 1172054
3 Beiträge
bestimmte Spalten mit Werten füllen
strodti

Hallo liebe Excelianer,
ich habe in einer Datei zwei Blätter "Eingabe" und "Zuordnungstabelle" mit identischen Spaltenüberschriften. In "Eingabe" werden Adressdaten u.ä. eingetragen. Über untenstehenden Code werden alle Zeilen, die in Spalte A ein "a" haben, in die "Zuordnungstabelle" kopie...
16.11.2010 18:50:54
Thread-ID: 1187050
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige