Hallo,
ich habe folgendes Problem:
Ich soll ein VBA-Modul schreiben, das Fehlermeldungen ausgibt, wenn für ein Buch mehr Vorbestellungen vorliegen als sich Exemplare auf Lager befinden. Gegeben ist eine Tabelle. Irgendwie weiß ich nicht genau wie ich die Zellen miteinander vergleiche, um den Fehlbestand rauszubekommen.
Habe es schonmal so probiert:
Public Function Zeilen_vergleichen()
Range("F1").Select
Endi = Range("F65536").End(xlUp).Row
Range("G1").Select
Endj = Range("G65536").End(xlUp).Row
For i = 1 To Endi
For j = 1 To Endj
If Range("F" & i) < Range("G" & j) Then
MsgBox "Es sind nicht genug Bücher auf Lager"
End If
Next j
Next i
End Function
Bekomme aber leider permanet Fehlermeldungen und weiß nicht, wo der Fehler ist oder ob der Ansatz überhaupt richtig ist.
Wäre toll, wenn mir jemand helfen kann.
|