Makro zum Auslesen von Werten gesucht
29.10.2007 16:52:03
Werten
Ich bin auf der SUche nach einem Makro, welches recht simpel zu programmieren sein dürfte. Irgendwie komme ich aber aufgrund meiner bescheidenen VBA-Kenntnisse nicht selbst dahinter und wäre daher für Hilfe äußerst dankbar.
Es geht um folgendes:
Ich habe eine Excel-Tabelle, die eine Liste von Objekten enthält, welche nummeriert sind. Die erste Spalte ist meine Objektnummer.
Ich habe nun ein Formular aufgesetzt, welches aus einer Combobox (CboAuswahlObjekt), einem Texteingabefeld (TxtVerkaufsdatum) und einem Auslösebutton "Speichern/Schließen" (CmdSpeichernSchliessenObj) besteht. Die Combobox zeigt mir alle Objekte aus meiner Liste zum Auswählen an und in das Texteingabefeld wird manuell ein Datum hineingeschrieben (das Ganze soll ein Verkaufsdatum für mein Objekt sein).
Ich bin nun auf der Suche nach einer Prozedur, die beim Ereignis "Click auf SpeichernSchliessen" in die Zeile meiner Tabelle springt, in der die gewählte Objektnummer meiner Combobox wieder auftaucht und dann 17 Spalten weiter rechts den Wert des eingegebenen Datums schreibt.
Habe es selbst versucht und folgendes probiert, funktioniert aber nicht:
Private Sub CmdSpeichernSchliessenObj_Click()
Worksheets("OST").Activate
ObjektDurchsuchen
Unload Me
End Sub
Sub ObjektDurchsuchen()
Dim rgZelle As Range
Dim rgBereich As Range
Set rgBereich = Worksheets("OST").Range("A18:A500")
For Each rgZelle In rgBereich
If rgZelle.Value = Me.CboAuswahlObjekt.Value Then
rgZelle.Offset(0, 17).Value = TxtVerkaufsdatum.Value
End If
Next
End Sub
Leider sind meine VBA-Kenntnisse zu bescheiden, um weiterzukommen, daher würde ich mich über Hilfe wirklich freuen.
Beste Grüße,
Sebastian
Anzeige