Hallo an alle,
benötige bitte eure Hilfe.
Mit dem folgenden Code:
Dim a As Range
Dim Bereich As Range
Set Bereich = ThisWorkbook.Sheets("Entwurf Druckseite").Range("B12:B22")
For Each a In Bereich
If a = ComboBox1 Then a.Offset(0, 1) = Range("e2")
Next
Set Bereich = Nothing
durchsuche ich den Bereich(B12:B22") nach dem Wert einer Combobox1. Wenn
er gefunden wird, wird in der gleichen Zeile in der nächsten Spalte der Wert
aus E2 eingetragen.
Ich scheitere momentan daran, dass ich wenn in der Zeile daneben bereits ein
Eintrag steht, beim nächsten Mal der Eintrag wieder eine Zelle weiter rechts
in der Zeile eingetragen werden soll.
Bitte um Hilfe. Ich hoffe ich hab mich deutlich ausgedrückt.
Gruß
Patrick