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

Forumthread: Wert suchen, Zeile markieren und Werte übertragen

Wert suchen, Zeile markieren und Werte übertragen
07.03.2014 12:15:14
Kruse
Hallo Zusammen
ich benutze das Makro in der angehängten Datei schon lange um von Tabelle1 aus einen Namen in Tabelle2 zu suchen und die Werte in ausgewählten Zellen auf Tabelle2 zu übertragen.
Nun möchte ich aber dieses Makro auch in einem anderen Worksheet benutzen um nach Nummern zu suchen, das klappt aber leider nicht. Sobald ich aber in Tabelle2 eine Nummer durch Ziffern ersetze wird die Zelle gefunden. Woran kann das liegen ?
https://www.herber.de/bbs/user/89576.xlsm
Guss
Peter

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Zahl-als-Text
07.03.2014 12:32:46
Klaus
Hallo Peter,
du fällst hier darauf herein, dass in der Zeile eine "Zahl" steht. Im Makro wird diese zu "Zahl-als-Text", da du aber nach einer echten Zahl suchst wird sie eben nicht gefunden.
Du könntest jetzt entweder alle Zahlen in Texte umwandeln ... oder im Makro den "Suchbegriff" bei Bedarf wieder in eine echte Zahl umwandeln (das geht am schnellsten mit dem MinusMinus-Trick).
Ganz quick and dirty:
Sub Zeileholen()
Dim Suchbegriff As String
Dim Dropdown As String
Dim Namenspalte As String
Zeile = 0
Stammdatensheet = "Tabelle2"
Bearbeitungssheet = "Tabelle1"
Dropdown = "B14"
Namenspalte = "D:D"
On Error Resume Next
Suchbegriff = ThisWorkbook.Sheets(Bearbeitungssheet).Range(Dropdown).Value  'Holt den ausgewä _
hlten Wert aus dem Dropdownfeld
If IsNumeric(Suchbegriff) Then
Zeile = WorksheetFunction.Match(--Suchbegriff, Sheets(Stammdatensheet).Range(Namenspalte),  _
0) 'Ermittelt die Zeile, wo der Name steht
Else
Zeile = WorksheetFunction.Match(Suchbegriff, Sheets(Stammdatensheet).Range(Namenspalte), 0)  _
'Ermittelt die Zeile, wo der Name steht
End If
Call Bestand_holen
End Sub
Oder du löst das ganze VBA-Frei mit Formeln (INDEX, VERGLEICH Kombination). Wirst aber bestimmt einen Grund haben, warum das in VBA laufen soll.
Grüße,
Klaus M.vdT.

Anzeige
AW: Zahl-als-Text
07.03.2014 13:06:55
Kruse
Hallo Klaus
das klappt ja super ... Danke
Gruss
Peter

Danke für die Rückmeldung! owT.
07.03.2014 13:09:36
Klaus
.
;

Forumthreads zu verwandten Themen

Anzeige
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