ich habe eine kleine Abfrage durch die 2 Einträge in eine Tabelle sollen nach dem die Bezeichnungen eingegeben wurden. Der erste Eintrag soll in die erste freie Zeile, Spalte 1 des Blattes und der 2. Eintrag dahinter in Spalte 3.
Danach wird die Tabelle neu sortiert.
Mit dem ersten Eintrag funktioniert es. Nun habe ich versucht den 2. ähnlich dem ersten zu kreieren, aber da langt wohl mein Wissen noch nicht.
So sieht es gerade aus:
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")
Worksheets("Lieferant").Select
lEnde = Cells(Rows.Count, sPosition).End(xlUp).Row + 1
Range(sPosition & lEnde).Value = sAusdruck
' tAusdruck = InputBox("Geben Sie die Artikel ein")
' Worksheets("Lieferant").Select
' lEnde2 = Cells(Rows.Count, sPosition).End(xlUp).Row + 1
' Range(sPosition & lEnde2).Value = tAusdruck
'hier noch für die Sortierung
Range("A1") = "Index"
Range("A3:C100").Sort Key1:=Range("A3"), _
Order1:=xlAscending, Header:=xlYes
ComboBoxLieferant.Value = sAusdruck
End Sub
Was mach ich falsch?
Gruß Chris