Microsoft Excel

Herbers Excel/VBA-Archiv

zwischencode Msg Ja nein


Betrifft: zwischencode Msg Ja nein
von: Tom
Geschrieben am: 05.12.2018 07:59:15

Hallo zusammen,

ich habe in meinen code diese zwischen Abfrage eingebaut:

Set rng = ActiveSheet.Columns("U:U") 'Achtung: andere Variante (ganze Spalte!)
dblSumme = Round(Application.WorksheetFunction.Sum(rng), 4) 'vier Nachkommastellen
MsgBox "preis ist: " & dblSumme & " Euro ", vbYesNo

Jetzt soll wenn ich ja klicke das der Code weitergeht und bei NEin ABBRUCH.

Wie steuer ich das am besten ?

Danke euch

  

Betrifft: AW: zwischencode Msg Ja nein
von: Torsten
Geschrieben am: 05.12.2018 08:04:10

Hallo,

so?


Set rng = ActiveSheet.Columns("U:U") 'Achtung: andere Variante (ganze Spalte!)
dblSumme = Round(Application.WorksheetFunction.Sum(rng), 4) 'vier Nachkommastellen

Dim answer
answer = MsgBox("preis ist: " & dblSumme & " Euro ", vbDefaultButton2 + vbYesNo, "Preis")
If answer = vbYes Then

    Dein Code der weitergehen soll

Else

    Exit Sub

End If
Gruss Torsten


  

Betrifft: AW: zwischencode Msg Ja nein
von: Tom
Geschrieben am: 05.12.2018 08:12:20

Hallo Torsten,

da ommt ein Fehler.

Was mache ich falsch:

....
Set rng = ActiveSheet.Columns("U:U") 'Achtung: andere Variante (ganze Spalte!)
dblSumme = Round(Application.WorksheetFunction.Sum(rng), 4) 'vier Nachkommastellen
prüfung = MsgBox("Komplettpreis wurde auf: " & dblSumme & " Euro angepasst", vbDefaultButton2 + vbYesNo, "Preis")


PathAndFile = Application.GetSaveAsFilename(InitialFileName:=ActiveSheet.Name & ".xls", _
FileFilter:="Excel Files(*.xls), *.xls", Title:="Speichern als")


If PathAndFile = "Falsch" Then Exit Sub

Workbooks.Add

Application.DisplayAlerts = False

ThisWorkbook.Sheets("Übertrag").UsedRange.Copy

With ActiveWorkbook

With .ActiveSheet
.Range("A1").PasteSpecial xlPasteValues
End With

.SaveAs Filename:=PathAndFile, FileFormat:=xlOpenXMLWorkbook
.Close

End With

Application.CutCopyMode = False

Application.DisplayAlerts = True
Else
Exit Sub
End If
End Sub


  

Betrifft: AW: zwischencode Msg Ja nein
von: Torsten
Geschrieben am: 05.12.2018 08:16:53

1. Welche Fehelermeldung bekommst du?
2. Du reagierst ja nicht, wie in meinem Code, auf den Klick auf ja oder nein.


  

Betrifft: sorry hatte was vergessen.
von: Tom
Geschrieben am: 05.12.2018 08:18:16

... Passt Super .-) Danke dir

Tom


  

Betrifft: AW: sorry hatte was vergessen.
von: Torsten
Geschrieben am: 05.12.2018 08:21:58

Alles gut also.

Danke fuer die Rueckmeldung.