Tekstboks, kan VBA-kode udskifte teksten?

ja

Det er en RIGTIG god ide at navngive dine shapes..

Det gøres ved at vælge din shape og i boksen helt til venstre (normalt viser den cellen du er i, men den kan også navngive områder samt shapes).

Sub skift_tekst()
'shapen er navngivet minKnap1

i = Range("aa1").Value

Select Case i

Case 1 'i er 1 dvs der er trykt en gang
ActiveSheet.Shapes("minKnap1").Select
    Selection.Characters.Text = "Kør anden gang"
Range("aa1").Value = 0 'nulstiller værdien

Case Else
ActiveSheet.Shapes("minKnap1").Select
    Selection.Characters.Text = "Kør første gang"
Range("aa1").Value = 1 'så vi har den som counter

End Select

End Sub

Tak for dit hurtige svar.
Jeg har lige prøvet det, og det virker perfekt.
Får jeg dit svar?
Hilsen

super . Man kan sikkert lave det mere elegant og bruge fx if. Men bare det virker