Select Case - Versionsstyring
Jeg har brug for noget versionsstyring. Jeg har tænkt mig at benytte Select Case, ved at en makro ser i en celle (C27) for at se hvilken version det pt. er. Hvis det er en version 1 skal makroen så gå ind i Case Is = 1 og gøre det som jeg vil ændre og sætte C27 = 2 til næste ændring - Sådan her:Case Is = 1
"Lave ændring"
Windows(strFileName).Activate
Sheets("Beregninger").Range("C27") = 2
Case Is = 2
"Lave ændring nr. 2"
Windows(strFileName).Activate
Sheets("Beregninger").Range("C27") = 3
Osv.osv.
Case Else
MsgBox ... Ingen opdatering
End Select
Mit spørgsmål går på at hvis nu der står 1 i C27 og der er 2 ændringer. Hvordan får jeg makroen til at gå videre til Case Is = 2?
Er der bedre forslag til hvordan jeg kan styre versionerne?
