Liste auf inhalt überprüfen
01.02.2015 12:17:05
Micha
ich wollte mich schon mal im vorraus bedanke. Versuche mich gerade ein wenig an der VBA programmierung und dieses Forum hat mir schon um einiges weiter geholfen.
Leider komme ich jetzt nicht mehr weiter.
Ich möchte über eine Combobox einen wert aus einer Quelle auswählen. Soweit so gut.
Ist der wert nicht in der quelle vorganden dann soll er in die combobox eintragen und automatisch zu der Quelle hinzufügen werden das ganze findet in einer Userform statt.
Hab mich da schon ein wenig versucht. Das hinzufügen klappt aber die prüfung ob der wert schon vorhanden ist nicht. Selbst wenn der Wert vorhanden ist wird er hinzugefügt.
könnt ihr da evtl weiterhelfen?
Private Sub b_reisedaten_Click()
Dim int_index As Integer
Dim int_lfreiezeile As Integer
Dim Bereich As Range
Dim Zelle As Range
Dim bool_gefunden As Boolean
bool_gefunden = False
Set Bereich = Sheets("Daten").Range("B3:B" & .Cells(Rows.Count, 2).End(xlUp).Row)
For Each Zelle In Bereich
If Zelle.Value cb_waehrung1.Value Then
bool_gefunden = True
End If
Next Zelle
If m_gefunden = True Then
'letzte belegte zeile finden in spalte B
int_index = Daten.Cells(Rows.Count, 2).End(xlUp).Row
'letzte freie zelle ist letzte belegte zelle +1
int_lfreiezeile = int_index + 1
Sheets("Daten").Cells(int_lfreiezeile, 2).Value = cb_waehrung1.Value
End If
End Sub
Vielen dank schon mal
Micha
Anzeige