Ich bin dabei ein Makro zu konstruieren, dass für mich etwas Prüfen soll und komme momentan nicht weiter!
In meinem Arbeitsblatt ("Rechnung") soll an einer bestimmten Stelle nach einer Zahl gesucht werden(kann in 10er Schritten zwischen 10 und 1000 liegen) und anhand dieser Zahl soll ein Eintrag in der Tabelle ("Kunden") geprüft werden. Die gefunde Zahl sagt mir an welcher Stelle in ("Kunden") gesucht werden soll
Mein Ansatz ist folgender:
Sub Prüfung_Rechnung()
Dim lngZ As Long
If Worksheets("Rechnung").Range("E13").Value = 10 Then
lngZ = 10
Else
lngZ = ((Worksheets("Rechnung").Range("E13").Value - 10) / 10 * 21) + 10
End If
If Worksheets("Kunden").Range(Cells(lngZ + 5, 9), Cells(lngZ + 5, 10)) = 1 Then
' das mit dem gleich 1 funzt schonmal nicht... wie kann ich es schreiben, dass die
' Summe aus den Zellen (Cells(lngZ + 5, 9), Cells(lngZ + 5, 10)) = 1 sein soll ?
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
If Worksheets("Kunden").Range(Cells(lngZ + 5, 9), Cells(lngZ + 5, 10)) = 2 Then
' jetzt soll geprüft werden ob die Zahl in dem Arbeitsblatt ("Überblick") in der Zelle ("C6")
' gerade ist falls ja soll ("Rechnung") gedruckt werden, falls nicht soll nichts gedruckt
' werden
End If
If Worksheets("Kunden").Range(Cells(lngZ + 5, 9), Cells(lngZ + 5, 10)) = 4 Then
' jetzt soll geprüft werden ob die Zahl in dem Arbeitsblatt ("Überblick") in der Zelle ("C6")
' durch 4 teilbar ist! falls ja soll ("Rechnung") gedruckt werden, falls nicht soll nichts
' gedruckt werden
End If
End Sub
Ich hoffe es kann mir jemand weiterhelfen!! Wäre sehr dankbar dafür!
Liebr Grüße, Micha