17.12.2020, 14:39
Hallo zusammen,
wieder mal ne Frage:
Ich habe eine Combobox in der ein Lieferant ausgewählt wird. In einer Tabelle sind die Lieferanten gelistet.
Nun habe ich einen Lieferanten Namens "Neu" über den kann man einen neuen Lieferanten hinzufügen, der dann
in die Liste eingetragen wird.
Meine Idee wäre nun: Wenn ich einen Lieferanten eingebe, der in der Liste noch nicht vorhanden ist, diesen dann sozusagen als neu zu deklarieren und
die Routine für den Neueintrag zu starten.
Hier mal meine Momentane Routine:
'Neuer Eintrag für ComboBox Lieferant
Sub NeuerEintrag(sPosition As String)
Dim sAusdruck As String
Dim tAusdruck As String 'dachte ich für 2. Abfrage
Dim lEnde As Long
'Dim lEnde2 As Long 'dachte ich für 2. Abfrage
sAusdruck = InputBox("Geben Sie den neuen Lieferanten ein")
tAusdruck = InputBox("Geben Sie die Artikel ein")
Worksheets("Lieferant").Select
lEnde = Cells(Rows.Count, sPosition).End(xlUp).Row + 1
Range(sPosition & lEnde).Value = sAusdruck
Range(sPosition & lEnde).Offset(0, 2).Value = tAusdruck
'hier noch für die Sortierung
Range("A1") = "Index"
Range("A3:C" & lEnde).Sort Key1:=Range("A3"), _
Order1:=xlAscending, _
Header:=xlYes
ComboBoxLieferant.Value = sAusdruck
End Sub
Wie könnte ich das jetzt mit den vorhandenen Einträgen und dem Abgleich machen?
Gruß Chris
wieder mal ne Frage:
Ich habe eine Combobox in der ein Lieferant ausgewählt wird. In einer Tabelle sind die Lieferanten gelistet.
Nun habe ich einen Lieferanten Namens "Neu" über den kann man einen neuen Lieferanten hinzufügen, der dann
in die Liste eingetragen wird.
Meine Idee wäre nun: Wenn ich einen Lieferanten eingebe, der in der Liste noch nicht vorhanden ist, diesen dann sozusagen als neu zu deklarieren und
die Routine für den Neueintrag zu starten.
Hier mal meine Momentane Routine:
'Neuer Eintrag für ComboBox Lieferant
Sub NeuerEintrag(sPosition As String)
Dim sAusdruck As String
Dim tAusdruck As String 'dachte ich für 2. Abfrage
Dim lEnde As Long
'Dim lEnde2 As Long 'dachte ich für 2. Abfrage
sAusdruck = InputBox("Geben Sie den neuen Lieferanten ein")
tAusdruck = InputBox("Geben Sie die Artikel ein")
Worksheets("Lieferant").Select
lEnde = Cells(Rows.Count, sPosition).End(xlUp).Row + 1
Range(sPosition & lEnde).Value = sAusdruck
Range(sPosition & lEnde).Offset(0, 2).Value = tAusdruck
'hier noch für die Sortierung
Range("A1") = "Index"
Range("A3:C" & lEnde).Sort Key1:=Range("A3"), _
Order1:=xlAscending, _
Header:=xlYes
ComboBoxLieferant.Value = sAusdruck
End Sub
Wie könnte ich das jetzt mit den vorhandenen Einträgen und dem Abgleich machen?
Gruß Chris