Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
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
1308to1312
1308to1312
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Doppelung per VBA finden

Forumthread: Doppelung per VBA finden

Doppelung per VBA finden
11.04.2013 20:45:00
Chris
Hallo Vbaler,
vielleicht hat jemand eine Vorschlag, wie man folgendes per VBA löst, mein Wissen lässt mich da im Stich.
Ich habe im Range A1:F6 Werte stehen. Spalte A: Namen, Spalte B: Datum und Spalte C Uhrzeit, dann Spalte D wieder Namen usw.
Nun soll Excel Doppelungen herausfinden und den vorletzten Wert der Doppelung ausgeben.Das heißt, wenn Name "bbbb" schon in der liste existiert, soll Excel den Range von hinten (also ab F rückwärts) nach dem Wert suchen und das danebenstehen Datum sowie die Uhrzeit ausgeben (Zelle A17).
Wichtig: Excel soll sich den zu suchenden Wert aus der jeweils aktuell aktiven Zelle im Range A1:F6 nehmen.
Also eine permanente Überprüfung innerhalb des Range.
aaaa 10.04.2012 08:01
bbbb 10.04.2012 08:02
cccc 10.04.2012 08:03
bbbb 10.04.2012 08:04
eeee 11.04.2012 10:00
bbbb 11.04.2012 11:00
dann in A17:
Dopplung: bbbbb 10.04.2012 08:04 (NICHT 11.04.12 / 11:00)
Ich hoffe, das ist einigermaßen deutlich :-?
Chris

Anzeige

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Doppelung per VBA finden
11.04.2013 21:40:37
Matze
Hallo Chris,
für solch eine Aufgabe ist es Sinnvoll eine kleine Musterdatei zu erstellen.
Ich werde dir da heute nicht mehr antworten, da ich Frühschicht habe.
Markiere weitere Fragen mit "offen"
Matze

AW: Doppelung per VBA finden
12.04.2013 07:34:33
Chris
test

AW: Doppelung per VBA finden
12.04.2013 10:35:37
JACKD
Hallo Chris
Also eine mögliche Lösung könnte ich mir folgendermaßen vorstellen 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Suche = Selection
With Worksheets("Tabelle1")
Set rngfound = Columns(4).Find(What:=Suche, LookIn:=xlValues, LookAt:=xlWhole)
If rngfound Is Nothing Then Exit Sub
'''Hier '''
End With
End Sub

Bei dem "Hier" müsste jetzt ein 2dimensionales Array rein das du dann mittels redim preserve ergänzt.
Im anschluss das Array nach den Zeiten bzw. Datum sortieren und dir dann den vorletzten wert ausgeben lässt.
Ich bin allerding nicht so fit was arrays angeht, so dass ich jetzt stunde um stunde daran basteln würde. Da gibt es berufenere.
Aber du kannst dich ja auch damit auseinander setzen. Jetzt hast du ja nen möglichen Ansatz
Grüße

Anzeige
AW: Doppelung per VBA finden
12.04.2013 11:05:41
Chris
Hallo jackd,
danke für deine Mühe. Leider bin in sachen VBA nicht so bewandert. Einfach Sachen wie Zellen färben bei bestimmten Bedingungen bekomme ich hin, alles was darüber hinaus geht.....:-o ?
Ich lass den Thread offen...

Doppelungen finden
12.04.2013 22:56:36
Chris
Hst keiner weitere Ideen...?

Doppelungen finden
12.04.2013 22:56:53
Chris
Hst keiner weitere Ideen...?

AW: Doppelungen finden
12.04.2013 22:57:43
Chris
.

Anzeige
AW: Doppelungen finden
13.04.2013 15:19:19
Chris
HI Tino,
ja, das Makro scheint das zu tun, was ich brauche.
Also ich verstehe nix von dem Makro. Wo/Wie lernt man sowas? Wenn du lust und Zeit hast, wäre es nett wenn du die Zeilen kommentierst "'"
Ich gehe daovn aus, dass ich den Range beliebig erweitern kann: A1:C30;D1:F30 usw...
Gruß und danke
Chris

Anzeige
AW: Doppelungen finden
13.04.2013 15:19:54
Chris
HI Tino,
ja, das Makro scheint das zu tun, was ich brauche.
Also ich verstehe nix von dem Makro. Wo/Wie lernt man sowas? Wenn du lust und Zeit hast, wäre es nett wenn du die Zeilen kommentierst "'"
Ich gehe daovn aus, dass ich den Range beliebig erweitern kann: A1:C30;D1:F30 usw...
Gruß und danke
Chris

Anzeige
AW: Doppelungen finden
13.04.2013 18:04:16
Tino
Hallo,
ok. beim kommentieren ist mir eine einfachere Lösung eingefallen
die ich hier umgesetzt und kommentiert habe.
Hier gibt es Informationen zum Scripting.Dictionary das ich verwende
http://www.html-world.de/program/fso_12.php
Ja den Bereich kannst Du entsprechend erweitern.
Hier die Datei
https://www.herber.de/bbs/user/84865.xlsm
Gruß Tino

Anzeige
AW: Doppelungen finden
13.04.2013 20:45:25
Chris
HI Tino,
danke. Ich versuche hinter dein Makro zu steigen :-) Läuft alles. Gruß Chris

;

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