Variablendef. und Variablen an Userform übergeben
20.06.2014 22:26:13
Ben
ich habe mein Problem von vor ein paar Tagen nun weiterprogrammiert und es sind nun neue Fragen aufgetaucht =/
Also ich habe eine Userform mit einem Textfeld (in der ich eine Kundennumer eingeben)... in der Excel Tabelle "kundendaten" soll nun nach der Kundennummer gesucht werden. Wie schaffe ich es das nun, dass die Zeile in der sich die Kundennummer befindet, als Variable gesetzt wird? Also wenn sich in der Zeile 5 die gesuchte Kundennummer befindet , die Variable D nun 5 wird.
Nachdem die Variable definiert wurde soll diese nun in die Userform Kundendaten_bearbeiten übernommen werden. Kann ich es dann irgendwie für die ganze Userformn gelten lassen? Also das ich gleich in allen Textfelder und Commandbuttons mit der Variable weiterarbeiten kann?
Private Sub Weiter_Kundennummer_Click()
Dim ws As Worksheet
Set ws = Worksheets("Kundendaten")
Dim D As Integer
letztezeile = ws.Cells(Rows.Count, 1).End(xlUp).Row
With ws.Range("A4:A" & letztezeile)
Set C = .Find(Kundennummer_suchen.Text, LookIn:=xlValues, LookAt:=xlWhole)
If Not C Is Nothing Then
hier fehlt ein Befehl für Variable D = Zeilennummer _
Else: MsgBox "Konnte den Eintrag nicht finden"
End If
End With
Unload Me
Kundendaten_bearbeiten(D).Show Stimmt das mit dem "(D)"?
End Sub
Vielen Dank :)
mit freundlichen Grüßen,
Ben
Anzeige