Auswertung einer Spalte mit VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim ws As Worksheet, raFund As Range If Target.Column = 5 Then If Target.Row > 9 Then If Target.Count = 1 Then If Target "" Then For Each ws In ThisWorkbook.Worksheets Select Case ws.Name Case "natur exclusiv" Case Else Set raFund = ws.Cells.Find(what:=Target, LookIn:=xlValues, _ lookat:=xlWhole) If Not raFund Is Nothing Then MsgBox "Der Film " & vbLf & vbLf & Target & vbLf & vbLf _ & " ist bereits vorhanden im Blatt " & ws.Name _ & " in Zelle " & raFund.Address(0, 0) & "." Exit For End If End Select Next ws End If End If End If End If Set raFund = Nothing End Sub

Hallo Werner,
ja, es funktioniert auf einmal. Heute Nacht ging es leider nicht, deshalb hatte ich ja Dir noch mal geschrieben. Vielleicht lag es daran, dass der "Lappi" auch müde war und erst Heute Morgen nach dem Neustart, den "Code" richtig verstanden hat. Egal, es funktioniert!!! Nur ist mir im nach hinein noch eingefallen, dass es ja noch eine Möglichkeit gibt, wenn der gleiche Film aber schon in mehreren Tabellen vorkommen sollte, dass er mir so zu sagen, dann "Alle Filme" anzeigen sollte.
Wenn das noch eingebaut werden könnte, wäre schön...!!! Bei der ARD gibt es nämlich die selben Natur - und Tierfilme unter einem anderen "Ober-Titel". Der selbe Film kommt dann unter "natur exclusiv - 123", der andere unter "Exped. ins Tierreich - 123", der andere Sender bringt den gleichen Film dann aber unter "Erlebnis Erde - 123" und so weiter. Das wollte ich eben vermeiden, dass ich gleiche Filme, mehrmals archiviere.
Ein anderes Problem wäre noch folgendes!!! Da ich in dieser Tabelle "natur exclusiv" bereits einen "Code" mit dem selben Namen "Private Sub Worksheet_Change(ByVal Target As Range)" laufen habe (der sortiert mir die Tabelle), gibt es da Komplikationen wegen dem selben Namen. Um Deinen VBA Code ausprobieren zu können, musste ich den anderen Code erst löschen.
Viele Grüße
Elfriede

Hallo,
damit verhinderst du aber nur, dass du einen Film das vierte oder fünfte mal erfasst. Das Problem, dass du da unter Umständen Filme schon mehrfach in verschiedenen Blättern hast, ist damit aber nicht gelöst.
Vielleicht solltest du erst mal die Blätter bereinigen, so dass du Filme immer nur einmal hast und nicht mehrfach.
Zudem bringt mir dein Hinweis, dass du schon ein Worksheet_Change Makro hast mal gar nichts, ohne den Code zu kennen.
Lade mal bitte eine Beispielmappe mit 3-4 Tabellenblättern und pro Blatt so 10 bis 20 Filmen hier hoch. Wichtig ist, dass der Aufbau der verschiedenen Blättern exakt dem Original entspricht. Das Ganze bitte auch mit dem Code, den du jetzt schon da drin hast.
Alles andere wird nur eine wilde Raterei mit ständigen Rückfragen. Und darauf habe ich keine Lust.
Gruß Werner

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Auswertung einer Spalte mit VBA

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread