Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1584to1588
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
1584to1588
1584to1588
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suche von Namen in Tabelle mit Initialien

Suche von Namen in Tabelle mit Initialien
20.10.2017 12:15:37
Namen
Hallo zusammen,
ich habe eine Tabelle, die mir ausschließlich die Initialien der Mitarbeiter und deren Abteilungsnamen anzeigt. Die Anzeige der reinen Initialien ist der täglichen Aktualisierung aus einem Report unserer Systeme geschuldet. (Läuft per VBA)
Nun wurde mir die Frage gestellt, ob es in der Tabelle auch möglich sei, mit dem Namen der Mitarbeiter zu suchen und dennoch die Zeile mit den Initialien des Mitarbeiters angezeigt zu bekommen.
Beispiel:
Ich suche "Max Mustermann" → Excel zeigt mir automatisch Zelle B27 an, in der "MM" enthalten ist.
Funktioniert so etwas?
Danke.
Gruß
Chris

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suche von Namen in Tabelle mit Initialien
20.10.2017 12:40:49
Namen
Hi Chris,
das sind zu wenige Informationen bzw. das Aktualisierungsprogramm oder die Exceldatei sind uns nicht bekannt.
Wie willst du nach was suchen, das (möglicherweise) nicht vorhanden ist (oder gibt es irgendwelche Regeln,...)?
Grüße - Erwin
Frage
20.10.2017 12:43:58
Peter(silie)
Hallo,
ein paar kleine Fragen:
- Steht der Name in einer einzigen Zelle oder in zwei?
- In welcher Spalte stehen die Namen
- Befinden sich die Initialien immer in Spalte B?
Hier was zum testen
20.10.2017 12:53:45
Peter(silie)
Hallo,
hier hast du vorab ne kleinigkeit zum testen:
(voraussetzung: Initialen stehen in Spalte B und der Vor- und Nachname ist mit Leerzeichen getrennt) 
Sub Find_User()
Dim initialien, nameToFind, tmp() As String
Dim ws As Worksheet
Dim rng As Range
Dim lRow As Long
nameToFind = Application.InputBox("Namen eingeben")
If nameToFind = "" Then Exit Sub
tmp = Split(nameToFind, " ")
initialien = Left(tmp(0), 1) & Left(tmp(1), 1)
Set ws = ActiveSheet
With ws
lRow = .Cells(.Rows.Count, 2).End(xlUp).Row
Set rng = .Range(.Cells(1, 2), .Cells(lRow, 2))
If Not VBA.IsError(Application.Match(initialien, rng, 0)) Then
.Cells(Application.Match(initialien, rng, 0), 2).Select
MsgBox nameToFind & " in Zelle " & ActiveCell.Address & " gefunden."
End If
End With
End Sub

Anzeige
AW: Frage
20.10.2017 12:54:08
Chris
Hallo,
die Initialien befinden sich immer in Spalte B, ab Zeile 3 abwärts.
Der Name des Mitarbeiters ist leider nirgendwo in dem Sheet enthalten. Dazu würde ich allerdings gern eine kleine extra Tabelle bauen, wo sich Excel die Daten ziehen kann. Da würde der Name in einer Zelle stehen.
Danke.
LG
Chris
Ich hätte es ja so verstanden...
20.10.2017 13:18:02
Michael
Chris,
siehe: https://www.herber.de/bbs/user/117121.xlsm
Code 
Public Funde$
Sub SucheInitialen(MaName$)
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.ActiveSheet
Dim i$, r As Range, f As Range, ff$
Funde = vbNullString
With Ws
Set r = .Range("B2:B" & .Cells(.Rows.Count, "B").End(xlUp).Row)
i = UCase(Left(MaName, 1) & Mid(MaName, InStr(1, MaName, " ") + 1, 1))
Set f = r.Find(what:=i, LookIn:=xlValues, lookat:=xlWhole)
If Not f Is Nothing Then
ff = f.Address
Do
Funde = Funde & _
"Zelle: " & f.Address & _
", Abteilung: " & f.Offset(, 1) & Chr(10)
Set f = r.FindNext(f)
Loop While Not f Is Nothing And f.Address  ff
End If
End With
Funde = Left(Funde, Len(Funde) - 1)
Set Wb = Nothing: Set Ws = Nothing: Set r = Nothing: Set f = Nothing
End Sub
Sub StarteSuche()
UserForm1.Show
End Sub
Private Sub CommandButton1_Click()
If Me.TextBox1  "" Then
SucheInitialen (Me.TextBox1.Text)
Me.TextBox2.Text = Funde
Else:
MsgBox "Kein Such-Name eingegeben"
Me.TextBox1.SetFocus
End If
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Unload Me
End Sub
LG
Michael
Anzeige

299 Forumthreads zu ähnlichen Themen

Mappe mit variablen Dateinamen aktivieren
Peter

Hallöchen an alle,
wie kann man eine geöffnete Mappe über workbooks.activate oder windows.activate ansprechen, ohne dass man den vollen Dateinamen kennt.
Dateiname = "Auftragskennzahlen(*).xls"
Das * steht für eine Zahl, die mir nicht bekannt ist, sondern von einer Web-Datenbank ver...
07.08.2008 17:27:58
Thread-ID: 1000047
4 Beiträge
Anzeige
Öffnen mehrer Dateien mit gleichen Namen
Ryu

Hallo!
Wenn ich irgendwelche Exceldateien öffne und anschließend noch eine andere mit dem selben Namen (Wenn ich z.B. das Original bei mir behalte und die korrigierten von Kollegen bekomme), dann ist es so, dass entweder die zweite Datei automatisch umbenannt und geöffnet wird oder es wird...
27.08.2008 18:02:00
Thread-ID: 1005168
3 Beiträge
Liste mit Arbeitsblattnamen
Christian

Hallo Forum,
ich habe in einer Exceldatei mehrer - viele Arbeitsblätter, die, da sie importiert wurden, sehr unterschiedliche Namen haben, wie z.b. Apfel, Spargel, Schrauben, Ausfall......0,123 5,38 usw.
Um Daten aus diesen Blättern zusammenführen zu können benötige ich in einem Arbei...
28.08.2008 10:35:00
Thread-ID: 1005327
8 Beiträge
Anzeige
Datei öffnen Abfrage nach Dateinamen mit Userform
lisa

Hallo zusammen.
Ich hab die gleiche Frage in einem älteren Thread von mir gerade eben gestellt.
Ich weiß aber nicht ob diesen noch jemand liest, da ich die Frage nicht auf, noch offen gestellt, habe und ihn auch nicht in Beiträge von heute finde.
Also wenn doppelt, bitte nicht böse...
04.09.2008 14:23:00
Thread-ID: 1007419
5 Beiträge
Namen mit Konstante: funktioniert nicht!?
Jens

Hallo liebes Forum,
leider mag mich Excel mal wieder nicht:
Folgende Formel funktioniert zwar:
=ANZAHL2('Mein_Blatt'!6:6)
und liefert den richtigen Wert, aber ich möchte die Formel nach unten kopieren; dabei wird der Wert 6 inkrementell erhöht, was aber nicht passieren soll.
11.09.2008 16:58:00
Thread-ID: 1009181
4 Beiträge
In Zelle mit Namen schreiben
fga

Hallo
Ich habe ein Tabellenblatt. In dem Blatt habe ich für die Spalten einen Namen definiert. Ebenso für die Zeilen. (links oben im Namensfeld)
Z.B.:
..... Sh1 Sh2 Sh3
Rh1
Rh2
Rh3
Nun möchte ich über den Namen der Zeile und Spalte die betreffende Zelle lesen,...
08.10.2008 15:27:04
Thread-ID: 1015078
12 Beiträge
Email Ergänzing, Adresse CC
Karel

Hallo Forum,
habe in diese Forum unterstehende Email VBA code gefunden.
AUF tabelleblatt Mailadresse stehn ab A2 sten untereinander alle Emailadresse
Wie kann ich Emailadresse als CC genau so abfragen auf Tabelleblatt mail adressen ab Zelle C2
Option Explicit
Sub Serien_E...
23.10.2008 19:45:00
Thread-ID: 1018786
7 Beiträge
Probleme mit Namen für Formel und Vba
Reinhard

Hallo Wissende,
die Datei: https://www.herber.de/bbs/user/56243.xls hat nach Klick auf den Button die nachfolgende Tabelle:
Die Berechnung in Spalte C ist korrekt, so soll es aussehen, also pro Stunde nur einen Wert, Rest 0.
Da die Originaldatei alle 65536 Zeilen ausgenutzt hat, e...
24.10.2008 13:28:00
Thread-ID: 1018986
6 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
2
2
7
4
4
3
11
6
5
1
1
2
7
11
2
9
6
7
3
3
4
6
6
7