|
Hallo liebes Forum,
ich benötige mal dringend eure Unterstützung, da ich gar nicht mehr weiter weiß...
Set Prüfung = Worksheets("Tabelle2").Range("C5")
Dim A1 As Integer
With Worksheets("Tabelle2")
If Not IsEmpty(Prüfung) Then
If Worksheets("Tabelle1").Range("B5") = 0 Then
Das ist mein Code-Abschnitt.
Mein Ziel und Gedanke hinter dem Code ist, dass ich in der Area ("C1:C5") mit einem x markieren kann. Das soll beliebig sein.
Sobald z.b ein x in C5 steht, soll in der anderen Tabelle in Zelle B1 auf 0 geprüft werden.
Nun soll er eine MsbBox ausgeben, sobald alle Felder in Tabelle 1 auf 0 sind, wobei in Tabelle2 auf diese markiert wird.
z.B soll wenn in Zelle C1 und C4 ein x steht, in Tabelle1 auf B1 und B4 = 0 geprüft werden.
Wie kann ich das automatisieren ohne jede Möglichkeit zu definieren? ich komme hier echt nicht weiter....
|