Hallo nochmal.
Danke Thorsten. Hat geklappt mit der if-Abfrage.
Jetzt habe ich noch ein weiteres Problem. Vielleicht kannst du, oder jemand anderes mir dabei ja weiterhelfen.
Ich glaube es ist eine Definitionsfrage. Ich möchte eine Index-Vergleich Funktion durchfürhen über Knopfdruck und die Daten einer Tabelle anpassen.
Ich schaffe es jedoch nicht, die Funktion Umzusetzen. Muss ich die Syntax verändern, wenn ich solch eine Funktion in VBA umsetzen möchte?
Oder definiere ich den Wertebereich Falsch?
CODE:
Sub Lagerplatzzuteilung()
Dim wb As Workbook
Dim Produkte As Worksheet
Dim Stellplaetze As Worksheet
Dim rw As Range
Dim rw2 As Range
Dim RowCount As Integer
Dim WerteBereich As Range
Set wb = ActiveWorkbook
Set Stellplaetze = Worksheets("Lagerplätze")
Set WerteBereich = Stellplaetze.Range("A1:I217")
Set Produkte = Worksheets("Quelldaten")
Stellplaetze.Cells(14, 1).Value = 1
For Each rw In Produkte.Rows
For Each rw2 In Stellplaetze.Range("2:217").Rows
If Stellplaetze.Cells(rw2.Row, 3).Value = 1 Then
Dim v As Integer
Dim Wert As Integer
v = 0
Wert = Application.WorksheetFunction.Index(WerteBereich, Stellplaetze.Cells(rw2.Row, 12).Value, Application.WorksheetFunction.Index(Produkte.Cells(rw.Row, "C").Value, Stellplaetze.Cells(RowIndex:=rw2.Row, ColumnIndex:="A:I").Value, 0))
Vielen Dank im Vorraus für eure Hilfe.
Grüße,
Kai
|