ich möchte gerne den folgenden Script erweitern. bei Aufruf sol ein Userform aufgehen mit einer auswahlliste die aus einer TRabelle bezogen wird. nun muß eine dieser Auswahlen ausgewählt werden sonnst wir der Vorgang nicht fortgesetz und als steigerung muß nun noch dieser Wert mit den anderesn zusammen in die nächse Zeiler der tabelle geschriebn werden leider habe ich bei meiner Funktion noch einen Fehler kann mir da jemand helfen
Sub Entnehmen()
Sheets("Hauptmenü").Select
Dim myRange As Range
Dim mybuch As Integer
Set myRange = Range("A1:A9999")
myMatch = Range("B8")
mybuch = Range("F8")
nummer = Application.WorksheetFunction.Match(myMatch, myRange, 0)
Cells(nummer, 9).Value = Cells(nummer, 9).Value - mybuch
Sheets("Daten").Select
Range("A2").Select
For laufnummer = 2 To 9999
Cells(laufnummer, 1).Select
If ActiveCell <= 1 Then
End If
Next laufnummer
laufnummer = 0
Cells(1, 1).Select
Mldg = "Keine weiteren Einträge möglich! Prüfen Sie, welcher Auftrag gelöscht werden kann, löschen diesen und versuchen Sie es dann erneut!"
Stil = vbOKOnly + vbExclamation
Title = "Programmfehler: Liste ist voll"
Ergebnis = MsgBox(Mldg, Stil, Title)
If Ergebnis = vbOKOnly Then
GoTo Beenden
End If
Cells(1, 1).Select
GoTo Beenden
Exit Sub
Cells(laufnummer, 1).Select
ActiveCell.FormulaR1C1 = mybuch
Cells(laufnummer, 2).Select
ActiveCell.FormulaR1C1 = myRange
Sheets("Hauptmenü").Select
MsgBox "Eine Ausbuchung wurde vorgenommen"
Beenden:
Cells(1, 1).Select
Sheets("Hauptmenü").Select
End Sub