MSG BOX Ja - Nein
22.11.2005 07:43:06
Heinz
Ich bräuchte für das untere Makro eine MSG Box,die bei Click auf Button erscheint. "Wollen sie die Daten aktualisieren" mit Ja oder Nein.
bei NEIN Abruch der Aktion, bei JA unteres Makro ausführen.
Könnte mir bitte jemand helfen.
Danke & Gruß Heinz
Private Sub CommandButton1_Click()
Dim jancol As Byte
Dim zrow As Byte
Dim x As Long
x = 7
zrow = 30
jancol = 4
For jancol = 4 To 8
Sheets("Jänner").Range(Sheets("Jänner").Cells(x, 4), Sheets("Jänner").Cells(x + zrow, 4)) = _
Sheets("Schichtplan").Range(Sheets("Schichtplan").Cells(6, jancol), Sheets("Schichtplan").Cells(36, jancol)).Value
x = x + 44
Next jancol
Call Stundeneintrag
End Sub