title image


Smiley Re: Hier mal ein Code
Hallo Hans,

zu 1.

Packe den Code Zwischensummen in ein Standardmodul, das du im VBA-Editor über Menü Einfügen - Modul erzeugst.

Dann erstelle in einem Tabellenblatt ein Button aus der SteuerelemnteToolbox und rufe die Sub Zwischensummen aus dem Code für den Button auf. Das sieht dann so aus:



Private Sub CommandButton1_Click()



Zwischensummen



End Sub



zu 2.

Erweitere den Code für den Button wie folgt:



Private Sub CommandButton1_Click()



Dim Abfrage



Abfrage = MsgBox("Abnehmer korrekt?", vbYesNo)

If Abfrage = vbNo Then

Exit Sub

End If

Zwischensummen



End Sub


Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: