Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Werte in 2 Tabellen suchen

Werte in 2 Tabellen suchen
05.02.2013 05:09:43
Markus
Hallo und Guten Tag,
in 2 Tabellen (Gesamt & erledigt) sind etwa 3000 Datensätze.
Neueinträge kommen in die Gesamt, wenn alles i.O. wird der Datensatz nach "erledigt" geschoben.
Mein Problem:
Über CTRL+F suche ich in der Tabelle Gesamt und ändere den Datensatz, oder lege einen neuen Datensatz an. Vor dem Anlegen muss ich immer in Tabelle "erledit" springen und dort suchen, ob evtl. ein Datensatz vorhanden ist.
Meine Frage:
Wenn beim erfolglosen Finden eines Datensatzes (Spalte B) in "Gesamt" nichts gefunden wird, soll Excel automatisch noch "erledigt" (Spalte B) durchsuchen. Findet Excel einen Datensatz in "erledigt", so soll Excel dies in der Statuszeile anzeigen.
Danke jetzt schon vielmals
Markus

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte in 2 Tabellen suchen
05.02.2013 08:21:31
Klaus
Hi Markus,
ist ein bisschen dirty gelöst, da ich die Fehlerabfrage missbrauche um die zweite Suche zu starten. Sollte aber funktional sein. Tabellennamen und Spalten habe ich gemäß deinem Posting fix gesetzt.
Kopier dir das Makro und weise ihm einen Tastenkürzel deiner Wahl zu, den du dann statt STRG+F benutzt.
Option Explicit
Sub Suche2Mal()
Dim sWhat As String
Dim iAnz As Integer
sWhat = InputBox("Suche:")
Application.StatusBar = ""
With Sheets("Gesamt")
On Error GoTo hell
.Range("B1").EntireColumn.Find(What:=sWhat, After:=.Range("B1"), LookIn:=xlFormulas, LookAt  _
_
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
GoTo heaven
End With
hell:
With Sheets("erledigt")
iAnz = Application.WorksheetFunction.CountIf(.Range("B1").EntireColumn, sWhat)
If iAnz > 0 Then
Application.StatusBar = sWhat & " wurde " & iAnz & " mal in -erledigt- gefunden"
Else
Application.StatusBar = sWhat & " wurde weder in -Gesamt- noch in -erledigt- gefunden"
End If
End With
heaven:
End Sub
Grüße,
Klaus M.vdT.
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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