|
Hallo zusammen,
ich bin neu hier in diesem Forum und kenne mich leider auch mit VBA noch nicht so gut aus.
Da ich jetzt beruflich immer mehr mit Excel 2016 unter Windows 10 und somit auch mit VBA in Berührung komme, wollte ich fragen, ob mir jemand bei der Code-Erstellung helfen könnte.
Bisher habe ich einen kurzen Code erstellt, der mir überprüfen soll, ob die Zelle R9 leer ist - wenn ja, dann soll drei Zellen darunter in Zelle R12 "1" eingetragen werden, ansonsten (also wenn die Zelle R9 leer ist) ein "X".
Da ich ein absoluter Anfänger in VBA bin, verstehe ich nicht, wieso die Funktion nicht funktioniert und mit einer Fehlermeldung abgebrochen wird. Wenn ich nämlich in die Zelle R12 den Befehl "=PositionDIP()" (natürlich ohne Anführungszeichen) eintrage, kommt der Fehler "Zirkelbezug" und das Programm wird abgebrochen.
Anbei der Programmcode, den ich bei "Modul" im VBA-Editor eingetragen habe:
Public Function PositionDIP()
If IsEmpty(Tabelle1.Range("R9").Value) = False Then
Sheets("Tabelle1").Range("R12").Value = "1"
Else: Sheets("Tabelle1").Range("R12").Value = "X"
End If
End Function
Über eine Antwort würde ich mich sehr freuen!
Alles Gute und freundliche Grüße
Simon
|