Zellen nach Wert durchsuchen
27.04.2006 09:35:51
Sacha
ich habe folgendes Problemchen. Ich entwerfe gerade einen Vordruck für Etiketten. Über ein Makro erfolgt die mauelle Eingabe der Edv-Nummer und der Stückzahl. Diese werden im Tabellenblatt "Vordruck" eingetragen. Im zweiten Tabellenblatt "Daten", habe ich in Spalte A die EDV-Nummer, in Spalte B die Bezeichnung 1 und in Spalte C die Bezeichnung 2 stehen. Nun soll über eine Suchfunktion geschaut werden, ist die EDV-Nummer vorhanden und falls ja soll die in Spalte B daneben stehende Bezeichnung 1 im Tabellenblatt "Vordurck" eingetragen werden. Ich hab hier schonmal was gebastelt, aber irgendwie bekomme ich kein befriedigendes Ergebnis.
******************************************
Private Sub Eintragen_Click()
[b14] = "*" + Me.EdvNummer.Value + "*"
[b10] = Me.EdvNummer.Value
[b23] = "*" + Me.Menge.Value + "*"
[b19] = Me.Menge.Value
Dim rgZelle As Range
Dim rgBereich As Range
Set rgBereich = Worksheets("daten").Range("A1:A10000")
For Each rgZelle In rgBereich
If rgZelle.Value = Me.EdvNummer.Value Then
[a2].Value = rgZelle.Offset(0, 1)
Else
[a2].Value = "Nummer existiert nicht!!"
End If
Next
Unload Me
End Sub
**************************************
Vorab vielen Dank für die Bearbeitung
Sacha