Hallo zusammen,
Bin Anfänger mit VBA und versuche eine For Schleife zu implementieren, die über die Reihen einer Tabelle Iteriert und die Werte in Abhängigkeit von der Spalte mit einer anderen Tabelle abgleicht und ggf. Werte anpasst.
Das Vorhaben scheitert aber schon bei der Implementierung einer einfachen IF-Abfrage:
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 Not Application.WorksheetFunction.IsNull(Stellplaetze.Cells(rw2, 3).Value) Then
Bei der Zeile zeigt er mir Laufzeitfehler "13" Typen unverträglich an.
Wieso ist das so? Kann mir bitte einer helfen?
|