Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1080to1084
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1080to1084
1080to1084
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchfunktion Auflistung Ergebnisse

Suchfunktion Auflistung Ergebnisse
19.06.2009 11:28:26
Jochen
Hey Leute,
ich habe ein etwas anspruchsvolleres Problem, vllt könnt ihr mir ja helfen- wär super!
Ich habe eine Arbeitsmappe mit 20 Tabellen, auf den ersten 19 befinden sich Artikelnummern (immer in A9 bis A21)
Die Bezeichnung der Abteilung befindet sich immer in B3.
In der 20. Tabelle habe ich eine Auflistung aller Artikel (Artikelnummer in Spalte A, von A2 bis A93)
Nun möchte ich die Tabellen 1-19 auf die Artikelnummer untersuchen lassen, und in Tabelle20 in Spalte C für jeden Artikel Anzeigen lassen in welcher Abteilung (B3) er ist.
Er kann auch in mehreren Abteilungen vorkommen, dann die Abteilungen durch "," getrennt angeben.
Gruß Jochen

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchfunktion Auflistung Ergebnisse
19.06.2009 12:45:47
fcs
Hallo Jochen,
anspruchsvoll ist halt immer relativ.
Hier eine Lösungsmöglichkeit per Makro.
Gruß
Franz

Sub AbteilungenEintragen()
Dim ZeileAbt As Long, ZelleGesamt As Range, strAbt As String, varArtikel
Dim wksAbt As Worksheet, wksGesamt As Worksheet, lngTab As Long
Set wksGesamt = Worksheets(20)
'vorhandene Abteilungseinträge in Gesamtliste löschen
With wksGesamt
.Range(.Cells(2, 3), .Cells(.Rows.Count, 1).End(xlUp).Offset(0, 2)).ClearContents
End With
For lngTab = 1 To 19
Set wksAbt = Worksheets(lngTab)
strAbt = wksAbt.Range("B3").Value
For ZeileAbt = 9 To 21
varArtikel = wksAbt.Cells(ZeileAbt, 1)
If varArtikel  "" Then
'Artikel in Spalte A der gesamtliste suchen
Set ZelleGesamt = wksGesamt.Columns(1).Find(what:=varArtikel, _
LookIn:=xlValues, lookat:=xlWhole)
If ZelleGesamt Is Nothing Then
MsgBox "Artikel """ & varArtikel & """ aus Abteilung """ & strAbt _
& """ nicht in Gesamtliste gefunden!"
Else
'In Spalte C Abteilung eintragen/ergänzen
With wksGesamt.Cells(ZelleGesamt.Row, 3)
If .Value = "" Then
.Value = strAbt
Else
.Value = .Value & "," & strAbt
End If
End With
End If
End If
Next
Next
End Sub


Anzeige
Einfach nur genial!
19.06.2009 12:50:54
Jochen
Hey Franz,
dank dir vielmals- das ist einfach nur genial!!!
Anspruchsvoll ist halt wirklich immer relativ:)
Gruß Jochen

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige