Spalte nach Wert durchsuchen und dann kopieren
02.10.2015 17:12:06
Alexa
ich möchte mit einem Makro eine bestimmte Spalte in meinem Reiter Datenbank durchsuchen und dann bestimmte Werte davon kopieren.
Dafür hab ich ein Userform, in das ich eine Nummer eingebe. Bei klicken des Buttons "enter" soll in meinem Reiter "Datenbank" in Spalte H alles durchsucht werden nach der eingegebenen Nummer. Jedesmal wenn er die Nummer findet (die mehrmals in der Datenbank vorkommt) soller bestimmte Werte zB der Wert in D im Reiter Datenbank in B9 in den Reiter Zusammenfassung. Dann soll weiter nach dem eingegebene Wert gesucht werden in H und der nächte Treffer soll dann in B10 usw. eingetragen werden. Momentan sieht mein Code so aus:
Private Sub CommandButton3_Click()
Dim finden, Zelle As Range
Set finden = Range("H:H")
For Each Zelle In finden
If Zelle.Text = TextBox48 Then
End Sub
Leider funktioniert es nicht, und ich hab keine Ahnung wie ich weitermachen soll. Könnt ihr mir bitte weiterhelfen?
Vielen vielen Dnak
Alexa