Hallo liebes Forum,
ich benötige mal dringend eure Unterstützung, da ich gar nicht mehr weiter weiß...
1 2 3 4 5 6 7 8 9 10 11 | 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....
|