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.